Alignment in String umwandeln

[HolgerCW]

Hallo zusammen,

ich möchte ein Alignment (z.B. taCenter) als String zwischenspeichern.

Wie kann ich ein Alignment in einen String umwandeln ? Und wie kann ich es wieder von String auf Alignment umwandeln ?

Gruss

Holger

[Meflin]

Dafür wird es keine Funktion geben -> selbst schreiben, also in etwa

Delphi-Quellcode:

function AlignmentToStr(Al: TAlignment): string;
begin
  case Al of
    taCenter: Result := 'zentriert';
    ...
  end;
end;

[Bernhard Geyer]

Zitat:

Zitat von Meflin

Dafür wird es keine Funktion geben -> selbst schreiben, also in etwa

Freilich gibt es das. Ansonsten würde die IDE ja ihre DFM-Dateien nicht schreiben können. In der Unit TypInfo.pas sind entsprechende Funktionen für sowas vorhanden.

[Zoot]

So was in der Art?

Delphi-Quellcode:

CONST TAlignmentStrings : Array [TAlignment] of String[14] =
('taLeftJustify', 'taRightJustify', 'taCenter');

 s := TAlignmentStrings[aLabel.Alignment];

[HolgerCW]

Vielen dank.

Beide Möglichkeiten klappen gut.

[Zoot]

Allgemeiner wäre halt:

Delphi-Quellcode:

 S := GetEnumName(TypeInfo(Talignment), Ord(Label1.Alignment));

[himitsu]

Zitat:

Zitat von Zoot

Allgemeiner wäre halt

ich hoffe dieser Befehl bindet dann auch immer die nötigen RTI-Daten mit ein,
denn diese Namen werden normaler Weise nicht mit im Programm gespeichert.