Hallo es ist zwar schon länger her aber ich hab noch eine Frage:
Wie kann man das abändern sodass man dreispaltig druckenkann?
Delphi-Quellcode:
function PadRight(const s: String; minLength: Cardinal; padChar: Char = ' '): String;
begin
if Length(s) < minLength then
begin
SetLength(Result, minLength);
Move(s[1], Result[1], Length(s));
FillChar(Result[Succ(Length(s))], minLength - Length(s), padChar);
end else Result := s;
end;
Ich hab schon viel ausprobiert aber es gelang mir bisher nicht.
Vielen dank!
Freundliche grüsse
Mars