Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi if-Bedingung mit and (bestimmt sau easy *g*) (https://www.delphipraxis.net/5634-if-bedingung-mit-bestimmt-sau-easy-%2Ag%2A.html)

Trouble_Maker 13. Jun 2003 21:28


if-Bedingung mit and (bestimmt sau easy *g*)
 
Hiho...
ich hab mal wieder so ne dumme Frage: aber ich komm einfach nich darauf, wie ich eine if-Bedingung mit and verknüpfe:
Habe 3 Editfelder

wenn im ersten etwas bestimmtes steht und im 2.und 3. genau das gleiche, dann soll eine Aktion ausgeführt werden.
Wie mach ich das !?!

cu Trouble_Maker

RomanK 13. Jun 2003 21:33

Hoi,
ist ganz easy.
Delphi-Quellcode:
if (edit1.text = 'bla') and (edit2.text = 'bla') and (edit3.text = 'bla') then
begin
// wat soll denn passieren??

end;

Trouble_Maker 13. Jun 2003 21:35

arg hab ich´s doch gewusst... sau einfach...
EINFACH KLAMMERN DRUM *gg*


man man man :oops:

trotzdem danke :-)


was vergessen: so ganz stimmts ja doch nicht, weil in 2. und 3. soll genau das gleiche stehen, was aber vom User eingegeben wird!

(ist ein Passwortchanger)
edit1: altes Passwort
edit2: neues Passwort
edit3: nochmal neues Passwort

wie mach ich das ?!?

Daniel B 13. Jun 2003 21:44

Hallo,

da Du ja zur Design-Time wissen kannst was in den Edits drinstehen wird, ist es etwas schwierig Romans Beispiel zu benutzen.

Aber zu den Passwörtern.
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
  if Edit1.Text <> Edit2.Text then
  begin
    if Edit2.Text = Edit3.Text then
    begin
      ShowMessage('Blupp');
    end; //if
  end; //if
end;
Wenn Du willst das in allen 3 Edits das gleiche steht, so tausche das <> gegen ein = aus und schon geht das auch.

Grüsse, Daniel :hi:

Trouble_Maker 13. Jun 2003 21:45

perfekt...

danke :-)

cu Trouble_Maker


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