Fehler bei if <> Klausel

[nixalsverdruss]

Hallo,

warum funktioniert das:

Delphi-Quellcode:

procedure TForm2.Edit1Change(Sender: TObject);
begin
if (edit1.Text<>'s') or (edit1.Text<>' ') then
begin
beep;
ShowMessage ('Da geht´s nicht lang!!!');
end;
end;

nicht?

Es soll also die Message gezeigt werden wenn im editfeld nicht s oder ' ' steht. Aber die Meldung wird schon angezeigt, auch wenn ich 's' eintrag...warum?
Danke schon mal im Voraus
nixalsverdruss

[Die Muhkuh]

Naja, wenn Du ein 's' einträgst, ist der Text ja ungleich ' ', also ist die Abfrage true und er springt in die If-Abfrage rein.

[DeddyH]

Soll heißen, die Bedingung ist immer wahr

[nixalsverdruss]

achso...und kann man das irgendwie anders lösen...?

[Meflin]

Zitat von nixalsverdruss:

Es soll also die Message gezeigt werden wenn im editfeld nicht s oder ' ' steht. Aber die Meldung wird schon angezeigt, auch wenn ich 's' eintrag...warum?

Du hast den Code im OnChange des EditFeldes. Das heißt er wird sofort ausgeführt, wenn du einen Buchstaben eingibst. Wie DeddyH schon sagte, ist dann zwangsläufig die Bedingung imme rerfüllt. Vermutlich willst du aber diese Bedingung nicht bei jeder Eingabe, sondern nur an einer ganz bestimmten Stelle überprüfen.

Ich vemrute also, dass dein Code einfach im falschen Event steht

[DeddyH]

Natürlich kann man das. 2 Möglichkeiten: if not (Bedingung1 or Bedingung2) then oder if Bedingung1 and Bedingung2 then Such Dir was aus und setze es um, dann siehst Du' s.

[edit] @Meflin: wenn ich 2 Bedingungen verodere, die sich gegenseitig ausschließen, bekomme ich immer true, das hat mit dem Event ja nix zu tun. [/edit]

[nixalsverdruss]

Ah ja ich probiers mal
danke für eure mühe

[Meflin]

Zitat von DeddyH:

@Meflin: wenn ich 2 Bedingungen verodere, die sich gegenseitig ausschließen, bekomme ich immer true, das hat mit dem Event ja nix zu tun.

Ach ja, stümmt

OK, die Bedingungen sind einfach doof