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