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.

[kiar]

und wie nun realisiert?

[Johannes Maier]

Mit einer TStringList, ich adde bei OnFormCreate die ganzen Strings. Und bei der Abfrage teste ich, ob der String in der Liste vorhanden ist.

Dabei stellt sich mir gerade noch eine Frage: Falls der String nocht vorhanden ist, dann ist doch IndexOf(dieserString) < 0 oder wie ist das?

[Nothine]

jupp, ist der String nicht vorhanden wird laut OH -1 zurückgegeben

[maximov]

Zitat:

Zitat von 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?

Wenn du es sowieso konstant definierst, dann könntest du tatsächlich besser ein set nehmen:

Delphi-Quellcode:

type
  TBefehl = (b_DEF, b_OUT, b_END);
  TBefehle = set of TBefehl;

const
  arrBefehle: Array[TBefehl] of String = ('DEF', 'OUT', 'END');

Das array benutzt du einfach nur zur umformung und rechnest dann mit den sauberen Sets und Enums. Man kann auch den namen, der elemente, holen und sich das array komplett sparen:

Delphi-Quellcode:

uses typInfo;
...
var b:TBefehl;
...
showMessage(GetEnumName(TypeInfo(TBefehle), integer(b));

allerdings ist das array hier schon ganu praktisch, denn...

Delphi-Quellcode:

showMessage( arrBefehl[b] );

ist halt einfacher. Wollte ich nurmal angemerkt haben. Weil mit strings rechnen ist ungeil :stupid: