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;

[smart]

Vielen Dank, an Euch Alle. Da fällt die Entscheidung schwer was man nehmen soll.

[DeddyH]

Naja, wenn es sich um eine Hausaufgabe handelt, würde ich an Deiner Stelle das nehmen, was ich am ehesten verstehe und auch erklären kann

[Namenloser]

Oder hier als kurzer Einzeiler: S := Format('%-20.20s', [S]) Das Minus kann man weglassen, in dem Fall wird der String rechtsbündig ausgerichtet.

[DeddyH]

Damit werden zu lange Strings aber nicht abgeschnitten.

[Namenloser]

Zitat von DeddyH:

Damit werden zu lange Strings aber nicht abgeschnitten.

Stimmt, hab ich übersehen. Aber das geht auch: S := Format('%-20.20s', [S])

[DeddyH]

Jepp, Format hate himitsu ja bereits erwähnt, dafür ist meine Variante flexibler, was das Füllzeichen angeht. Nun kommt es darauf an, was der Lehrer erwartet hat

[mkinzler]

Dann sorgt man halt anschlieessend dafür (Copy() o.ä)

[Bummi]

@NamenLozer
gefällt mir am besten...