Einzelnen Beitrag anzeigen

Hannover91

Registriert seit: 9. Nov 2008
3 Beiträge
 
#1

Problem mit "record, objekt oder klassentyp erforderlic

  Alt 9. Nov 2008, 15:09
Hallo,
ich weiß von vornherein, dass diese Frage nicht besonders clever ist, aber ich komme alleine eben nicht weiter...
Wir haben in der Schule gerade mit Delphi angefangen und jetzt hat unser Lehrer uns die Aufgabe gestellt, einen kleinen Taschenrechner zu programmieren, also mit den Zahlen 0-9, clear, +, -, *, /, = und einem Anzeigenfenster(Edit). Also genau so wie ein taschenrechner auch funktioniert, sollen im Anzeigenfeld erst alle Zahlen nacheinander erscheinen, bis man einen Rechenoperator wählt... Dann soll die neue Zahl kommen und wenn man auf = klickt, eben das Ergebnis.
Ich habs jetzt bisher nur mit 1, 2 und + gemacht, weil ich da sonst gar nicht mehr durchsteige und versucht, so gut es ging, die Teile des Quelltextes einzutragen, die ich mir in der Schule notiert hatte...
Ich weiß, dass da was fehlt, aber nicht wirklich, was.
Fehlermeldungen sind:
immer auf Aufgabe bezogen: record, objekt oder klassentyp erforderlich
und unit1 kann nicht kompiliert werden

Wäre super wenn ihr mir helfen würdet!! Danke.
Delphi-Quellcode:
unit Unit1;

interface

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

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

var
  Form1: TForm1;
  Szahl, Szahl1, Operator: string;
  Zahl, Zahl1: integer;
  Ausgabe: string;


implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Szahl1:= Szahl+'1';
  Ausgabe.Text:= Szahl;
end;

procedure TForm1.Button3Click(Sender: TObject);
  var Summe: integer;
begin
  Zahl:= StrToInt(Szahl);
  Summe:= Zahl+Zahl1;
  Ausgabe.Text:= IntToStr(Summe);
  Zahl1:= Summe;
  sZahl:= ' ';
  Operator:= 'Plus';

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Szahl1:= Szahl+'2';
  Ausgabe.Text:= Szahl;
end;

end.
[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst setzen Mfg, SirThornberry[/edit]
  Mit Zitat antworten Zitat