Boolesche Operatoren

[klaus33]

Wie kann ich diese zwei Bedingungen mit AND verknüpfen

Delphi-Quellcode:

while StrtoFloat(memo2.Lines[0])<0  and StrtoFloat(LStatus.Caption)<0 do
begin
memo3.Clear;

end;

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]

[fwsp]

Delphi-Quellcode:

while (StrtoFloat(memo2.Lines[0]) < 0) and (StrtoFloat(LStatus.Caption) < 0) do

indem du sie vernünftig klammerst^^

[DeddyH]

Hallo Klaus, würdest Du künftig bitte die Delphi-Tags benutzen? Das kannst Du entweder über die Schaltfläche "Delphi-Code" oder mit den Tags [ delphi] und [ /delphi] (ohne Leerzeichen).

[klaus33]

Ich habe es versucht und mein prozedur stürzt ab
ich muss es abbrechen

[SirThornberry]

stürzt ab? Was ist die genaue Fehlermeldung? Meist sagt diese schon aus welcher Fehler vorliegt.

[klaus33]

Es sagt keine Fehlrmeldung aus sondern das ganze Programm stürzt ab, sodass ich nichts machen kann

[rawsoul]

Zeig doch mal den gesamten Quelltext der schuldigen Prozedur/Funktion.

[Dunkel]

Ich vermute mal, dass Du keine kopfgesteuerte Schleife sondern eine einfache Abfrage haben möchtest, probier es mal mit IF..THEN statt mit WHILE.

[klaus33]

Es tut mir leid dass es so lang gedauert hat

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
while (Edit1.Text = '0') and (Edit1.Text= '0') do
memo1.Visible:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='0';
Edit2.Text:='0';
end;

[klaus33]

Wie mache ich das mit der if Schleife

[klaus33]

Zeig mir zuerst das mit der while schleife

[inherited]

Delphi-Quellcode:

while (Edit1.Text = '0') and (Edit1.Text= '0') do
memo1.Visible:=false;

Das ist das Problem. Sobald er die while-schleife betritt hängt er dort bis sich was an Edit1.text ändert. Diese änderung bekommt er aber garnicht mit weil er eben in der Schleife hängt und deshalb nicht auf messages reagiert.
Eine Lösungsmöglichkeit: Du machst das ganze mit einem Timer oder im OnKey*, OnChange-Ereigniss des Edits.
(Btw: Es gibt keine "if-schleifen"...)

[klaus33]

kannst du mir ein Beispiel schicken ich hab keinen Plan wie ich das machen soll

[Dunkel]

IF..THEN-Abfrage, keine(!!!) Schleife:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Edit1.Text = '0') and (Edit1.Text= '0') then
    memo1.Visible:=false;
end;

WHILE..DO ist für Deine Zwecke nicht geeignet! Trotzdem mal ein Beispiel:

Delphi-Quellcode:

var
  i: byte;
begin
  i:= 0;
  while i< 10 do
    Inc(i);
end;

Ganz wichtig ist, dass sich die Bedingungen der kopfgesteuerten Schleife in der Schleife selber (oder in einer globalen Variable von außerhalb) ändern muss, ansonsten läuft diese Schleife bis zum Stack-Überlauf, was bei Deiner Version der Fall ist.

[inherited]

[OT]Warum sollte es bei einer Endlosschleife zu einem Stacküberlauf kommen? :gruebel:[/OT]

[klaus33]

Wie würde es dann mit der if schleife aussehen

[Dunkel]

Zitat:

Zitat von inherited

[OT]Warum sollte es bei einer Endlosschleife zu einem Stacküberlauf kommen? :gruebel:[/OT]

:wall: Das frage ich mich in der Tat auch gerade... Ist schon spät, gute Nacht! :stupid:

[Dunkel]

Zitat:

Zitat von klaus33

Wie würde es dann mit der if schleife aussehen

Es gibt keine IF-Schleifen!

[klaus33]

wie würde es dann mit der if schleife aussehen

[Muetze1]

Zitat:

Zitat von klaus33

wie würde es dann mit der if schleife aussehen

Es gibt keine If-Schleifen! Von wievielen Nutzern willst du das noch hören, bis du es glaubst?

Und die Lösung die du wohl eigentlich haben willst, wurde schon gepostet!

[Sergej]

Zitat:

Zitat von klaus33

wie würde es dann mit der if schleife aussehen

Zitat:

Zitat von Dunkel

Zitat:

Zitat von klaus33

Wie würde es dann mit der if schleife aussehen

Es gibt keine IF-Schleifen!

Zitat:

Zitat von klaus33

wie würde es dann mit der if schleife aussehen

Troll?

<°)))o><

[DeddyH]

Schreib doch spaßeshalber mal ins OnChange der Edits

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Memo1.Visible := (Edit1.Text <> '0') and (Edit2.Text <> '0');
end;

[edit] P.S.: http://www.if-schleife.de/ [/edit]