Zitat von
smart:
...Vielen Dank für Deine Mühe. Da bekomme ich Fehlermeldungen:
Ups... da habe ich mich beim tippen der Funktion vertippelt
Delphi-Quellcode:
function PadR(aValue: string; aLen: byte; aFill: char): string;
//right pads a string with spaces
begin
Result := aValue + StringOfChar(aFill, aLen - Length(aValue));
end;
@marabu: Mist. Das Blank in dem einen Text habe ich übersehen. Ich dachte es wäre keine da. Dann würde es nämlich gehen.
Stephan B.
"Lasst den Gänsen ihre Füßchen"