Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht (https://www.delphipraxis.net/166252-buchstaben-als-zahl-geht-aber-zahl-zu-buchstabe-geht-nicht.html)

blondervolker 4. Feb 2012 14:15

Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht
 
Liste der Anhänge anzeigen (Anzahl: 1)
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 4. Feb 2012 14:22

AW: Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht
 
In einem Edit steht niemals eine Zahl, sondern wenn überhaupt nur Ziffern als Text, die man in eine Zahl umwandeln könnte

blondervolker 4. Feb 2012 21:00

AW: Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht
 
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 4. Feb 2012 21:16

AW: Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht
 
Kennst du die vielen XToX-Funktionen?

z.B. Delphi-Referenz durchsuchenStrToInt :angle:

wicht 4. Feb 2012 21:20

AW: Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht
 
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 4. Feb 2012 21:25

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

Zitat von himitsu (Beitrag 1149254)
Kennst du die vielen XToX-Funktionen?

z.B. Delphi-Referenz durchsuchenStrToInt :angle:

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

blondervolker 4. Feb 2012 22:07

AW: Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht
 
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 4. Feb 2012 22:10

AW: Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht
 
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 4. Feb 2012 22:11

AW: Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht
 
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 4. Feb 2012 22:22

AW: Buchstaben als Zahl geht-aber Zahl zu Buchstabe geht nicht
 
Es fehlt immernoch die Fehlermeldung/-beschreibung und eventuell noch die Codezeile des Fehlers.


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:56 Uhr.
Seite 1 von 2  1 2   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz