Habe die Suche benutzt , komm aber nicht wirklich weiter!!
Mein Problem ist , dass mein Taschenrechner nur 1 edit feld besitzen soll.Bracuhe ich jetzt fpr jede Zahl einen eigenen Speicher??
Hier mein Quelltext:
Delphi-Quellcode:
procedure TForm1.B1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '1';
end;
procedure TForm1.B2Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '2';
end;
procedure TForm1.B3Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '3';
end;
procedure TForm1.B4Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '4';
end;
procedure TForm1.B5Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '5';
end;
procedure TForm1.B6Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '6';
end;
procedure TForm1.B7Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '7';
end;
procedure TForm1.B8Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '8';
end;
procedure TForm1.B9Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '9';
end;
procedure TForm1.BPlusClick(Sender: TObject);
begin
Edit1.Text := Edit1.Text + '+';
end;
procedure TForm1.BMinusClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '-';
end;
procedure TForm1.BTeilenClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '/';
end;
procedure TForm1.BMalClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '*';
end;
procedure TForm1.BKommaClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + ',';
end;
procedure TForm1.B0Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text + '0';
end;
procedure TForm1.BClearClick(Sender: TObject);
begin
Edit1.Clear;
end;
danke!