Okay, ich fang nochmal an:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= Label1.Caption + '1';
end;
begin
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:= Label1.Caption + '2';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Label1.Caption:= Label1.Caption + '3';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Label1.Caption:= Label1.Caption + '4';
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Label1.Caption:= Label1.Caption + '5';
end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Label1.Caption:= Label1.Caption + '6';
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Label1.Caption:= Label1.Caption + '7';
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Label1.Caption:= Label1.Caption + '8';
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Label1.Caption:= Label1.Caption + '9';
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Label1.Caption:= Label1.Caption + '0';
end;
Das sind alle Eingaben meiner Zahlenbuttons von 0-9 für den Taschenrechner. Ich habe drei Labels. In Label1 kommt die erste Eingabe, wenn die voll geschrieben ist und man z.B. auf "+" drückt, sollen die nächsten Zahlen in das zweite Label eingefügt werden. Label1 und 2 werden beim Klick auf "=" (logisch) addiert etc. und ins 3. Label geschrieben (das schaff ich noch).
Nun will ich also, dass, wenn Label1 leer ist, alle Zahlen da rein kommen und wenn's voll ist, alle Zahlen ins Label2 kommen. deswegen if...then...else- Anweisung.
Ich hoffe, das versteht man
.
Zum zweiten Post:
Hab's jetzt so, meckert immer noch:
Delphi-Quellcode:
begin
if (TForm1.Label5 = ' ') then
begin
Label5.Caption:= '*blubb*';
end
else
begin
Label5.Caption:= ' ';
end;
end;
[edit=alcaeus]Sharky hat dir ein paar Beitraege weiter oben erklaert, wie man die Delphi-Tags verwendet. Waere nett wenn du das auch tun koenntest Mfg, alcaeus[/edit]