嗨我一直在Delphi 2006中使用此功能，但现在与D2010它引发错误。 我认为它与切换到Unicode有关。 Function TWinUtils.GetTempFile(Const Extension: STRING): STRING;
Var
Buffer: ARRAY [0 .. MAX_PATH] OF char;
Begin
Repeat
我2007年德尔福代码，看起来像这样： procedure WriteString(Stream: TFileStream; var SourceBuffer: PChar; s: string);
begin
StrPCopy(SourceBuffer,s);
Stream.Write(SourceBuffer[0], StrLen(SourceBuffer));
end
我正在慢慢地将现有代码转换为Delphi 2010，并阅读Embarcaedro网站以及MarcoCantú白皮书中的几篇文章。 仍然有一些事情我没有理解，所以这里有两个函数来举例说明我的问题： function RemoveSpace(InStr: string): string;
var
Ans : string;
I : Word;
L : Word;