Move und FillChar bei strings.

[Bjoerk]

Ich hab manche Routinen die Geschwindigkeitsoptimiert sind und verwende da deshalb (gelegentlich) eigene Stringlisten (FItems: array of string). Jetzt wollte ich mal fragen ob die Moves und FillChars so richtig sind und ob der Compiler was mit SizeOf(string) anfangen kann?

Delphi-Quellcode:

procedure TMyStringList.Insert(const Index: integer; const Value: string);
var
  N: integer;
begin
  SetCount(FCount + 1);
  if Index < FCount - 1 then
  begin
    N:= (FCount - 1 - Index) * SizeOf(string);
    Move(FItems[Index], FItems[Index + 1], N);
    FillChar(FItems[Index], SizeOf(string), 0);
  end;
  FItems[Index] := Value;
end;

procedure TMyStringList.Delete(const Index: integer);
var
  N: integer;
begin
  if Index < FCount - 1 then
  begin
    N:= (FCount - 1 - Index) * SizeOf(string);
    Move(FItems[Index + 1], FItems[Index], N);
    FillChar(FItems[FCount - 1], SizeOf(string), 0);
  end;
  SetCount(FCount - 1);
end;

[DeddyH]

Lass Dir doch einfach mal den Wert von SizeOf(string) ausgeben, da dürfte 4 bzw. 8 bei herauskommen, da es sich intern ja um einen Pointer handelt.

[Bjoerk]

Ja, bei mir (Ansi) kommt immer 4 raus, ejal wie lang der string ist?
BTW, bei Delete bekomme ich ein Speicherloch!?

[DeddyH]

Ja eben, es ist unter 32 Bit immer 4 (Pointergröße). Um die Größe in Bytes zu ermitteln, müsstest Du die Länge mit SizeOf(char) multipilizieren.

[Bjoerk]

Du meinst bei Fillchar? OK, hab ich geändert. Speicherloch bleibt aber?

  FillChar(FItems[..], Length(FItems[..]) * SizeOf(char), 0);

[nuclearping]

Finalize(FItems[...]); bzw. Finalize(FItems); ?