Forum: Object-Pascal / Delphi-Language
Delphi
by Shaman,
1. Aug 2004
Ich habs schliesslich selbst rausgefunden :wink:. So gehts ein bisschen schneller:
procedure InsertBuffer(var Dest: PChar; const DestSize: Integer;
const Buffer: PChar; const BufferSize: Integer; const Index: Integer);
var
Dest2: PChar;
begin
GetMem(Dest2, BufferSize + DestSize);
Move(Dest^, Dest2^, Index);
Move(Buffer^, (Dest2 + Index)^, BufferSize);
Forum: Object-Pascal / Delphi-Language
Delphi
by Shaman,
31. Jul 2004
Das kann man doch besser machen? So ist es verdammt langsam :(
Forum: Object-Pascal / Delphi-Language
Delphi
by Shaman,
30. Jul 2004
Hallo zusammen
Ich habe folgende zwei Funktionen:
function InsertBuffer(var Dest: PChar; const DestSize: Integer;
const Buffer: PChar; const BufferSize: Integer; const Index: Integer): Integer;
var
S: string;
begin
SetString(S, Dest, DestSize);