case string of (ordinale Typen)

[meximum]

Hallo!

Wie löst ihr das problem?

Ich wollte eine auswertung mit case string of durchführen.
case erlaubt jedoch keine String-Typen. bleibt mir da wirklich nichts anderes übrig
als xx-mal if then else schleifen zu benutzen?

Gruss

meximum

[Hansa]

geht das nicht mit einem Aufzählungstyp ? Sind die Strings variabel und erst zur Laufzeit bekannt, kannst Du das CASE sowieso vergessen.

[meximum]

ja, es wären ressourcenstrings. okay, danke - bleibt mir wohl nichts anderes übrig :-D
Gruss

meximum

[choose]

Du könntest den String auf einen Hash-Wert abbilden

Delphi-Quellcode:

case Hash(AString) of
  Hash('foo'): //...
  Hash('bar'): //...
else
  //...
end;

dabei könnten die Hash-Werte der Möglichkeiten auch vorbereichnet werden, weil Konstant

Delphi-Quellcode:

_foo:= Hash('foo');
_bar:= Hash('bar');
//...
case Hash(AString) of
  _foo: //...
  _bar: //...
else
  //...
end;

Nachteil: Nicht eineindeutig, also können verschiedene Strings uU auf den selben Hash-Wert abgebildet werden (hier müsste dann eine erneute Prüfung durchgeführt werden).

Ein anderer Ansätz wäre, die Möglichkeiten als geordnete (ich meine nicht sortiert!) Menge (Array) an eine Funktion zu übergeben, die den String in dieser Menge sucht und dessen Index zurückgibt:

Delphi-Quellcode:

case GetIndexOf(AString, ['foo', 'bar']) of
   0: //...
   1: //...
else
  //...
end;

Nachteil: Mit steigender Cardinalität der Menge ist der Zusammenhang von Index und Wert relativ schwer zu überschauen, darüber hinaus nimmt die Performance linear ab, während sie bei einer Hash-Funktion konstant bleibt.

[DocMucki]

Vieleicht so:

http://www.delphipraxis.net/internal...ect.php?p=4083

DocMucki