Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht

[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.

[blondervolker]

Entschuldigung.Ich bin der "PENNER"

Ich seh den Wald vor Bäumen nicht mehr...

Hatte nicht alles in den Code geändert.

ES FUNKTIONIERT EINWANDFREI!!!! DANKE

[blondervolker]

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.

[Romiox]

Weil die 10 sich zusammensetzt aus 1 und 0, das erkennst du aber nicht.
Du schaust dir jedes Zeichen einzeln an, und dann kommt er genau bis
1 2 3 4 5 6 7 8 9 1 <--- Alle Bekannt. Dann kommt: 0. Für 0 gibt getNR()
aber nix zurück. Schlimmer noch, getNR gibt nicht '' zurück, sondern
schickt einfach einen Fehler, dass mit der Eingabe nix angefangen werden
kann.


Eine Möglichkeit wäre, den String immer in Pärchen auszulesen, und
dann 01 02 03 etc zu nutzen.

Delphi-Quellcode:

for i := 1 to (length(Edit1.text)-1) do
  begin
    Label1.Caption := Label1.Caption + getNR(Edit1.Text[i]+Edit1.Text[i+1])+' ';
    Edit2.Text := Label1.Caption ;
  end;

[blondervolker]

Nee ich wollte jeder Zahl einen einzelnen Buchstaben zuweisen.
Mehr nicht.Aber ab hier '10': result:= 'J'; kommt dann die Meldung:

[DCC Fehler] Unit1.pas(46): E2010 Inkompatible Typen: 'Char' und 'string'

Bin kein Profi...



'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';

Hier ist nochmal der gesamte Code:

Delphi-Quellcode:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

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';
 
    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.Button2Click(Sender: TObject);
begin
Edit2.SelectAll;
Edit2.CopyToClipboard;
Edit3.PasteFromClipboard;
Clipboard.Clear;
end;

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

end.