Use MSBuild externally to compile

ScrollBox1.ContentBounds.Height;

ScrollBox1.ContentBounds.Height;

raise Exception.Create('需要处理新的Frame，AFieldType = ' + Ord(AFieldType).ToString + '。');

判断对象是否存在Assert(Assigned(Myobj)assert（断言）的作用是用来进行条件测试。可以计算表达式，如果其值为假（即为0），那么它先向stderr打印一条出错信息，然后通过调用 abort 来终止程序运行。缺点是，频繁的调用会极大的影响程序的性能，增加额外的开销。...

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,TypInfo;type TForm1 = class(TForm) Button2: TButton; proced...

delphi如何创建64位程序

https://blog.csdn.net/pcplayer/article/details/103837140

delphi以任务管理员权限运行

FormatDateTime('YYYY-MM-DD hh:nn:ss.zzz', now);

delphi编译指令定义方式

freeandnil (obj)obj不必赋初始值obj默认nil

https://www.cnblogs.com/del/archive/2009/10/13/1582789.htmlclass helper 可能是从 Delphi 2007 增加的新语法, 因为感觉不太实用, 直到今天才测试了一下.试过之后才知道: 挺有意思的! 基本功能就是修改已存在的类.Txxx = class helper for T... {T... 表示已存在的类} ...

type Tequip = class public constructor Create(); destructor destroy(); override; private btn: Tbutton; list: TStringList; public private end;{ Tequip }constructor Te...

Delphi xe集成了fastMM，这回大家调试程序是的时候可以方便地检查内存泄露了。使用方法如下：在project中，添加一行ReportMemoryLeaksOnShutdown := True;

function TForm1.rf: boolean;begin Exit(true); //等价于 Exit(true) result:=true; Exit(false) result:=false;end;function TForm1.rf1: integer;begin Exit(4); //等价于 result:=4;end;function T...

ty := FieldTypeNames[FDQuery3.FieldDefList.FieldDefs[0].DataType]; s := FDQuery3.Fields.Fields[0].FieldName; value := FDQuery3.Fields.FieldByNumber(1).AsString;-----------------------------...

TFDConnection.FetchOptions.RecordCountMode属性为 fmTotal，也就是获得全部数量，默认是cmVisible，也就是已经显示出来的数量

StringGrid行列的增加和删除typeTExCell = class(TStringGrid)publicprocedure DeleteRow(ARow: Longint);procedure DeleteColumn(ACol: Longint);procedure InsertRow(ARow: LongInt);procedure InsertColumn(ACol:...

typeTExCell = class(TStringGrid)publicprocedure DeleteRow(ARow: Longint);procedure DeleteColumn(ACol: Longint);procedure InsertRow(ARow: LongInt);procedure InsertColumn(ACol: LongInt);end;pr...

stringgrid如何清空with StringGrid1 do for I := 0 to ColCount - 1 do Cols[I].Clear;//或with StringGrid1 do for I := 0 to RowCount - 1 do Rows[I].Clear;//或for i := 0 to vGrid.rowcount-1 do for...

PByte转TBytes：a:PByte;b:TBytes;b := TBytes(a);PByte转Byte：其实就是指针操作a:PByte;b:Byte;b := a^;Byte转PByte：也是指针操作a:Byte;b:PByte;b := @a;procedure ByteToB...

try except on ex: Exception do begin ShowMessage('失败:' + ex.Message); end; end;

try except on e:Exception do begin ShowMessage(E.Message); exit; end; end;

delphi中stringgrid删除行TMyGrid = class(TStringgrid);然后用TMyGrid(stringgrid1).DeleteRow(stringgrid1.Row );可以删除选中的行.

//覆盖询问 SaveDialog.Options := SaveDialog.Options + [ofOverwritePrompt];

//delphi tlistbox添加横向滚动条procedure TForm1.SetWidth(pListBox:TListBox);var  i, w: Integer;begin  w := 0;  for i := 0 to pListBox.Items.Count - 1 do  begin    Canvas.Font.Name := pListBox.Font.Name;    C...

引用单元 System.IOUtils目录操作if not TDirectory.Exists('c:\test1\tt')thenTDirectory.CreateDirectory('c:\test1\tt');文件操作TFile.Exists('c:\test1\tt\t.txt')

procedure TForm1.Button9Click(Sender: TObject);var  frameh,captionh,menuh: Integer;  str:string;begin//边框高  frameh := GetSystemMetrics(SM_CXFRAME);//标题高  captionh := GetSystemMetrics(SM_CYCAPT...

方法一：不带\GetCurrentDir 方法二：带\ExtractFilePath(Application.ExeName);方法三：带\ExtractFilePath(paramstr(0))

uses  IniFiles;//写procedure TForm1.Button1Click(Sender: TObject);var  ZkyFileIni: TIniFile;  ZkyIniAdd: string;begin  ZkyIniAdd := GetCurrentDir + '\test.ini';  ZkyFileIni := TIniFile.Create(P...

工程(&P)去掉快捷键&工程 DelINS

{常见代码}begin  FDConnection1.StartTransaction; //开始一个事务  try    {可能会出错的代码}    FDConnection1.Commit;  //提交  except    FDConnection1.Rollback; //回滚  end;end;...

function TForm1.GetGUID: string;varLTep: TGUID;sGUID: string;beginCreateGUID(LTep);sGUID := GUIDToString(LTep);sGUID := StringReplace(sGUID, '-', '', [rfReplaceAll]);sGUID := Copy(sGUID, 2, Le...

varstr:string;ar:array[1..5] of string;beginar[1]:='a';ar[2]:='b';ar[3]:='c';ar[4]:='d';ar[5]:='e'; str:= string.Join('12',ar ); //a12b12c12d12e

 str:= string.Parse(r) ; //将Integer、Extended、boolean解析成string型 

 str:= string.Create('a',3); //aaa 

会返回异常Integer.Parse(string) 不会返回异常Integer.tryParse('12',i); 结果：true 12Integer.tryParse('12a',i);结果：false 12Integer.tryParse('a12',i);结果：false 0Integer.tryParse('1a2',i);结果：false ...

program Project1;uses  Vcl.Forms,  Unit1 in 'Unit1.pas' {Form1},  Unit2 in 'Unit2.pas' {Form2};{$R *.res}varForm2:TForm2;begin  Application.Initialize;  Application.MainFormOnTaskbar := Tr...

 tab键方法一：消息           postmessage(Application.ActiveFormHandle, wm_keydown, vk_tab, 0);          postmessage(Application.ActiveFormHandle, wm_keyup, vk_tab, 0); 方法二：   keybd_event(VK_TAB, ...