if statements

death-adders · Beiträge: 82 Vista Turbo Delphi Explorer

hi!

also ich habe in meinem projekt 5 edit felder und muss prüfen, in welchem kein wert steht und in welchem ein wirt drinne ist. aber mein pc mag das nicth so recht!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  If edtY.text = ''
    and edtX.text <> 1
     and edtA.text <> 1
       and edtB.Text <> 1
         and edtC.text <> then ereignis

edtX, edta, edtB und edtC sind alles edtfelder. aber er gibt ne fehlermeldung von wegen inkompatible types

kann mir jemand gelfen?

azubi_20 · Verfasst: Di 16.05.06 15:41

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  If edtY.text = ''
    and edtX.text <> '1'
     and edtA.text <> '1'
       and edtB.Text <> '1'
         and edtC.text <> 'x' then ereignis

der Berliner · Beiträge: 417 Win Xp Home delphi 2005

death-adders hat folgendes geschrieben:

hi!

also ich habe in meinem projekt 5 edit felder und muss prüfen, in welchem kein wert steht und in welchem ein wirt drinne ist. aber mein pc mag das nicth so recht!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  If (edtY.text = '')
    and (edtX.text <> intToStr(1))
     and (edtA.text <> intToStr(1))
       and (edtB.Text <> intToStr(1))
         and (edtC.text <> )then ereignis //<<<---Hier Steht nichts zum vergleichen

So sollte es klappen.
Gruß

_________________
[b]Ich weiß nicht immer, wovon ich rede. Aber ich weiß, dass ich recht habe.[b]

starsurfer · Verfasst: Di 16.05.06 15:47

der Berliner hat folgendes geschrieben:

death-adders hat folgendes geschrieben:

hi!

also ich habe in meinem projekt 5 edit felder und muss prüfen, in welchem kein wert steht und in welchem ein wirt drinne ist. aber mein pc mag das nicth so recht!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  If (edtY.text = '')
    and (edtX.text <> intToStr(1))
     and edtA.text <> intToStr(1))
       and edtB.Text <> intToStr(1))
         and (edtC.text <> )then ereignis //<<<---Hier Steht nichts zum vergleichen

So sollte es klappen.
Gruß

1. inttostr(1) isses gleiche wie '1' //das abfragen ist aber ungünstig, wenn 2 drinne steht macht er Mist
2. wenn man mehrere Bedingungen hat, müssen diese in Klammern(und wirklich alle!) :mahn:

zur Frage:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

if edit1.text='' then
 begin
 //das Edit ist leer
 end
  else
 begin
 // im Edit steht was drinne (Zahlen)
 end;

_________________
GEIZ IST GEIL! - Ihr Sozialamt

death-adders · Beiträge: 82 Vista Turbo Delphi Explorer

azubi_20 hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  If edtY.text = ''
    and edtX.text <> '1'
     and edtA.text <> '1'
       and edtB.Text <> '1'
         and edtC.text <> 'x' then ereignis

das geht nicht, da sagt der: "operator not applicable to this operand type"

der Berliner hat folgendes geschrieben:

death-adders hat folgendes geschrieben:

hi!

also ich habe in meinem projekt 5 edit felder und muss prüfen, in welchem kein wert steht und in welchem ein wirt drinne ist. aber mein pc mag das nicth so recht!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  If (edtY.text = '')
    and (edtX.text <> intToStr(1))
     and (edtA.text <> intToStr(1))
       and (edtB.Text <> intToStr(1))
         and (edtC.text <> intToStr)then ereignis //<<<---Hier Steht nichts zum vergleichen - habe ich verbessert

So sollte es klappen.
Gruß

und das geht auch nicht, da sagt der: " Incompatible types: 'string' and 'boolean'
'then'expected but ')' found"

azubi_20 · Verfasst: Di 16.05.06 15:52

So, um noch mal zusammenfassend alles richtig zu machen :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

  
If (edtY.text = '')   and
   (edtX.text <> '1') and
   (edtA.text <> '1') and
   (edtB.Text <> '1') and
   (edtC.text <> 'x') // <-- oder was auch immer
then ereignis

Stoney · Verfasst: Di 16.05.06 15:55

Probier's mal so:
(Alle Lösungen miteinander vermischt und noch ne Klammer drum rum

)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  If ((edtY.text = '')
    and (edtX.text <> '1')
     and (edtA.text <> '1')
       and (edtB.Text <> '1')
         and (edtC.text <> 'x')) then 
ereignis

death-adders · Beiträge: 82 Vista Turbo Delphi Explorer

azubi_20 hat folgendes geschrieben:

So, um noch mal zusammenfassend alles richtig zu machen :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

  
If (edtY.text = '')   and
   (edtX.text <> '1') and
   (edtA.text <> '1') and
   (edtB.Text <> '1') and
   (edtC.text <> 'x') // <-- oder was auch immer
then ereignis

jo danke, das geht! gibt nur noch einen haken, wenn nu z.B. bei editX nichts, also gar nichts drin steht, dann gibt es ne fehlermeldung, aber ich wollte, das dann halt garnichts passiert, weil die bedingung j anicht erfüllt wurde!

danke für die suuuper schnelle hilfe!

azubi_20 · Verfasst: Di 16.05.06 16:01

death-adders hat folgendes geschrieben:

jo danke, das geht! gibt nur noch einen haken, wenn nu z.B. bei editX nichts, also gar nichts drin steht, dann gibt es ne fehlermeldung, aber ich wollte, das dann halt garnichts passiert, weil die bedingung j anicht erfüllt wurde!

Bei welcher Aktion gibt es was für ne Fehlermeldung ???

death-adders · Beiträge: 82 Vista Turbo Delphi Explorer

azubi_20 hat folgendes geschrieben:

death-adders hat folgendes geschrieben:

jo danke, das geht! gibt nur noch einen haken, wenn nu z.B. bei editX nichts, also gar nichts drin steht, dann gibt es ne fehlermeldung, aber ich wollte, das dann halt garnichts passiert, weil die bedingung j anicht erfüllt wurde!

Bei welcher Aktion gibt es was für ne Fehlermeldung ???

ich habe das prog gestartet ind EdtX alles gelöscht, auf den button gedrückt, dann sollte ja eigentlich nsicht passieren aber statt dessen kommt ein richtiges fenster in dem steht Project Project1.exe raised exception class EConvertError with message""is not a valid floating point value'. Process stopped. Use Step or Ru n to continue.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Zeig mal mehr code.. dann rufst du warscheinlich irgendwo StrToInt('') auf.

greetz

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

death-adders · Beiträge: 82 Vista Turbo Delphi Explorer

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.BtnRechneClick(Sender: TObject);
begin

  If (edtY.text = '') and
   (edtX.text <> '1') and
   (edtA.text <> '1') and
   (edtB.Text <> '1') and
   (edtC.text <> '1')
then application.Terminate;
end;

azubi_20 · Verfasst: Di 16.05.06 16:20

da kann dieser Fehler gar nicht auftreten...
An welcher stelle hält dein Programm an ?
Vielleicht postest du auch mal deinen ganzen Quelltext, wenns nicht zuviel ist.

death-adders · Beiträge: 82 Vista Turbo Delphi Explorer

rofl lol jetz gehts!?!

kp warum!!!

baer vielen dank für die hilfe!!

azubi_20 · Verfasst: Di 16.05.06 16:27

Noch ne kleine Sache : willst du wirklich dein gesamtes Programm beenden, oder nur aus der Prozedur aussteigen ?

markieren

Delphi-Quelltext

1:
2:
3:

application.terminate; //beendet das Programm

exit; //verlässt sofort die aktuelle Prozedur

ZeitGeist87 · Verfasst: Di 16.05.06 16:27

das einfachste bei sowas ist ne case-struktur...

naja warum einfach wenns auch kompliziert geht...

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.

death-adders · Beiträge: 82 Vista Turbo Delphi Explorer

ne, den befehl habe ich nur benutzt, um zu gucken, ob es geht, weil wenn es geht, mussich das prog sowieso beenden.

death-adders · Beiträge: 82 Vista Turbo Delphi Explorer

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.BtnRechneClick(Sender: TObject);
var y, x, a, b, c :real;
begin

  If (edtY.text = '') and
    (edtX.text <> '1') and
     (edtA.text <> '1') and
      (edtB.Text <> '1') and
       (edtC.text <> '1') then begin (X:=strtofloat(edtX.text)) and
                                      (A:=strtofloat(edtA.text)) and
                                       (B:=strtofloat(edtB.Text)) and
                                        (C:=strtofloat(edtC.Text));
                               end;
end;

so, und warum geht das denn dann nicht?????

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Also darauf wirst du wohl auch noch selbst kommen..
Seit wann trennst du Anweisungen mit AND?!?

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

death-adders · Beiträge: 82 Vista Turbo Delphi Explorer

ditsch! thx

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme