如果你想检测用户何时开始调整窗口尺寸或移动窗口，何时完成该操作，你需要处理几个Windows消息。当窗口开始移动或调整大小时，WM_ENTERSIZEMOVE消息会向窗口发送一次。当退出窗口移动或大小调整时，WM_EXITSIZEMOVE消息会向窗口发送一次. 当窗口正在移动时，WM_MOVE消息会向窗口发送。下面是一个例子，运行后移动该窗口，查看窗口标题：type TForm1 = class(TForm) private procedure WMEnterSizeMove(var M
procedure TForm1.Button1Click(Sender: TObject);begin if not FileExists(Edit1.Text) then//if not DirectoryExists(Edit1.Text) then 判断目录是否存在 try begin CreateDir(Edit1.Text); //ForceDirectories(Edit1.Text); 创建目录 end; finally raise Excep
Delphi XE 调试通过，关键代码如下：uses DBXJSON, DBXJSONCommon, DBXJSONReflect, IdHTTP,system.json;var IdHTTP: TIdHTTP; RequestURL: string; ResponseStream: TStringStream; JO, JData: TJSONObject;begin IdHTTP := TIdHTTP.Create(nil); IdHTTP.ReadTimeout := 0; IdHT
uses System.JSON;procedure TForm1.Button1Click(Sender: TObject);var m_Object, m_Json1, m_Json2: TJSONObject; m_JsonArray: TJSONArray;begin m_Object := TJSONObject.Create; try // JSON数组 m_JsonArray := TJSONArray.Create; // 数组成员一 m_Json1 :
发现在Delphi 10.1.2上，下面的代码生成的JSON串不对：procedure TForm2.btn1Click(Sender: TObject);var jo:TJSONObject; s:string;begin jo:=TJSONObject.Create; jo.AddPair('test',''); s:=jo.ToJSON; ShowMessage(s);end;换到Delphi 10.2.3下，则正常输出：'{"test
当你使用文件流对象从Delphi的REST服务器返回图像时，它不会正常显示在浏览器中，如下例：function TServerClass.Image: TFileStream;begin Result := TFileStream.Create('pathtofile\image.png', fmOpenRead or fmShareDenyNone);end;这是因为Delphi REST服务器总是将返回内容的类型设置为text/html，这就导致你返回其它类型时浏览器不能加以区分，
function get_dir_parent(dir:string;n:integer):string; //n为几级父目录varst:string;i:integer;begin st:=GetCurrentDir; SetCurrentDir(dir); for i:=1 to n do begin ChDir('..'); end; result:=GetCurrentDir; SetCurre
假设表中元素是按升序排列，将表中间位置记录的关键字与查找关键字比较，如果两者相等，则查找成功；否则利用中间位置记录将表分成前、后两个子表，如果中间位置记录的关键字大于查找关键字，则进一步查找前一子表，否则进一步查找后一子表。重复以上过程，直到找到满足条件的记录，使查找成功，或直到子表不存在为止，此时查找不成功。条件：数组必须先排好序 优点：查找速度快，适用于不经常变动频繁查找的有序列表缺点：插入删除困难假设其数组长度为n，其算法复杂度为o（log（n））function TForm1.binarySea