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

Dynamischen String exakt nach ShortString kopieren

Dynamischen String exakt nach ShortString kopieren

Forumregeln