Forum: Object-Pascal / Delphi-Language
by Delphi Freak,
19. Feb 2010
Danke für die Antwort, so grob tuts jetzt, ist aber immer noch ein Fehler drin :(
procedure TForm1.Button1.Click(Sender: TObject);
var
bt: TButton;
begin
bt:= TButton(Sender); // ermittelt auf welchen Button geklickt wurde
if bt.Caption = '0' then // wenn du auf "0" geklickt hast
begin
Edit.Text := '0'; // dann überschreiben
Forum: Object-Pascal / Delphi-Language
by Delphi Freak,
19. Feb 2010
Ich verstehe nicht so genau, was ich machen soll (Ich programmiere noch nicht lange mit Delphi).
Das wäre das Grundgerüst meiner Procedure:
procedure ZahlEingabe(y: Integer);
begin
if Edit.Text = '0' then
begin
Edit.Text := y;
end
Forum: Object-Pascal / Delphi-Language
by Delphi Freak,
19. Feb 2010
Hallo Forum,
ich versuche gerade einen Taschenrechner zu programmieren, bei dem man auch die Zahlen über Buttons eingeben soll, da man natürlich auch mehrere Zahlen hintereinander reihen muss, ist die Procedure pro Zahl nicht wirklich kurz und deshalb dachte ich mir, ich kann ja einfach eine Procedure mit einer Variable für die jeweiligen Zahlen(0-9) schreiben und dann bei jeder Zahl soll...