Polybius in Delphi umsetzen

[Zorenda]

Hallo zusammen,

das ist mein erster Beitrag hier, ich weis nicht mal ob ich im richtigen Bereich bin, entschuldigt ggf. wenn ich falsch bin :-D.
Ich habe von meiner Informatik-Lehrerin (MSS13) aufbekommen, ein Programm zu schreiben, dass fähig ist, eine Eingabe mithilfe der
Polybius-Matrix in Zahlen umzuwandeln und umgekehrt. Das Problem: Seit 2 Jahren üben wir Delphi nicht mehr, haben es auch nur ober-
flächlich mal angekratzt. :?

Hat irgendjemand einen einfach (!) Quellcode dafür? Ich muss es (wenn ich Pech) hab erklären müssen, deshalb würde ich mich um eine
sehr simple Umsetzung freuen:thumb:. Versteht mich nicht falsch, aber ohne Übung und mit einem Haufen anderer Sachen um die Ohren ist
das eine Qual:|

Vielen Dank :wink: !

[Klaus01]

Hallo,

nun ich denke machen wirst Du es schon selber müssen..
Deine Zensur..

Wiki zeigt, dass es sich hier um
eine 5x5 Matrix (Array[1..5,1..5] of char) handelt.
Adressiert werden die Zellen durch ihren Zeilen- und Spalten-Indices.

Grüße
Klaus

[Jumpy]

Einfach ein Formular erstellen mit einem Edit-Feld für die Eingabe, einem Label für die Ausgabe und evtl. ein Optionsfeld um zw. Codieren und Decodieren zu wählen. Dann Funktionen erstellen, die das hin und her Übersetzen erledigen. Mal der Versuch eines Anfangs:

Delphi-Quellcode:

function TextToChiffre(InputText:String):String;
var i:integer;
    temp:String;
begin
  temp:='';
  for i:=1 to Length(InputText) do
    temp:=temp+CharToChiffre(InputText[i])+' ';
  Result:=Trim(temp);
end;

function CharToChiffre(InputChar:Char):String;
begin
  //Hier was elegantes finden (schau mal was der Klaus gesagt hat) oder Fleißarbeit:
  if InputChar='A' then
    Result:='11'
  else if InputChar='B' then
    Result:='12'
  //usw.
end;

function ChiffreToText(InputChiffre:String):String;
begin
//analog, wobei hier definitiv Klaus Tipp helfen könnte
end;

[Zorenda]

Danke für die schnellen Antworten, ich probiere es gleich mal aus!