• 26.08.2025, 23:23
  • Registrieren
  • Anmelden
  • Sie sind nicht angemeldet.

 

Man_In_Blue

Moderator

Timer & Schleifen bei delphi

Samstag, 20. April 2002, 13:45

Hi.

Habe Delphi 5 Enterprise von Borland (unkomerzielle Version...).

Ich bin gerade dabei mir eine Ampelschaltung zu bastelln und dabei wollte ich Timer und eine Schleife einbauen. Wie funktionirt das?

EDIT: ach ja noch was. Wie funzt if then?

Habs so gemacht "begin
if edit1.text:=2 then panel1.color:=clred;
end;"

Das ist aber falsch.

Bin blutiger Anfänger.

Danke schon im Vorraus.
A sinking ship is still a ship!

Assassin

Senior Member

Re: Timer & Schleifen bei delphi

Samstag, 20. April 2002, 20:23

Delphi 6.0 Hilfe sagt dazu



Zitat


IF-Statements

There are two forms of if statement: if...then and the if...then...else. The syntax of an if...then statement is

if expression then statement

where expression returns a Boolean value. If expression is True, then statement is executed; otherwise it is not. For example,

if J <> 0 then Result := I/J;

The syntax of an if...then...else statement is

if expression then statement1 else statement2

where expression returns a Boolean value. If expression is True, then statement1 is executed; otherwise statement2 is executed. For example,

if J = 0 then

Exit
else
Result := I/J;

The then and else clauses contain one statement each, but it can be a structured statement. For example,

if J <> 0 then

begin
Result := I/J;
Count := Count + 1;
end
else if Count = Last then
Done := True
else
Exit;

Zitat von »Dino«

...lauter spinner ;)
(wehe, das nimmt jemand in seine sig ;))
dino

Man_In_Blue

Moderator

Re: Timer & Schleifen bei delphi

Samstag, 20. April 2002, 23:05

Danke für den Versuch mir zu helfen aber irgendwie werd ich da nicht so richtig schlau draus...
A sinking ship is still a ship!

Ojo

unregistriert

Re: Timer & Schleifen bei delphi

Samstag, 20. April 2002, 23:38

Zitat von »Man_In_Blue«


begin
if edit1.text:=2 then panel1.color:=clred;
end;


Hi

Du musst vorher den String, den Du aus dem Edit Feld ausliest
in einen Integer Wert wandeln, dann kannst Du mit Deiner
If Abfrage kommen, Dein dreizeiler muss also so aussehen:

begin
if StrToInt(Edit1.Text)=2 then Panel1.Color:=clRed;
end;

oder es geht auch so, wenn Du den String nicht in einen Integer Wert wandeln möchtest:

begin
If Edit1.Text = '2' then Panel1.Color := clRed;
end;

Gruß Ojo

Man_In_Blue

Moderator

Re: Timer & Schleifen bei delphi

Sonntag, 21. April 2002, 00:00

Danke Oje das ist genau das was ich gesucht habe.
A sinking ship is still a ship!