Frage zur Verknüpfung von Buchstaben mit Zahlen

[Bassel]

Hallihallo

ich arbeite zur Zeit an einem kleinen Verschlüsselungsprogramm von Nachrichten, bei
dem jeder Buchstabe einen gewissen Zahlenwert hat, mitdem weiter gerechnet wird

z.B. A hat den Wert 1, B 2 usw.

wie kann man die am Besten verknüpfen???

[IngoD7]

Zitat von Bassel:

z.B. A hat den Wert 1, B 2 usw.

wie kann man die am Besten verknüpfen???

Was meinst du mit Verknüpfen? Wie man am besten vom Buchstaben 'A' auf 1 kommt und von 'B' auf 2 usw.?

Wenn es wirklich fortlaufend A-1, B-2, ..., Z-26 sein soll, dann z.B. so:

Delphi-Quellcode:

var
  Buchstabe : Char;
  Wert : integer;
begin
  Wert := Ord(Buchstabe)-64;
end;

[Daniel G]

Alternativ könntest du auch ein Array verwenden:

Delphi-Quellcode:

var
cipher: Array[0..25] of Char = ('B','D','S','F' {usw...}

Dann wäre Cipher[1] zum Beispiel "D", also 1 = D;

[Bassel]

Jo danke schön für die Antworten.

Ich hab schon früher mal mit Delphi angefangen,
jedoch aufgehört, um jetzt weiterzumachen. Ich wähle in der Schule Informatik. (in Delphi natürlich)

Nun kam mir noch eine andere Frage:

Kann man die Zahl 15 (z.B.) in einem Label unter einander anzeigen lassen,
oder kann man alternative die 1 in einem Label und die 5 in einem Label
anzeigen lassen? (Dann könnte man die Label einfach untereinander setzen)

[jaenicke]

Ja, kann man. Willst du auch wissen wie?

Delphi-Quellcode:

var
  i: Integer;
  Wert: String;
begin
  Wert := '123456';
  for i := Length(Wert) downto 1 do
    Insert(#13#10, Wert, i);
  Label1.Caption := Wert;

[Bassel]

Zitat von IngoD7:

Delphi-Quellcode:

var
  Buchstabe : Char;
  Wert : integer;
begin
  Wert := Ord(Buchstabe)-64;
end;

Ich hab da nochmal eine Frage:

Das Problem ist, dass der Buchstabe nicht feststeht


Label28.Caption := IntToStr(Ord(Edit28.Text) - 64); Nur funzt Ord mit Edit28.Text nicht. Kann man da was machen?

[Klaus01]

Vielleicht so?

Label28.Caption := IntToStr(Ord(Edit28.Text[1]) - 64); Text ist ein String und ord erwarten einen Buchstaben.

Grüße
Klaus