if-then-else

[LoL]

hallo zusammen,

warum bricht die abfrage bei diesem code ab wenn ein edit feld nich enabled ist

Delphi-Quellcode:

  if edit1.Enabled then
    if edit1.Text = '' then edit1.SetFocus
  else if edit2.Enabled then
    if edit2.Text = '' then edit2.SetFocus
  else if edit3.Enabled then
    if edit3.Text = '' then edit3.SetFocus

und bei der nicht? es müsste doch trotzdem der else teil ausgeführt werden!

Delphi-Quellcode:

  if (edit1.Enabled) and (edit1.Text = '') then edit1.SetFocus
  else if (edit2.Enabled) and (edit2.Text = '') then edit2.SetFocus
  else if (edit3.Enabled) and (edit3.Text = '') then edit3.SetFocus

[sakura]

Zitat von LoL:

warum bricht die abfrage bei diesem code ab wenn ein edit feld nich enabled ist

Weil das ELSE anders angewandt wird als Du es wolltest. Der Compiler achtet nicht! auf Einrückungen.

Code:

  if edit1.Enabled then
    if edit1.Text = '' then edit1.SetFocus [color=#ff001b]else[/color]
  else if edit2.Enabled then
    if edit2.Text = '' then edit2.SetFocus [color=#ff001b]else[/color]
  else if edit3.Enabled then
    if edit3.Text = '' then edit3.SetFocus

......

[LoL]

und wenn man das in einen anweisungsblock einschließt? (begin end)

[Treffnix]

Dann würde es gehen. ( sofern man es richtig macht )

[LoL]

nach sakuras methode geht es nicht

wenn bed1, bed2, bed2 dann mache was

jetzt springt er aber ganz raus!

[alcaeus]

Hi Lol,

hier ein Beispiel mit begin und end:

Delphi-Quellcode:

if edit1.Enabled then
begin
  if edit1.Text = '' then 
    edit1.SetFocus
end
else if edit2.Enabled then
begin
  if edit2.Text = '' then 
    edit2.SetFocus
end
else if edit3.Enabled then
begin
  if edit3.Text = '' then 
    edit3.SetFocus
end;

IMHO sieht aber deine zweite Möglichkeit sauberer aus.

Greetz
alcaeus

[Treffnix]

Zitat von LoL:

nach sakuras methode geht es nicht

wenn bed1, bed2, bed2 dann mache was

jetzt springt er aber ganz raus!

Sakuras Quelltext sollte auch keine Lösung sein. Er wollte dir nur verdeutlichen, wie Delphi deinen Quelltext interpretiert, nämlich dass das Else zum "inneren" statt zum "äußeren" If-Then gezählt wird.

[himitsu]

nochmal genau dazu, warum dein 1. Versuch

Delphi-Quellcode:

if edit1.Enabled then 
  if edit1.Text = '' then edit1.SetFocus 
else if edit2.Enabled then 
  if edit2.Text = '' then edit2.SetFocus 
else if edit3.Enabled then 
  if edit3.Text = '' then edit3.SetFocus

nicht geht - dort wird das else halt nicht, so wie von dir wohl gewünscht zu den "if edit_.Enabled then"-Abfragen gezählt - es wird halt immer auf die IF-Abfrage angewendet, welche direkt davor ist ... in deinem Fall halt so:
(sobald ein Edit-Feld nicht enabled ist, wird eben abgebrochen)

Delphi-Quellcode:

if edit1.Enabled then begin
  if edit1.Text = '' then begin
    edit1.SetFocus;
  end else begin
    if edit2.Enabled then begin
      if edit2.Text = '' then begin
        edit2.SetFocus;
      end else begin
        if edit3.Enabled then begin
          if edit3.Text = '' then begin
            edit3.SetFocus;
          end;
        end;
      end;
    end;
  end;
end;

Aber dein 2. Codeteil müßte doch funktionieren?

Delphi-Quellcode:

if edit1.Enabled and (edit1.Text = '') then edit1.SetFocus 
else if edit2.Enabled and (edit2.Text = '') then edit2.SetFocus 
else if edit3.Enabled and (edit3.Text = '') then edit3.SetFocus