Mindestbreite mit Format

[meisteralex]

Hi ich möchte mit Format einen String ausgeben, welcher mit leerzeichen aufgefüllt wird um eine bestimmte mindestbreite zu haben
wie mache ich das ?

[Corpsman]

Gib deinen Format String in einen Normalen String

und mache so was in der Art

Delphi-Quellcode:

While Textwidth(String) <= Laenge do
String := ' ' + String;

[Sharky]

Zitat von meisteralex:

.... wie mache ich das ?

Hai meisteralex,

am besten machst Du das in dem Du dafür eine eigene Funktion "schreibst". In diesem Thread findest Du einen passenden Code.

[Hawkeye219]

Hallo,

wenn es unbedingt mit Format durchgeführt werden soll, dann geht das auch:

Delphi-Quellcode:

var
  Text       : string;
  Feldbreite : Integer;
  Ausgabe    : string;
begin
  Text := 'Hallo Welt!';
  Feldbreite := 30;
  Ausgabe := Format('%*s', [Feldbreite, Text]);  // rechtsbündig
  Ausgabe := Format('%-*s', [Feldbreite, Text]); // linksbündig
end;

Gruß Hawkeye

[himitsu]

Immer diese Schleifchen

Aber das mit'm Format ist gut.

Delphi-Quellcode:

// linksbündig
S := StringOfChar(' ', Laenge - Length(S)) + S

// rechtsbündig
S := S + StringOfChar(' ', Laenge - Length(S));

// mittig
i := Laenge - Length(S);
S := StringOfChar(' ', i div 2) + S + StringOfChar(' ', i - i div 2);

[add]
ups, Sharky in diesem Thread übersehn