![]() |
Frage zur Verknüpfung von Buchstaben mit Zahlen
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??? |
Re: Frage zur Verknüpfung von Buchstaben mit Zahlen
Zitat:
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; |
Re: Frage zur Verknüpfung von Buchstaben mit Zahlen
Alternativ könntest du auch ein Array verwenden:
Delphi-Quellcode:
Dann wäre Cipher[1] zum Beispiel "D", also 1 = D;
var
cipher: Array[0..25] of Char = ('B','D','S','F' {usw...} |
Re: Frage zur Verknüpfung von Buchstaben mit Zahlen
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) |
Re: Frage zur Verknüpfung von Buchstaben mit Zahlen
Ja, kann man. Willst du auch wissen wie? :mrgreen:
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; |
Re: Frage zur Verknüpfung von Buchstaben mit Zahlen
Zitat:
Das Problem ist, dass der Buchstabe nicht feststeht
Delphi-Quellcode:
Nur funzt Ord mit Edit28.Text nicht. Kann man da was machen?
Label28.Caption := IntToStr(Ord(Edit28.Text) - 64);
|
Re: Frage zur Verknüpfung von Buchstaben mit Zahlen
Vielleicht so?
Delphi-Quellcode:
Text ist ein String und ord erwarten einen Buchstaben.
Label28.Caption := IntToStr(Ord(Edit28.Text[1]) - 64);
Grüße Klaus |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:04 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz