String in einer bestimmten Länge halten.

[himitsu]

Auffüllen kann man auch mit Format

billig und unoptimal

Delphi-Quellcode:

while Length(s) > 20 do Delete(s, Length(s), 1);
while Length(s) < 20 do s := s + ' ';

einfach

Delphi-Quellcode:

s := Copy(s + '    <<hier die 20 Leerzeichen - leider vernichtet die DP Mehrfachleerzeichen>>    ', 1, 20);
.

hübsch

Delphi-Quellcode:

if Length(s) < 20 then s := s + StringOfChar(' ', 20 - Length(s))
else if Length(s) > 20 then s := Copy(s, 1, 20);