[Fehler] Unit1.pas(43): Record, Objekt oder Klassentyp erforderlich
Das ist der Fehler den ich immer erhalte.
Mein Programm soll ein Taschenrechner werden, so wie der von Windows (,allerdings ersteinmal nur mit den Funktionen +,=.)
Ich habe schon Buttons hinzugefügt: 1-9.
Mein Delphi Code lautet wie folgt: (Ist noch nicht fertig, da ich beim testen schon jetzt den Fehler bekam.)
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Ergebnis: TButton;
Zahl4: TButton;
Zahl2: TButton;
Zahl1: TButton;
Zahl9: TButton;
Zahl6: TButton;
Zahl7: TButton;
Zahl8: TButton;
Zahl5: TButton;
Zahl3: TButton;
Label2: TLabel;
Plus: TButton;
procedure ErgebnisClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ErgebnisClick(Sender: TObject);
var
Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl8,Zahl9,Plus,Ergebnis: integer;
begin
Zahl1:= StrtoInt (Zahl1.text);
Zahl2:= StrToInt (Zahl2.text);
end;
end.
(Ich habe
Zahl1:= StrtoInt (Zahl1.text);
Zahl2:= StrToInt (Zahl2.text);
geschrieben, weil ich nicht wusste was ich bei Buttons, anstelle von .text schreiben sollte.)
Meine Buttons heißen Zahl1-Zahl9 (Button1: Zahl1 und Caption 1, Button2: Zahl2 und Caption 2 usw.)
Außerdem habe ich ein Label (Label1) mit der Caption: "Anzeige".
Dazu noch ein "+"Button und ein "=" Button.
Ich hoffe ihr könnt mir helfen wie ich es hinbekommen kann, dass wenn auf den Button1 mit der Caption 1 geklickt wird auf der Anzeige (Label1),
die Zahl 1 erscheint. (!Mit den anderen Zahlen genauso!) Wenn die Zahl fertig ist, soll auf "+" gedrückt werden können und mann soll eine neue Zahl eingeben.
Sobald alles fertig ist soll auf "=" geklickt werden können und das Ergebnis soll in der Anzeige stehen.
Mit freundlichen Grüßen,
Ghostleader/Michael