Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht

[DeddyH]

Ein Char = ein einzelnes Zeichen, "10" sind aber nunmal 2 Zeichen, deshalb die völlig korrekte Meldung.

[blondervolker]

Und was kann ich da machen, das man es funktionsfähig bekommt?

Hab "Widechar" genommen,geht auch nicht.

Habe im "Delphi" 7 Buch nachgelesen, aber nix gefunden.

Bitte kann jemand helfen?

Ich komme absolut nicht weiter...

[DeddyH]

Ich weiß zwar immer noch nicht so genau, was Du vorhast, aber evtl. klappt es so:

Delphi-Quellcode:

function getNR(const ZahlStr: string): char;
var
  Zahl: integer;
begin
  Result := ' ';
  if TryStrToInt(ZahlStr, Zahl) then
    case Zahl of
      1: result := 'A';
      2: result := 'B';
      3: result := 'C';
      4: result := 'D';
      5: result := 'E';
      6: result := 'F';
      7: result := 'G';
      8: result := 'H';
      9: result := 'I'; 
    end
  else
    //Fehlermeldung ausgeben oder etwas in der Art
end;

[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