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.

Selber schreiben.

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

Auffüllen kann man auch mit Format

billig und unoptimal

markieren

Delphi-Quellcode:

while Length(s) > 20 do Delete(s, Length(s), 1);
while Length(s) < 20 do s := s + ' ';

einfach

markieren

Delphi-Quellcode:

s := Copy(s + ' <<hier die 20 Leerzeichen - leider vernichtet die DP Mehrfachleerzeichen>> ', 1, 20);
.

hübsch

markieren

Delphi-Quellcode:

if Length(s) < 20 then s := s + StringOfChar(' ', 20 - Length(s))
else if Length(s) > 20 then s := Copy(s, 1, 20);

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

Zitat von Luckie:

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

Nein, im Hausheft

Ich hätte auch noch einen Vorschlag:

markieren

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;

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

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

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

Damit werden zu lange Strings aber nicht abgeschnitten.