Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
5. Okt 2002, 17:34
Versuch es mal damit:
Delphi-Quellcode:
function StrAlloc(Size: Cardinal): PChar;
begin
Inc(Size, SizeOf(Cardinal));
GetMem(Result, Size);
Cardinal(Pointer(Result)^) := Size;
Inc(Result, SizeOf(Cardinal));
end;
Michael Ein Teil meines Codes würde euch verunsichern.
|