String in einer bestimmten Länge halten.

[DeddyH]

Ich hätte auch noch einen Vorschlag:

Delphi-Quellcode:

uses math;

function StringOfLength(const s: string; Len: Cardinal; CharToFill: Char = #32): string;
var i: integer;
begin
  Result := StringOfChar(CharToFill,Len);
  for i := 1 to Min(Len, Length(s)) do
    Result[i] := s[i];
end;