AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

if-then-else

Ein Thema von LoL · begonnen am 4. Okt 2004 · letzter Beitrag vom 4. Okt 2004
 
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.378 Beiträge
 
Delphi 12 Athens
 
#8

Re: if-then-else

  Alt 4. Okt 2004, 10:41
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
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz