Delphi中String当数组用,多余的空格去除

var
s:string;
begin
SetLength(s,256);
GetWindowsDirectory(PChar(s),256);
ShowMessage(IntToStr(Length(s))); //Length(s) 256
ShowMessage(IntToStr(StrLen(PChar(s))));//StrLen(PChar(s))10
//SetLength(s,StrLen(PChar(s))); //没有这句,会有一堆的空格
ShowMessage(s);
end;

上一篇:(6)v-if ;v-else-if ;v-else的实例


下一篇:曾经被忽视的两个小功能