Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Mehrere if schleifen hintereinander. (https://www.delphipraxis.net/131288-mehrere-if-schleifen-hintereinander.html)

Dave_lernt_Delphi 22. Mär 2009 12:37


Mehrere if schleifen hintereinander.
 
hey ihr Delphi-Experten,
ich habe hier folgenden Code:
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) >= 1 then Edit2.SetFocus;
if Length(Edit2.Text) >= 4 then Edit3.SetFocus;
if Length(Edit3.Text) >= 4 then Edit4.SetFocus;
if Length(Edit4.Text) >= 4 then bt1.SetFocus;
end;

end.
Ich habe also 4 Editierfelder: Wenn im ersten Feld eine Zahl steht soll 'die Maus' (kp wie man das nennt) in das zweite springen,
wenn im zweiten Feld vier zahlen stehen soll 'die Maus' ins dritte feld springen... usw. zuletzt das mit dem 4. Feld, danach soll auf den Button (bt1) gesprungen werden... was muss ich dann an dem Code verändern?
Euer Dave

Meflin 22. Mär 2009 12:41

Re: Mehrere if schleifen hintereinander.
 
1. Es gibt keine if-Schleifen!
2. Soll man deine Frage so interpretieren, dass dein Code nicht funktioniert oder wie :gruebel: ? Ich denke der Fehler liegt darin, dass du den gesamten Code im OnChange des 1. Edits hast (was logischerweise nur ausgeführt wird, wenn du dieses Editfeld änderst). Du musst für jedes Edit ein eigenes OnChange-Event anlegen und den entsprechenden Code-Teil nur dort ausführen!

Jens Hartmann 22. Mär 2009 12:41

Re: Mehrere if schleifen hintereinander.
 
Du arbeitest mit dem Ereignis Edit1.Change. Dir fehlen die Ereignis für Change vom Edit 2 3 etc.

Jürgen Thomas 22. Mär 2009 12:58

Re: Mehrere if schleifen hintereinander.
 
Wie schon gesagt: if-Schleifen? Igitt!

Je nachdem, was Du erreichen willst, passt vielleicht auch eine geschachtelte Konstruktion mit mehrteiligem if-else if und einem gemeinsamen Change-EventHandler für alle Edits.

Jürgen

Dave_lernt_Delphi 22. Mär 2009 13:04

Re: Mehrere if schleifen hintereinander.
 
Aha cool,
ihr seid die besten :wink:
Vielen Dank!

Andreas H. 23. Mär 2009 11:26

Re: Mehrere if schleifen hintereinander.
 
OT
Zitat:

Zitat von Jürgen Thomas
Wie schon gesagt: if-Schleifen? Igitt!
Jürgen

Wo kriegst Du denn so schnell eine Domain her?

Andreas

mkinzler 23. Mär 2009 11:29

Re: Mehrere if schleifen hintereinander.
 
@Dave: Noch sind die 24 Stunden nicht um: du könntest noch den Titel anpassen :zwinker:

Jürgen Thomas 23. Mär 2009 12:21

Re: Mehrere if schleifen hintereinander.
 
Zitat:

Zitat von Andreas H.
Wie schon gesagt: if-Schleifen? Igitt!
Wo kriegst Du denn so schnell eine Domain her?

[OT]Die stammt nicht von mir. Ich habe einen solchen Link vor etwa einem Jahr in einem Forum gelesen und benutze ihn gerne.

Über Denic ist zu erfahren, dass ein Privatmann in Köln diese Seite seit 2007 eingerichtet hat - wahrscheinlich weil er sich immer wieder über die dumme Formulierung geärgert hat.

Jürgen[/OT]


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz