Pascal and Delphi

Pascal and Delphi RSS

IF and ELSE procedures

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Jul 2009

Posts: 17

Reputation: revski is an unknown quantity at this point

Solved Threads: 0

revski

Offline

Newbie Poster

IF and ELSE procedures

Oct 13th, 2009

Hi, i am trying to get my application to check, which radiobutton is selected, and then perform instructions based on the selection.

but i cant seem to use a IF and ELSE procedure to do this, can somebody help me out as to what procedure i should use.

•

Join Date: Feb 2009

Posts: 452

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 108

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Oct 13th, 2009

one form,two radio buttons as radiobutton1 and radiobutton2 and a simple button as button1,place them onto the form and code the button1 as

 Help with Code Tags 
 delphi Syntax (Toggle Plain Text) 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
        if radiobutton1.Checked = true then begin
                radiobutton2.Checked:=false;
                showmessage('radiobutton1 is selected');
        end else begin
                showmessage('radiobutton2 is selected');
        end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
        if radiobutton1.Checked = true then begin
                radiobutton2.Checked:=false;
                showmessage('radiobutton1 is selected');
        end else begin
                showmessage('radiobutton2 is selected');
        end;
end;

this is it.....

Be a good part of the community.Don't be ungrateful.
If you ask something on the forum and you got the right answer then mark as solved!
If my opinion helped to you a lot then sometimes give reputation point to me.
I'm just a pascal programmer from Hungary.
Farewell...

•

Join Date: Feb 2009

Posts: 452

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 108

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Oct 13th, 2009

or you can use case structure too

 Help with Code Tags 
 delphi Syntax (Toggle Plain Text) 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
case radiobutton1.Checked of
        true:showmessage('radiobutton1 is selected');
        false:showmessage('radiobutton1 is unchecked');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
case radiobutton1.Checked of
        true:showmessage('radiobutton1 is selected');
        false:showmessage('radiobutton1 is unchecked');
end;
end;

by the way the If..then..else is a structure not procedure

•

Join Date: Oct 2009

Posts: 10

Reputation: quaifp1 is an unknown quantity at this point

Solved Threads: 3

quaifp1

Offline

Newbie Poster

Oct 14th, 2009

•

Originally Posted by revski

Hi, i am trying to get my application to check, which radiobutton is selected, and then perform instructions based on the selection.

but i cant seem to use a IF and ELSE procedure to do this, can somebody help me out as to what procedure i should use.

With a Radio group of RG, with 2 radio buttons Radio1 and Radio2 entered in the RG. items property.

Do a Radiogroup on click event and put in the following:

procedure TForm1.RGClick(Sender: TObject);
begin
CASE RG.itemindex OF
0 : { Do something }
1 : { Do Something else }
End;
end;

Alternatively you could trigger the case statement on the press of an apply or OK button.

Hope that helps

PQ