Hallo,

gibt es eine "format-ähnliche" Anweisung mit der ich die länge eines String durch Leerzeichen bestimmen kann?
Hintergrund ist folgender:
Ich habe ein StringGrid und möchte einige Spalten in eine Textdatei speichern.
Damit diese dann tabellenartig aufgebaut ist, müssen alle Elemente einer Spalte die gleiche Länge haben.
Habe bisher ne wilde Schleifenkonstruktion, die nicht ganz arbeiten will.
Arbeite erstmal daran weiter, wäre aber echt dankbar, wenns ne elegantere Lösung gäbe.


MFG
Steffen

Hallo,

DupeString aus der unit StrUtils macht das gewünschte.

Hallo,

oder was formatähnliches Format

markieren

Delphi-Quellcode:

Format('%42s',['Delphi']);
//oder
Format('%-42s',['Delphi']);

Format....

Danke...

MFG
Steffen

Zitat von Gollum:

Hallo,

DupeString aus der unit StrUtils macht das gewünschte.

Das ist wohl nicht ganz das Gesuchte.

Zitat von Delphi7-Hilfe:

Die Funktion gibt die mehrfache Verkettung eines Strings mit sich selbst zurück. Die Anzahl der Wiederholungen kann angegeben werden.

Unit

StrUtils

Kategorie

String-Verarbeitung

Delphi-Syntax:

function DupeString(const AText: string; ACount: Integer): string;

C++ Syntax:

extern PACKAGE AnsiString __fastcall DupeString(const AnsiString AText, int ACount);

Beschreibung

DupeString gibt einen String zurück, der ACount Wiederholungen des Strings AText enthält. Ein Beispiel:

S := DupeString('Ha', 5);

Diese Anweisung gibt den String 'HaHaHaHaHa' zurück.

Könnte man : s:=Format('%3s',[Grid1.Cells[0,zeile]]) dynamischer gestalten?
Habe versucht, die Formatierungsangabe durch einen String zu ersetzen...mag er nicht.
Idealerweise so:

markieren

Delphi-Quellcode:

feld[1]:='3';

s:=Format('%'+feld[1]+'s',[sg1.Cells[0,zeile]]);

Wie gesagt...,mag er nicht -> inkopatible Typen...Ordinalty erforderlich.

MFG
Steffen

Zitat von WIng2005:

markieren

Delphi-Quellcode:

feld[1]:='3';

s:=Format('%'+StrToInt(feld[1])+'s',[sg1.Cells[0,zeile]]);

Wie gesagt...,mag er nicht -> inkopatible Typen...Ordinalty erforderlich.

MFG
Steffen

Vielleicht so, siehe oben.

Grüße
Klaus

hatte strtoint statt inttostr.... mein Fehler.

MFG

Steffen

Zitat von WIng2005:

Hallo,

gibt es eine "format-ähnliche" Anweisung mit der ich die länge eines String durch Leerzeichen bestimmen kann?
Hintergrund ist folgender:
Ich habe ein StringGrid und möchte einige Spalten in eine Textdatei speichern.
Damit diese dann tabellenartig aufgebaut ist, müssen alle Elemente einer Spalte die gleiche Länge haben.
Habe bisher ne wilde Schleifenkonstruktion, die nicht ganz arbeiten will.
Arbeite erstmal daran weiter, wäre aber echt dankbar, wenns ne elegantere Lösung gäbe.


MFG
Steffen

while length (mystring) < newlength do insert (' ',mystring,length(mystring+1)); Gruss Reinhard

Hallo,

kleiner Tipp noch:

markieren

Delphi-Quellcode:

var
  FeldBreite: array of Integer;
  iSpalte, iZeile: Integer;
begin
  // ...
  s := Format('%*s', [FeldBreite[iSpalte], Grid.Cells[iSpalte, iZeile]]);
  // ...
end;

Grüße vom marabu