Delphi-Quellcode:
while Mem.Position < Mem.Size do
begin
Mem.Read(Buf, 1);
S := S + Chr(Buf); // <---<<<
Data[i] := Chr(Buf); // <---<<<
Inc(i); // <---<<<
end;
StrPCopy(Data, S);
Äh, versteh ich jetzt auch nicht so recht.
Delphi-Quellcode:
GetMem(Data, Mem.Size +1);
Mem.Seek(soFromBeginning, 0); // ggf. Reset zu Pos 0 im File
while Mem.Position < Mem.Size do
begin
Mem.Read(Buf, 1);
S := S + Chr(Buf);
end;
StrCopy(Data, PChar(S)); // bzw. StrPCopy() oder MyPChar := @S[1];
FreeMem(Data);
Was ist denn Buf,
ein Byte ? Und muss es PChar sein ?
Sollte es doch tun, oder ?
