Gebe ich aber die 10 ein ist Schluss mit Lustig.
Siehe Anhang >>>Fehlermeldung
Es kommt eine Meldung:
[DCC Fehler] Unit1.pas(46): E2010 Inkompatible Typen: 'Char' und 'string'
[DCC Fehler] Project1.dpr(5): F2063 Verwendete
Unit 'Unit1.pas' kann nicht compiliert werden
Delphi-Quellcode:
function getNR(c : char): char;
begin
result := ' '; // Ergebniss initialisieren
case c 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';
'10': result := 'J';
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;
procedure TForm1.Edit1Change(Sender: TObject);
begin
edit1.text := uppercase(edit1.text);
edit1.SelStart := Length(edit1.text);
end;
end.
