IOC-Code 2 Nationname und zurück

[Coffeecoder]

Zitat von fkerber:

Hi,

sollte man nicht nach einem match auch aus der Funktion rausspringen?
Anderenfalls werden ja im Extremfall noch n-1 ifs verglichen, die alle nur noch false sein können?


LG, Frederic

Dann könntest du gleich mit nem Case arbeiten und dann "exit" nach der Wertzuweisung.

[fkerber]

Hi,

aber case geht doch nur bei Ordinaltypen, oder?


LG, Frederic

[Coffeecoder]

Zitat von fkerber:

Hi,

aber case geht doch nur bei Ordinaltypen, oder?


LG, Frederic

[OT] Da tauchte ich wieder in die Welt von Java (das sollte in der neuen Version funktionieren) [\OT]
Zurück in Delphi hast Recht.
Am besten löst man die Aufgabe wie mkinzler schon gesagt mit ner DB oder XML Datei.
Alles andere ist zu hartkodiert.

[p80286]

wie wäre es mit sowas

Delphi-Quellcode:

function Uebersetzen(const inw:string[3]):string;
begin
 case longint(inw) of 
  longint('ABC'):result:='abcdef'
..

Gruß
K-H

[himitsu]

Delphi-Quellcode:

function Uebersetzen(const inw: String): String;
var 
  S: String[3];
begin
  ZeroMemory(@S, SizeOf(S), 0); // s := #0#0#0;
  S := AnsiString(inv);
  case LongInt(S) of 
    ...

Der Grund ist, daß die ungenutzen Zeichen undefiniert und somit zufällig sind.
Womit die Integer nicht eindeutig sind, was schlecht ist, für den Vergleich.

[Codewalker]

Oder man nutzt die Funktion StrUtils.IndexText . Damit kann man bequem ein case nutzen und das ganze ist auf Wunsch (IndexText <-> IndexStr) auch noch case-insensitive.

Was die n-1 if's angeht: Würde bei sowas nicht die Compileroptimierung zuschlagen? Es dürfte imho durchaus erkennbar sein, dass im jeweiligen Scope nur ein Pfad erfolgreich ist und der Rest ignoriert werden kann.