• 19.04.2026, 11:25
  • Registrieren
  • Anmelden
  • Sie sind nicht angemeldet.

 

Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

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!