Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht

[blondervolker]

Habe ein Beispielcode von Buchstabe als Zahl.Das funktioniert.
Aber wie bekomme ich hin,dass ich bei Eingabe einer Zahl im Edit1
ein Buchstabe im Edit2 angezeigt bekomme?:oops:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function getNR(c : char): integer;
begin
 result := 0; // Ergebniss initialisieren
 case c of
 'A': result := 11;
 'B': result := 22;
 'C': result := 33;
 'D': result := 55;
 

  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i : INTEGER;
begin
 Label1.Caption := '';
  for i := 1 to length(Edit1.text) do
  begin
    Label1.Caption := Label1.Caption + IntToStr(getNR(Edit1.Text[i]))+' ';
    Edit2.Text := Label1.Caption ;
  end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 edit1.text := uppercase(edit1.text);
 edit1.SelStart := Length(edit1.text);
end;

end.

[Sir Rufo]

In einem Edit steht niemals eine Zahl, sondern wenn überhaupt nur Ziffern als Text, die man in eine Zahl umwandeln könnte

[blondervolker]

Hab ich noch nicht gemacht.Habe heute Stunden damit verbracht
dieses auszuprobieren.Aber leider kein Erfolg.:oops:

Kann mir bitte jemand helfen?
:oops::oops::oops:

[himitsu]

Kennst du die vielen XToX-Funktionen?

z.B. StrToInt :angle:

[wicht]

Um es im Stil deines Beispiels zu lösen könnte es vielleicht so aussehen:

Delphi-Quellcode:

function getNR(c : char): char;
begin
 result := ' '; // Ergebniss initialisieren
 case c of
 '1': result := 'A';
 '2': result := 'B';
 '3': result := 'C';


  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i : INTEGER;
begin
 Label1.Caption := '';
  for i := 1 to length(Edit1.text) do
  begin
    Label1.Caption := Label1.Caption + getNR(Edit1.Text[i])+' ';
    Edit2.Text := Label1.Caption ;
  end;
end;

[Sir Rufo]

Zitat:

Zitat von himitsu (Beitrag 1149254)

Kennst du die vielen XToX-Funktionen?

z.B. StrToInt :angle:

er kennt auf jeden Fall IntToStr
jetzt könnte man ja auch auf die Idee kommen, dass das andersrum auch geht ;)

[blondervolker]

hab ich gerade ausprobiert,ich den veränderten Code.
Aber es kommt immer"Fehler".

Ich sitz seit heute früh an diesen Salat.
Jetzt bin ich komplett durcheinander.Bin ganz ehrlich:
"Es fehlt noch an Wissen"...:oops:

[SirThornberry]

Naja, vielleicht fehlt es auch an Geschick das Problem zu analysieren und zu Beschreiben. Zum Beispiel schreibst du das du einen Fehler bekommst aber nicht welchen und auch nicht mit welchem Quellcode.

[blondervolker]

ich meine diesen Code:

Delphi-Quellcode:

function getNR(c : char): char;
begin
 result := ' '; // Ergebniss initialisieren
 case c of
 '1': result := 'A';
 '2': result := 'B';
 '3': result := 'C';


  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i : INTEGER;
begin
 Label1.Caption := '';
  for i := 1 to length(Edit1.text) do
  begin
    Label1.Caption := Label1.Caption + getNR(Edit1.Text[i])+' ';
    Edit2.Text := Label1.Caption ;
  end;
end;

[himitsu]

Es fehlt immernoch die Fehlermeldung/-beschreibung und eventuell noch die Codezeile des Fehlers.