Dynamischen String exakt nach ShortString kopieren

[Dr.MAD]

Hallo,

Diese Prozedur leert vohrer den ShortString bevor dieser mit einem dyn. String gefüllt wird.

Delphi-Quellcode:

procedure CopyStringExactly(const Source: String; var Dest: ShortString);
var X,
    DestLen: Integer;
begin
  // Gesamtgröße des Statischen Strings erfassen
  DestLen:=SizeOf(Dest)-1;
  // Dest-String von Anfang bis Ende leeren
  for X:=0 to DestLen do Dest[X]:=#0;
  // String kopieren
  if DestLen<Length(Source) then Dest:=Copy(Source,1,DestLen) else Dest:=Source;
end;

Benötigt wird dies z.B., wenn Records (mit ShortStrings) mittels CompareMem verglichen werden.

Kopiert man mittels ShortString:=String können Datenfraqmente in ShortString entstehen, wenn der vorhergehende Wert in ShortString länger war als der neue Wert.

Wenn es schnellere Lösungen gibt, bitte ich um Antwort. Mit ist nichts Besseres eingefallen.

Gruß MAD

[mkinzler]

Setze ShortString:= String +#0;

[jfheins]

Zitat von mkinzler:

Setze ShortString:= String +#0;

Dürfte nicht helfen. Allerdings liegt mmn der fehler beim vergleichen, daher ist auch der name der funktion irreführend.

Schreibe eine methode die 2 records auf gleichheit überprüft. Dann kannst du auch nicht bei einer zuweisung vergessen, die spezialkopierfunktion aufzurufen

[Luckie]

Zitat von Dr.MAD:

Wenn es schnellere Lösungen gibt, bitte ich um Antwort. Mit ist nichts Besseres eingefallen.

ZeroMemory?

[DeddyH]

FillChar? Allerdings habe ich mir die Implementation jetzt nicht angeschaut, möglicherweise wird dort auch eine Schleife oder ZeroMemory benutzt.

[himitsu]

ZeroMemory nutzt FillChar
Und dieses FillChar ist etwas optimiert und seit 'ner Weile noch mehr optimiert (seitdem das FastCode-Projekt in Delphi integriert wurde)

[Luckie]

Ist es nicht eher umgekehrt? ZeroMemory ist eine Windows API-Funktion und FillChar eine Delphi-Funktion.

[himitsu]

ZeroMemory ist ein C-Makro (mit einer Löschschleife)

FillChar ist die "native" Prozedur, um einen Speicherbereich mit Irgendwas ('nem Byte) zu füllen.

ZeroMemory => FillChar + 0

[Luckie]

OK, überredet.

[himitsu]

keine Sorge ... dachte auch mal ZeroMemory wäre eine Funktion/API ... und dann suchte ich verzweifelt nach der SecureZeroMemory-API, welche es nicht gibt