var
ss,s: string;
begin
ss := 'CodeGear Delphi 2007';
SetString(s,PChar(ss),4);
ShowMessage(s); {Code}
end;
var
s: string;
arr: array[0..6] of Char;
i: Integer;
begin
for i := 0 to 6 do
arr[i] := Chr(i + 65);
ShowMessage(arr); {ABCDEFG}
SetString(s, PChar(@arr), 3);
ShowMessage(s); {ABC}
end;
System 单元下的公用函数目录
举例:
转载于:https://my.oschina.net/hermer/blog/320262