Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - if clause mit and
benjamin_200 - Di 16.09.08 18:52
Titel: if clause mit and
hallo,
ich möchte gerne eine Bedingung schreiben die sich auf mehrere veriablen bezieht.
meiner meinung nach funktioniert das mit AND aber mein delphi 6 sagt mir fehler:-P
kann mir jemand helfen?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TForm1.Button5Click(Sender: TObject);
var p1,p2,p3,p4: real;
begin
p1:= strtofloat( punkt1.text);
p2:= strtofloat ( punkt2.text) ;
p3:= strtofloat( punkt3.Text);
p4:= strtofloat( punkt3.text);
if p1 > p2 and p1 > p3 then rang1.text:= edit1.text; |
beim AND zeigt er :Operator not applicable to this operand type
vielen dank schonma
Moderiert von 
Gausi: Delphi-Tags hinzugefügtModeriert von Gausi: Topic aus Job Börse verschoben am Di 16.09.2008 um 19:02
Timosch - Di 16.09.08 18:57
1.) Delphi-Tags verwenden!
2.) Setz mal eine Klammer um die Bedingungen, also:
Delphi-Quelltext
1:
| if (p1>p2)and(p1>p3) then |
Dann müsste es gehen.
benjamin_200 - Di 16.09.08 19:00
alles klar.
vielen dank und das nächste mal natürlich mit tags.
Delete - Di 16.09.08 19:01
Das gehörtnicht in die Job-Börse oder bist du bereit etwas zu bezahlen?
Setze es in delphi language.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TForm1.Button5Click(Sender: TObject);
var p1,p2,p3,p4: real;
begin
p1:= strtofloat( punkt1.text);
p2:= strtofloat ( punkt2.text) ;
p3:= strtofloat( punkt3.Text);
p4:= strtofloat( punkt3.text);
if (p1 > p2) and (p1 > p3) then rang1.text:= edit1.text;
end; |
Edit:Mist war zu langsam!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!