function LogInDeviceVar(DeviceVarName: PChar; DeviceVar: PChar) : Integer; var Str : String; I : Integer; begin Str := ''; For I := 0 to 199999 do begin Str := Str + '1'; end; Move(@Str, DeviceVar^, Length(Str) + 1); result := 0; end; 为什么字符串Str长度小的时候可以,长度大了不可以呢?