Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
30. Mär 2010
Length(text) gibt noch die alte Länge, inkl. der Leerzeichen an, wärend die "neue" Länge nötig wäre.
function buchstaben5ergruppen(const text: string): string;
var i: Integer;
begin
Result := StringReplace(Text, ' ', '', );
for i := (Length(Result) - 1) div 5 downto 1 do
Insert(' ', Result, i * 5 + 1);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
29. Mär 2010
Erstens ein String hat einen 1-basierenden Index. :warn:
for i := 0 to und i*5 ergeben aber als ersten Wert eine 0, also müßte überall +1 hinzu.
Außerdem willst du doch nur gruppieren/unterteilen und dann benötigst du keine Leerzeichen an erster Stelle und unter Umständen auch nicht an letzter Stelle.
Wenn du von Vorne bis Hinten durchgehst und enfügst, dann wird der String um die...