Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht

[Coffeecoder]

Hi, suchst du möglicherweise nicht nach den Funktionen ord() und chr() ?

[Wolfgang Mix]

Mit dem Vorschlag von DeddyH dürfte auch die 10 funktionieren

[IceBube]

Also wenn ich das richtig verstanden hab, geht das auch einfacher, mit weniger Zeilen

Delphi-Quellcode:

function ZahlToNr(Str: Char) : Integer;
var
 abc : String;
begin
 //Buchstabe in Zahl
 abc := 'abcdefghijklmnopqrstuvwxyz';
 Result := Pos(LowerCase(Str), abc);
end;

function NrToZahl(StrZ:Integer) : String;
var
 abc : String;
begin
 //Zahl in Buchstabe
 abc := 'abcdefghijklmnopqrstuvwxyz';
 Result := abc[StrZ]; 
end;

lg