Einzelnen Beitrag anzeigen

IceBube

Registriert seit: 9. Jul 2008
157 Beiträge
 
#20

AW: Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht

  Alt 6. Feb 2012, 10:11
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
  Mit Zitat antworten Zitat