String in Ordinalen Datentyp umwandeln?

Delphi7Noob · Hält's aus hier Beiträge: 11 D7 Ent.

Hallo,

Ich muss eine Textdatei auslesen!
z.B. Stein1
Stein2
Stein3
Stein4

Das mache ich mit readln(...) und kriege so jeden einzelnen Stein als String ausgegeben.

Ausserdem habe ich folgenden Typ geschrieben.

markieren

Delphi-Quelltext

1:
2:
3:

type
  TStein = (Stein1,Stein2,Stein3,Stein4); 
  TArray = array [0..7,0..7] of Tstein;

Mein Problem ist das ich nicht weiss wie ich den String, den ich aus der Textdatei erhalte, so umwandeln kann das er dem Ordinaltyp der Menge/Aufzählung TSteine entspricht und ich den dann in den Array schreiben kann.

Gibt es da Möglichkeiten oder muss ich mein ganzes schon geschriebenes Programm der Gegebenheit anpassen(Was viel Arbeit wäre

)?

Wäre für jede Hilfe dankbar.

Viele Grüsse

Moderiert von AXMD: Delphi-Tags hinzugefügt.

BenBE · Verfasst: So 19.06.05 14:53

Das kannst Du mit der Funktion EnumValueToStr in der OIncProcs.pas des Omorphia-Projektes machen.

Der umgekehrte Weg geht dann so hier:

markieren

Delphi-Quelltext

1:	OrdValue := GetEnumNameValue(TypeInfo(TStein), 'Stein1');

P.S.: Dazu musst Du die Unit TypInfo von Delphi einbinden.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Delphi7Noob · Hält's aus hier Beiträge: 11 D7 Ent.

Vielen Dank

, werd das sofort mal testen.

Delphi7Noob · Hält's aus hier Beiträge: 11 D7 Ent.

Getestet und läuft wunderbar!

Nur die Funktion heisst GetEnumValue.

Vielen Dank nochmal.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme