Forum: Object-Pascal / Delphi-Language
by ap_computers,
20. Feb 2010
hupps :oops: das kommt davon wenn man mal schnell was ohne Delphi tippt.
Man könnte das ganze zwar auch über eine externe Methode machen, ich persönlich find aber die Lösung besser. Und wenns funktioniert, dann ist's doch gut, oder? :coder:
Forum: Object-Pascal / Delphi-Language
by ap_computers,
19. Feb 2010
procedure TForm1.Button1.Click(Sender: TObject);
var
bt: TButton;
begin
bt:= TButton(Sender); // ermittelt auf welchen Button geklickt wurde
if bt.Text = '0' then // wenn du auf "0" geklickt hast
begin
Edit1.Text := '0'; // dann überschreiben
end
else
Forum: Object-Pascal / Delphi-Language
by ap_computers,
19. Feb 2010
Versuch mal den Button über eine Prozedur zu ermitteln. Etwa so:
procedure TForm1.Button1.Click(Sender: TObject);
var
bt: TButton;
begin
bt:= TButton(Sender);
case StrToInt(bt.Caption) of
...
end;