• 19.04.2026, 22:00
  • S’inscrire
  • Connexion
  • Vous n’êtes pas connecté.

 

Bonjour, visiteur, bienvenue sur les forums Aqua Computer Forum. Si c’est votre première visite, nous vous invitons à consulter l’Aide. Elle vous expliquera le fonctionnement de cette page. Pour avoir accès à toutes les fonctionnalités, vous devez vous inscrire. Pour cela, veuillez utiliser le formulaire d’enregistrement, ou bien lisez plus d’informations sur la procédure d’enregistrement. Si vous êtes déjà enregistré, veuillez vous connecter.

Man_In_Blue

Moderator

Timer & Schleifen bei delphi

samedi 20 avril 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

samedi 20 avril 2002, 20:23

Delphi 6.0 Hilfe sagt dazu



Citation


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

samedi 20 avril 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

Non enregistré

Re: Timer & Schleifen bei delphi

samedi 20 avril 2002, 23:38

Citation de "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

dimanche 21 avril 2002, 00:00

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