Einzelnen Beitrag anzeigen

dmdjt

Registriert seit: 19. Jul 2009
37 Beiträge
 
Delphi 2007 Enterprise
 
#5

Re: And funktion wird nicht logisch umgesetzt ! was tun?

  Alt 25. Nov 2009, 03:09
Mh, wenn ich Deinen Code verwende und die gleichen Zeichen in die Edits eingebe wird bei mir immer nur die zweite Bedingung wahr.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (edit1.text = '5') and (edit2.text <='4') and (edit3.text <= '4')
  then label1.caption:= 'Bedingung1: C:\ausführen1.msd'
    else
      label1.Caption := 'Bedingung1: False';

  if (edit1.text = '6') and (edit2.text <='5') and (edit3.text <= '5')
  then label2.caption:= 'Bedingung1: C:\ausführen1.msd'
    else
      label2.Caption := 'Bedingung1: False';

  if (edit2.text = '5') and (edit1.text <='4') and (edit3.text <= '4')
  then label3.caption:= 'Bedingung1: C:\ausführen2.msd'
    else
      label3.Caption := 'Bedingung1: False';

  if (edit2.text = '6') and (edit1.text <='5') and (edit3.text <= '5')
  then label4.caption:= 'Bedingung1: C:\ausführen2.msd'
    else
      label4.Caption := 'Bedingung1: False';
end;
Also stimmt vielleicht Dein Code nicht mit Deiner Fragestellung zusammen.
(Die Bedingungen habe ich nicht verändert... die Ausgabe schon um einen Überblick zu bekommen)

Und des Weiteren hat Meflin auch noch Recht. Es macht keinen Sinn Texte (Strings) mit "<=" o.ä. zu vergleichen. Probiere einfach mal aus ob es funktioniert, wenn Du es so wie von Meflin vorgeschlagen machst.

Ich habe absolut keine Ahnung was da eigentlich verglichen wird. Vielleicht (da kenn ich mich wirklich gar nicht aus!!) ist das Ergebnis dann vom Zeichensatz abhängig und Dein Fehler deswegen für andere nicht reproduzierbar.

Edit: Zahlen durch Zeichen ersetzt... das macht irgendwie bei dem Problem mehr Sinn
  Mit Zitat antworten Zitat