如题
解决方案 »
- ShellListView 乱码!!!!
- 有谁知道关于paradox数据库的备份和还原吗?
- 用MSCOMM实现RS-232C编程问题?
- 如何在DELPHI中创建一个数据库(菜鸟)
- 想变一个windows的计算器
- 各位CSDN的兄弟们,好久没有来了,大家都还好吗?我的想法希望与你们沟通一下
- VarArrayCreate 问题,请高手帮忙!!!!!!!!!!!
- **********一个关于treeview的,从未有人提过的问题!高手请进.....**********
- 急,一个打印的问题
- dll调用出错!!!!!!!
- TVarData 与 tagVariant 有何不同?
- 自动登陆并且获取用户信息;
语法规则而已。
我来验证一下楼上是正确的
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;