Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Editfeld überprüfen (https://www.delphipraxis.net/14187-editfeld-ueberpruefen.html)

ninja 4. Jan 2004 11:44


Editfeld überprüfen
 
hallo,
ich hab probleme den code für eine überprüfung mehrerer editfelder hinzubekommen.
kann mir vieleicht einer auf die sprünge helfen?
das sieht so aus
Button wird gedrückt:
Delphi-Quellcode:
If Edit1.Text = '' Then
        Showmessage ('Message!');
If Edit2.Text = '' Then
        Showmessage ('Message!');
If Edit3.Text = '' Then
        Showmessage ('Message!');
If Edit4.Text = '' Then
        Showmessage ('Message!');
//hier gehts dann weiter, es soll aber nur weiter gehen wenn alle felder mit zeichen gefüllt sind.
das funktioniert auch. (kann man das nicht auch vereinfachen????)
mein problem ist das ich erst, wenn alle editfelder gefüllt sind, mit der procedure weiter arbeiten möchte, allerdings weis ich nicht wie man diese abfragen hinbekommt, dachte erst mit "if not Edit1.Text = '' Then" , aber es müssten alle editfelder miteinmal abgefragt werden.
hat vieleicht einer einer einen lösungsansatz?

fkerber 4. Jan 2004 11:50

Re: Editfeld überprüfen
 
Hi!

Mache das ganze in einer Schleife, dann hast du es einfacher, insbesondere, wenn es mal mehr als 4 Edits werden. Dazu nähere Infomationen findest du hier unter dem Stichwort Hier im Forum suchenfindcomponent

Hoffe, das hilft!

Ciao fkerber

Sharky 4. Jan 2004 11:53

Re: Editfeld überprüfen
 
Hai ninja,

Du könntest z.B. mit einer Variablen arbeiten.

Delphi-Quellcode:
var
 b_EditsEmpty : Boolean;
begin
 b_EditsEmpty := False;
If Edit1.Text = '' Then
  begin
    Showmessage ('Message!');
    b_EditsEmpty := True;
  end;
If Edit2.Text = '' Then
  begin
    Showmessage ('Message!');
    b_EditsEmpty := True;
  end;
If Edit3.Text = '' Then
  begin
    Showmessage ('Message!');
    b_EditsEmpty := True;
  end;
if Not (b_EditsEmpty) then
  begin
  end;
[EDIT]Habe mal meine Variable von Treu auf True gesetzt ;-) [/Edit]

citybreaker 4. Jan 2004 11:54

Re: Editfeld überprüfen
 
Versuchs mal mit

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text ='') and (Edit2.Text ='') and ..... then ...
end;
--- Edit ---
Hab die Frage wohl mal wieder flash
verstanden. :roll:

mirage228 4. Jan 2004 11:54

Re: Editfeld überprüfen
 
@Sharky:

Ich glaube nicht das b_EditsEmpty Treu ist :mrgreen:

True passt glaub ich besser ^^

mfG
mirage228

ninja 4. Jan 2004 12:02

Re: Editfeld überprüfen
 
danke schön,
jetzt hab ich´s hinbekommen. :mrgreen: :mrgreen: :mrgreen:
thx
danke euch
:cheers:


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:13 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