Etwas wie Set of String gesucht

[Johannes Maier]

Hi,

ich hab da ein Problem (logisch, sonst würd ich ja nicht posten...): Gibt es eine Möglichkeit, so etwas wie ein Set of String zu deklarieren?
Ich habe bestimmte Befehlswörter in einer Tabelle und möchte diese nun in ein Array schreiben, allerdings möchte ich da nicht schreiben:

Delphi-Quellcode:

if sString = 'DEF' or sString = 'ADD' or ...... etc.

sondern eher so:

Delphi-Quellcode:

if sString in Befehle then .....

Aber man kann ja kein Set of String deklarieren, so wie ich das sehe? Wie bekomme ich das hin, eine Menge dieser Befehle (Strings) zu erstellen um dann eine "in"-Abfrage zu machen?

Danke,
Johannes

Btw: Ist es schlimm, wenn ich solche Fragen hier und im DF stelle?

[kiar]

versuche mal

Delphi-Quellcode:

 befehle = array[1..7] of string;

raik

[roderich]

würde einfach eine TStringList vorschlagen und dort die Methode IndexOf

Roderich

[Johannes Maier]

Das mit dem Array teste ich mal, stimmt, dass ich da nicht drauf gekommen bin ;) Das kann ich ja initialisieren :)
Falls das aus dubiosen Gründen nicht funktionieren sollte, werde ich mal TString List versuchen :)

[Johannes Maier]

Wenn ich schreibe:

Delphi-Quellcode:

arrBefehle: Array[0..2] of String = ('DEF', 'OUT', 'END');

dann kann ich aber den in-Operator nicht verwenden :( gibt es da keine Möglichkeit?

[jfheins]

Deklarier dir doch einfach einen eigenen Typ wie z.B. TBefehl dann kannst du set of TBefehl machen ...

[Johannes Maier]

Das hatte ich zuerst gemacht, aber dann brauche ich die doppelte Anzahl an Abfragen, das liegt am Programm, ich muss dann doppelt parsen ;)
Ich versuche es jetzt mit TStringList.

Danke
Johannes

[kiar]

hallo ,

einmal wie juluis es schreibt oder du schreibst dir eine function die dir den string zurückgibt

Delphi-Quellcode:

private
    function get_befehl(Index :integer):string;
....


function tform1.get_befehl(index:integer)string;

begin
     if index in [1..7] then
        result :=befehl[index]
       else
        result := 'kenn dich nicht';
end;

[IngoD7]

Zitat:

Zitat von Johannes Maier

Btw: Ist es schlimm, wenn ich solche Fragen hier und im DF stelle?

Schlimm ist, wenn ich morgen mit dem Auto gegen einen Baum fahre.
Aber gut sind Parallelanfragen nicht gerade ....

[Johannes Maier]

Ok, dann stelle ich sie demnächst nur noch in einem der Foren...
War ja nur, weil es dringend war und schnell gehen musste.