Form-Felder in eigene Procedure integrieren

[Delphi Freak]

Danke für die Antwort, so grob tuts jetzt, ist aber immer noch ein Fehler drin

Delphi-Quellcode:

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
  end
  else
  begin
    Edit.Text := Edit.Text + bt.Caption; // sonst Zeichen anhängen
  end;
end;

bei Buttons heißts net .Text, sondern .Caption, des hab ich geändert und mein Edit-Feld heißt einfach nur Edit, aber des tut ja nicht viel zur Sache, habs dementsprechend umgeändert.

Wenn ich auf "0" klicke, steht in meinem Edit-Feld unabhängig, was davor drin stand "0" drin, wenn ich auf eine andere Zahl klicke, wird sie angehängt, aber die "0" bleibt davor stehen


Hab den Fehler jetzt gefunden:

Delphi-Quellcode:

procedure TForm1.Bu0Click(Sender: TObject);
var
  bt: TButton;
begin
  bt:= TButton(Sender);  // ermittelt auf welchen Button geklickt wurde
  if Edit.Text = '0' then // wenn im Edit-Feld "0"
  begin
    Edit.Text := bt.Caption;     // dann  überschreiben
  end
  else
  begin
    Edit.Text := Edit.Text + bt.Caption; // sonst Zeichen anhängen
  end;
end;

ich weiß nicht, ob du mich falsch verstanden hast oder obs nen Fehler war, ist ja auch egal, trotzdem danke, für deine Hilfe!


Ich würde trotzdem noch gerne wissen, ob ich das Problem auch so lösen kann, wie ichs ursprünglich machen wollte, würd mich über weitere Antworten freuen.

Gruß
Florian