Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Frage zur Verknüpfung von Buchstaben mit Zahlen (https://www.delphipraxis.net/85720-frage-zur-verknuepfung-von-buchstaben-mit-zahlen.html)

Bassel 3. Feb 2007 22:29


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???

IngoD7 3. Feb 2007 22:54

Re: Frage zur Verknüpfung von Buchstaben mit Zahlen
 
Zitat:

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 3. Feb 2007 23:03

Re: Frage zur Verknüpfung von Buchstaben mit Zahlen
 
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 4. Feb 2007 09:59

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)

jaenicke 4. Feb 2007 10:07

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;

Bassel 5. Feb 2007 14:26

Re: Frage zur Verknüpfung von Buchstaben mit Zahlen
 
Zitat:

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


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

Klaus01 5. Feb 2007 14:29

Re: Frage zur Verknüpfung von Buchstaben mit Zahlen
 
Vielleicht so?

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

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