Taschenrechner mit Delphi für Schule!

[Yanni]

Hallo, wir sollen en Taschenrechner in Delphi schreiben (also eig nur in pascal ,aber das war mir zu einfach, hab mich an delphi gehockt)
Jetz hab ich das Problem das mir die Fehlermeldung kommt:
[Fehler] Unit1.pas(49): Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann
[Fehler] Unit1.pas(53): ';' erwartet, aber '.' gefunden
[Fehler] Unit1.pas(55): Deklaration erwartet, aber Dateiende gefunden
[Fehler] Unit1.pas(22): Ungenügende Forward- oder External-Deklaration: 'TForm1.Memo1Change'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Hab ma alle fehler reingeschrieben, weil ich mir net sicher bin,was davon zuu gebrauchen ist.
Und hier der Quelltext dazu

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Edit3: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zahl2,ende: integer;
    ergebnis: real;
    opperator: integer;
begin
zahl1 := StrToInt(Edit1.Text);
zahl2 := StrToInt(Edit2.Text);
opperator := StrToInt (Edit3.Text);
case opperator of
1: ergebnis := zahl1 + zahl2;
2: ergebnis := zahl1 - zahl2;
3: ergebnis := zahl1 * zahl2;
4: ergebnis := zahl1 / zahl2;
   Label4.Caption := IntToStr(ergebnis);
end;

   read(ende);
end.

Vielen Dank für eure Antworten

[Klaus01]

Guten Abend,

einen real Wert kannst Du so nicht umwandeln:
Label4.Caption := IntToStr(ergebnis); Label4.Caption := FloatToStr(ergebnis); wäre besser.

und es fehlt noch ein end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zahl2,ende: integer;
    ergebnis: real;
    opperator: integer;
begin
  zahl1 := StrToInt(Edit1.Text);
  zahl2 := StrToInt(Edit2.Text);
  opperator := StrToInt (Edit3.Text);
  case opperator of
    1: ergebnis := zahl1 + zahl2;
    2: ergebnis := zahl1 - zahl2;
    3: ergebnis := zahl1 * zahl2;
    4: ergebnis := zahl1 / zahl2;
  end;
  Label4.Caption := IntToStr(ergebnis);
  read(ende);
end;

end.

Wenn man halbwegs vernünftig einrückt, fällt das auch auf.
Grüße
Klaus

[mkinzler]

Ergebnis ist auch nicht vom Typ Integer -> FloatToStr()

[DeddyH]

Hallo und Willkommen in der DP

für Fließkommazahlen musst Du FloatToStr() verwenden statt IntToStr. Und vor dem letzten "end." fehlt noch ein "end;"
Mehr hab ich auf den ersten Blick nicht entdeckt.

[Yanni]

Habs gemacht

sieht jetz so aus

Delphi-Quellcode:

begin
zahl1 := StrToInt(Edit1.Text);
zahl2 := StrToInt(Edit2.Text);
opperator := StrToInt (Edit3.Text);
case opperator of
1: ergebnis := zahl1 + zahl2;
2: ergebnis := zahl1 - zahl2;
3: ergebnis := zahl1 * zahl2;
4: ergebnis := zahl1 / zahl2;
   Label4.Caption := FloatToStr(ergebnis);
end;

   read(ende);
end;
end.

Bekomme die Meldung
[Fehler] Unit1.pas(49): Konstantenausdruck erwartet

Wat nun?^^
sry für die dummen fragen

[DeddyH]

Delphi-Quellcode:

case opperator of
  1: ergebnis := zahl1 + zahl2;
  2: ergebnis := zahl1 - zahl2;
  3: ergebnis := zahl1 * zahl2;
  4: ergebnis := zahl1 / zahl2;   
end; 
Label4.Caption := FloatToStr(ergebnis); //hierhin

[Yanni]

danke hab alles hinbekommen, musste die memo procedure noch löschen und das ende am end
VIELEN DANK

[Yanni]

So das Programm an sich funktioniert, ich würd noch gern wissen, wie es aussieht mit Design von dem Programm ,kann ich irgendwie en bild als hintergrund nehmen o.ä?

[DeddyH]

Theoretisch ja, aber ich würde an Deiner Stelle meine Zeit nicht mit "Klickibunti-Design" verschwenden, sondern lieber auf eine vernünftige Fehlerbehandlung achten.

[mkinzler]

Ist natürlich möglich. Für ein Schulprogramm aber m.E. nicht notwendig.

Btw. Pushen wird hier nicht gern gesehen. wenn weniger als 24 Stunden vergangen sind und noch keiner geantwortet hat und du noch Ergänzugen hast, einfach letzen Beitrag mit Edit bearbeiten. Danke.