DELPHI If-Then

[Dark_Basics]

Delphi Programming : If - Then

--------------------------------------------

De If-voorwaarde wordt gebruikt bij controle van een bepaalde actie bij de code, het is dus een logische controle van een bepaalde voordwaarde. Er zijn twee vormen van If - structuren namelijk één met een ‘else’ en één met een ‘not’ .

Het werkt als volgt :

Als de voorwaarde klopt, dan wordt de bijhorende lijn code uitgevoerd. Als dit echter niet juist is dan wordt deze lijn gewoon omzeilt en gaat men naar het volgende blok. Als er echter een ‘else’ is dan wordt deze uitgevoerd. In elk geval moet het blok een begin/end block zijn als het meer dan één voorwaarde heeft.

Note : Vergeet niet dat Delphi een ‘;’ moet hebben na een then-voorwaarde als er een else-voorwaarde volgt.

We hebben verschillende manieren om deze if-then structuur te coderen bekijk de link in de info sectie voor meer uitleg.

Hier is een code snippet van een kleine toepassing die ik gemaakt hebt, deze broncode kan ook gedownload worden :

 
 // Start Button Section
 procedure TForm1.Button1Click(Sender: TObject);
 begin

 // If Cos Add Comment
 If Cos.Checked = True Then Comment.Caption := 'You have Selected Cosinus';


 // If Sin Add Comment
 If Sin.Checked = True Then Comment.Caption := 'You have Selected Sinus';

 // If Tan Add Comment 
 If Tan.Checked = True Then Comment.Caption := 'You have Selected Tangent';

 end;
 // End Button Section

Info

If Then Else

13 mei 2013 aangepast door kape