Ok. Thanx. Dann kann man das aber so nicht machen (Integerüberlauf). Ich lass es jetzt sein.
Delphi-Quellcode:
function TMyStringList.MoveBytes(const Index: integer): integer;
var
I: integer;
begin
Result := 0;
for I := Index to FCount - 1 do
Inc(Result, Length(FItems[I]) * SizeOf(Char));
end;