procedureTForm1.Button2Click(Sender: TObject);varbuf: TBytes;begin//ANSI编码SetLength(buf,4); buf[0] :=178; buf[1] :=226; buf[2] :=202; buf[3] :=212; Memo1.Lines.Add(StringOf(buf));//Unicode编码buf[0] :=75; buf[1] :
dlgOpen1: TOpenDialog;procedurebtnObjectToJsonStringClick(Sender: TObject);procedurebtnJsonSerializerClick(Sender: TObject);procedureFormCreate(Sender: TObject);procedurebtnXSuperObjectClick(Sender: TObject);procedurebtnQJsonClick(Sender: TObject);procedurebtnJsonDataObjectsClick(Sender: TObject);procedur...
如果在StringList里面进行排序并查找,可以用下面的方法: procedure TForm1.FormCreate(Sender: TObject); var MyList: TStringList; Index: Integer; begin MyList := TStringList.Create; try MyList.Add('Animals'); MyList.Add('Flowers'); MyList.Add('Cars'); MyList.Sort; { Find will only work...
例如,在对(AnObject 进行强制类型转换前,确定(AnObject 和TEdit是否指针兼容: if (AnObject is Tedit) then Tedit(AnObjject).text := 'wudi_1982'; 注意在这个例子中不要再使用as进行强制类型转换,这是因为它要大量使用RTTI,另外还因为,在第一行已经判断Foo就是TEdit,可以通过在第2行进行指针转换来优化。
delphi 中 byte数组转 string的疑问procedure TForm1.Button1Click(Sender:TObject);vararr :array [0..5] of byte;beginarr[0] := ord('a');arr[1] := ord('b');arr[2] := ord('c');arr[3] := ord('d');arr[4] := ord('e');...
TOrderedList = class(TObject) private FList: TList; protected procedure PushItem(AItem: Pointer); virtual; abstract; ... public function Count: Integer; function AtLeast(ACount: Integer): Boolean; procedure Push(AItem: Pointer); function Pop: Pointer; ...
61 lJSONString: String = '{"type":"Unit2.TPerson","id":1,"fields":{"Name":"Hezihang","Password":"123","Age":23}}'; 62 begin 63 Memo1.Lines.Clear; 64 /// Object Convert to JSON 65 Memo1.Lines.Add('Object to JSON String'); ...
procedure TForm1.Button1Click(Sender: TObject);var s: string; CurDateTime :TDateTime;begin CurDateTime := Now; //获取当前日期时间 s := FormatDateTime('现在是 yyyy 年 M 月 d 日 hh 时 nn 分 ss 秒',CurDateTime); MessageBox(Handle, PChar(s), '信息提示', MB_OK ...
procedure TForm1.RadioGroup1Click(Sender: TObject); begin edit2.Enabled:=RadioGroup1.ItemIndex=; button2.Enabled:=RadioGroup1.ItemIndex=; end; end. 其实就是利用Windows重启的瞬间来删除或移动文件。 文件,文件夹删除移动和拷贝 function WinErasefile(Owner: Integer; WichFiles: string; SendToRecycle...
关键字是Object Pascal 的保留标识符,在语言中有着特殊含义。保留字不能用作标识符,指令字也同样不应该用作标识符,即使编译器允许也最好不用。在实际中你不应该把任何关键字用作标识符。 表2.1是面向对象 Pascal 语言(Delphi 4)中特殊标识符的完整列表,其中包括关键字及保留字。