Einzelnen Beitrag anzeigen

Nicolai1234

Registriert seit: 21. Feb 2004
1.008 Beiträge
 
Turbo Delphi für Win32
 
#1

Umkehrung von if-Schleifen

  Alt 7. Apr 2004, 20:51
Ich habe einen Block aus 64 if-Abfragen:
Code:
if s = 'A' then result := '1001010';
if s = 'a' then result := blabla1;
if s = 'B' then result := blabla2;
if s = 'b' then result := blabla3;
if s = 'C' then result := blabla4;
if s = 'c' then result := blabla5;
if s = 'D' then result := blabla6;
if s = 'd' then result := blabla7;
if s = 'E' then result := blabla8;
...
Nun möchte ich die ganze Sache auch umgekehrt haben. Also:
Code:
if s = 'A' then result := '1001010';
if s = blabla1 then result := 'A';
if s = blabla2 then result := 'a';
...
Gibt es da eine Möglichkeit, dass ich nicht alles neu schreiben muss. Eine umgekehrte if-Schleife sozusagen?
  Mit Zitat antworten Zitat