April 15th, 2005, 12:31 PM
|
|
Registered User
|
|
Join Date: Apr 2005
Posts: 15
Time spent in forums: 2 h 11 m
Reputation Power: 0
|
|
|
RadioCheckBox help
Hi I been trying to use to lots of Radiocheck boxes on my program but with out anyluck its proble a really easy answer but when ever I try and make a option using a radio box I can not get it to work
I want it to work if radiocheck 1 is checked it will use that code but if radiochec 2 is check it will not use one but use 2 my code below thanks
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
IniFileObj: TIniFile;
begin
IniFileObj := TIniFile.Create('emu.conf');
RenameFile('emu.ini','emu.conf');
try
if (PCheck1.Checked = true) and (FlatRadioButton1.Checked = true) and (FlatRadioButton5.Checked = true) and (FlatRadioButton3.Checked = true) then
begin
IniFileObj.WriteString('system', 'server_name', LabeledEdit1.Text);
//
IniFileObj.WriteString('system', 'http_host', FlatEdit1.Text);
IniFileObj.WriteString('system', 'http_port', LabeledEdit9.Text);
//
IniFileObj.WriteString('system', 'rs_host', FlatEdit4.Text);
IniFileObj.WriteString('system', 'rs_port', LabeledEdit10.Text);
//
IniFileObj.WriteString('system', 'ws_host', FlatEdit6.Text);
IniFileObj.WriteString('system', 'ws_port', LabeledEdit11.Text);
//
IniFileObj.WriteString('system', 'save_text_ppoints', 'Yes');
end
else
begin
if (PCheck1.Checked = false) and (FlatRadioButton2.Checked = true) and (FlatRadioButton4.Checked = true) and (FlatRadioButton6.Checked = true) then
IniFileObj.WriteString('system', 'server_name', LabeledEdit1.Text);
//
IniFileObj.WriteString('system', 'http_host', FlatEdit2.Text);
IniFileObj.WriteString('system', 'http_port', LabeledEdit9.Text);
//
IniFileObj.WriteString('system', 'rs_host', FlatEdit3.Text);
IniFileObj.WriteString('system', 'rs_port', LabeledEdit10.Text);
//
IniFileObj.WriteString('system', 'ws_host', FlatEdit5.Text);
IniFileObj.WriteString('system', 'ws_port', LabeledEdit11.Text);
//
IniFileObj.WriteString('system', 'save_text_ppoints', 'No');
end;
finally
IniFileObj.Free;
end;
end;
hope sumone can help!
|
Dev Shed Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
