Polybius in Delphi umsetzen

[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;