String in einer bestimmten Länge halten.

[smart]

Hallo Alle!

Wie kann man einen String auf einer bestimmten Länge halten. Der String soll 20 Buchstaben lang sein. Wenn es zu klein ist, soll er mit Lehrzeichen aufgefüllt werden und wenn er zu groß ist, soll er abgeschnitten werden. In der Delphi-Hilfe habe ich keine Routine gefunden.

[Luckie]

Selber schreiben.

Aber was sind Lehrzeichen? Zeichen von einem Lehrer an der Tafel?

[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);

[vergessen]

An den String 20 Leerzeichen dranhängen und vom Ergebnis immer nur die ersten 20 Zeichen nehmen?

[smart]

Zitat von Luckie:

Aber was sind Lehrzeichen? Zeichen von einem Lehrer an der Tafel?

Nein, im Hausheft

[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.