Umkehrung von if-Schleifen

[Nicolai1234]

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?

[Luckie]

Was willst du machen bzw. was soll das werden?

[Nicolai1234]

Das soll zur verschlüsselung von strings dienen.
Ich weiß, dass es schon fertige Funktionen gibt, aber ich wollte mal eine eigene machen

[axelf98]

Nimm dir 2 Arrays: Den einen füllst du mit A,a,B; den anderen mit 0001,1001.. - Dann kannst du mit dem folgenden Code arbeiten:

Delphi-Quellcode:

var
 Teil1,Teil2 : Array[1..64] of String;
begin

procedure fuellen;
begin
Teil1[1] := 'A';
Teil1[2] := 'a';
Teil1[3] := 'B';
...

Teil2[1] := '10001';
Teil2[2] := '10011';
Teil2[3] := '10100';
...
end;

function Verschluesseln(Bstb:String):String;
var i: integer;
begin
 result := ' ';
 for i := 1 to 64 do
  if Bstb = Teil1[i] then result := Teil2[i];
end;

function Entschluesseln(Schnipsel:String):String;
var i: integer;
begin
 result := ' ';
 for i := 1 to 64 do
  if Schnipsel = Teil2[i] then result := Teil1[i];
end;

[Nicolai1234]

Danke, dann muss ich "nur"noch die procedure fuellen schreiben...

[jbg]

...Und lernen, dass es keine IF-Schleifen gibt, denn eine Schleife wiederholt etwas. Und was wird bei IF-Anweisungen bitte schön wiederholt?

[Nikolas]

Zitat von jbg:

...Und lernen, dass es keine IF-Schleifen gibt, denn eine Schleife wiederholt etwas. Und was wird bei IF-Anweisungen bitte schön wiederholt?

Ich würde sagen, dass man eine While-Schleife schon als eine Art If-Schleife sehen kann, da ja da die Anzahl der ausführungen auch an das Ergebniss einer 'If-Abfrage' gekoppelt ist

[Nicolai1234]

Nach einem if kann das nächste Sprungziel then oder else sein. Also ist die if-Konstruktion eine Verzweigung und ich sehe eine Verzweigung auch als Schleife.

Wenn ich meinen Schuh mit einer Schleife zu mache, ist das ja auch keine ständige Wiederholung, sonst wäre das Laufen ja eine Qual. (wobei ich eh lieber mache)

[Nikolas]

Zitat:

Nach einem if kann das nächste Sprungziel then oder else sein. Also ist die if-Konstruktion eine Verzweigung und ich sehe eine Verzweigung auch als Schleife.

Warum soll das den eine Schleife sein? Bei einer Schleife kommst irgendwann wieder da an wo du schon mal warst, bei einer if-Verzweigung kommst du nie wieder da an wo du schon mal warst,

Zitat:

sonst wäre das Laufen ja eine Qual.

Nach jeder Kreuzung wieder da ankommen, von wo ich losgefahren bin.

Zitat:

Wenn ich meinen Schuh mit einer Schleife zu mache, ist das ja auch keine ständige Wiederholung, sonst wäre das Laufen ja eine Qual

Hach wie herrlich ungenau ist doch die Sprache wenn's um manche Dinge geht

[Luckie]

Könnten wir bitte wieder zum eigentlichen Problem zurückkehren?