if...then...else

[Flare]

Also um mal direkt den Fehler anzusprechen, du darfst nicht

Delphi-Quellcode:

if (TForm1.Label5 = ' ') then

schreiben, sondern du muss Form1 ansprechen, nicht TForm1! Wobei ich das einfach weglassen würde... :zwinker:


Flare

[markusj]

Das sollte aber alles nicht funktionieren!
Du musst grundsätzlich zwischen den beiden Eingabelabels unterscheiden.
Dann brauchst du einen Umschalter, der gesetzt wird, damit in das nächste Label geschreiben wird ...
Und mit deinem Code werden nur Strings verkettet, sprich wenn du auf den Button 9 drückst und vorher stand da '11', dann wird daraus nicht '20' sondern 119!
Alternativ emulierst du Tastatureingaben ... was ich aber an deiner Stelle lassen würde ;)

mfG

Markus

[jfheins]

Zitat:

Und mit deinem Code werden nur Strings verkettet, sprich wenn du auf den Button 9 drückst und vorher stand da '11', dann wird daraus nicht '20' sondern 119!

Dass sollte aber gewünscht sein - wenn du im Taschenrechner 1 und danach 2 drückst sollte ja auch 12 erscheinen und nicht 3 ;)

[Jarie]

Jetzt bin ich verwirrt Leute! ^^
Ja, das mit den Zeichenketten ist richtig, noch sollen die Zahlen nicht addiert werden, das kommt später- und das kann cih auch (muss ja auch was können ^^).
Das mit dem Current- Zeug peil ich erstmal gar nicht und das mit Form1. Label5 ist mri mittlerweile auch aufgefallen.
So, jetzt streicht er jedenfalls das hier an:

Delphi-Quellcode:

begin
if (Form1.Label5= ' ') then
begin
Label5.Caption:= '*blubb*';
end
else
begin
Label5.Caption:= ' ';
end;
end;

Also die zweite Klammer vor dem then. Würd mich interessieren, was er jetzt hat (das ganze mit dem Blubb etc. kommt nachher weg, war nur zur Veranschaulichung ^^.

[Klaus01]

Delphi-Quellcode:

begin
  if (Form1.Label5.caption = ' ') then // <--- caption fehlt
    begin
      Label5.Caption:= '*blubb*';
    end
  else
    begin
      Label5.Caption:= ' ';
   end;
end;

[markusj]

1. Welche Meldung bringt er?
2. DELPHI-TAG!!! Ist Als Delphi-Code beschriftet! (siehe Oben)

[leddl]

Zitat:

Zitat von Jarie

Delphi-Quellcode:

//[..]
if (Form1.Label5= ' ') then
//[..]

Also die zweite Klammer vor dem then. Würd mich interessieren, was er jetzt hat (das ganze mit dem Blubb etc. kommt nachher weg, war nur zur Veranschaulichung ^^.

Ein TLabel mit einem String zu vergleichen ist fast schlimmer als ein Äpfel-Birnen-Vergleich ;) Da fehlt ein ".Caption". Dazu kommt noch, daß du momentan auf ein Leerzeichen überprüfst. Willst du nicht evtl. wissen, ob das Label leer ist? Dann wäre '' richtig.

PS: Bitte, bitte bitte setz doch endlich die Delphi-Tags bei deinem Quellcode...

[jfheins]

Also, nochmal in Ausführlich:

- Du machst eine globale Variable vom Typ TLabel

Delphi-Quellcode:

var
Form1: TForm1;
CurrentLabel: TLabel;

Dann ersetzt du in den gazen Prozeduren Label1 durch CurrentLabel also z.B.:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject); 
begin 
CurrentLabel.Caption:= CurrentLabel.Caption + '4'; 
end;

Dann musst du in OnFormCreate (Im Designer auf die Form doppelklicken) noch ein

Delphi-Quellcode:

CurrentLabel := Label1;

machen.

In den Knöpfen für Plus, Minus usw. machst du jetzt ein

Delphi-Quellcode:

CurrentLabel := Label5; // Oder was halt dein zweites Label ist

Und fertig ;)

[Jarie]

Dankööö, hab tatsächlich die Caption vergessen ^^.

Jetzt steht das also alles so (schwere Geburt xD):

Delphi-Quellcode:

begin
if (Form1.Label5.Caption= ' ') then
begin
Form1.Label5.Caption:= '*blubb*';
end
else
begin
Form1.Label5.Caption:= ' ';
end;
end

procedure blabla

Jetzt akzeptiert der die Procedure nit ;). Blödes Computerchen ^^.

P.S.:
Ich find die Tags nit xD.

[jfheins]

Delphi-Quellcode:

begin 
  if (Form1.Label5.Caption= ' ') then 
  begin 
    Form1.Label5.Caption:= '*blubb*'; 
  end 
  else 
  begin 
    Form1.Label5.Caption:= ' '; 
  end; 
end; // <<< Semikolon fehlte 

procedure blabla

Und bitte benutze endlich mal Delphi-Tags ;)

Code markieren und oben beim Beitragsschreiben auf "Delphi-Code" klicken oder

[delphi]<Code>[/delphi] schreiben