Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Etwas wie Set of String gesucht (https://www.delphipraxis.net/35470-etwas-wie-set-string-gesucht.html)

kiar 7. Dez 2004 19:23

Re: Etwas wie Set of String gesucht
 
und wie nun realisiert?

Johannes Maier 7. Dez 2004 19:53

Re: Etwas wie Set of String gesucht
 
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 8. Dez 2004 03:37

Re: Etwas wie Set of String gesucht
 
jupp, ist der String nicht vorhanden wird laut OH -1 zurückgegeben

maximov 8. Dez 2004 09:42

Re: Etwas wie Set of String gesucht
 
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:


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:15 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz