16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
S1: string[255];{短字符串}
S2: string;{长字符串}
P: PByte;
begin
S1 := StringofChar(#32, 255);
Showmessage(InttoStr(Byte(S1[0])));
S2 := InttoStr(Handle)+FormatDatetime('YYYYMMDDhhnnsszzz',Now);
Showmessage(InttoStr(Length(S2)));
integer(P) := integer(@S2[1])-4;
Showmessage(InttoStr(P^));
end;