Problem verstanden.
Was hältst du davon, alle anderen Memo-Zeilen mit dem Format-Befehl zu formatieren, das heißt, sie auf die gleiche Länge zu bringen wie deine maßgebliche Zeile?
Format-Befehl:
Zitat:
s -> String. Das Argument muss ein Zeichen, ein String oder ein PChar-Wert sein. Der String bzw. das Zeichen wird anstelle des Formatbezeichners eingefügt. Wenn im Format-String ein Genauigkeitsbezeichner angegeben ist, bestimmt er die maximale Länge des resultierenden Strings. Ist das Argument ein String, der diese Maximallänge überschreitet, wird der String abgeschnitten.
Achtung: Um das Auffüllen mit Leerzeichen zu erzwingen muss du den Wert für "precision" auch noch angeben.
Beispiel:
Delphi-Quellcode:
var
NamensZeile : String;
FormatString : String;
IrgendEineZeile : String;
LenName : Integer;
begin
LenName:=Length(NamensZeile);
FormatString:='%'+IntToStr(LenName){Wichtig!}+'.'+IntToStr(LenName){Wichtig!}+'s';
IrgendEineZeile:=Format(FormatString,[IrgendEineZeile]);
end;