Есть кусок кода, как оптимизировать, что не так, где дурной тон? [D7, WinXP]
Страницы:
<
1
2
>
Starcom © (2005-08-04 12:36:00)
Привет Мастера!
Есть кусок кода, как оптимизировать, что не так, где дурной
тон?
>>>
procedure TForm1.Button1Click(Sender: TObject);
const
Imp = '.\Doc\import.rtf';
Otech = '.\Doc\otech.rtf';
TelRtel = '.\Doc\telrtel.rtf';
VidMagCam = '.\Doc\vidmagcam.rtf';
AutoMagCd = '.\Doc\automagcd.rtf';
begin
if RadioButton1.Checked = True then Form2.Show;
Form2.RxRichEdit1.PlainText := False;
Form2.RxRichEdit1.Lines.LoadFromFile(Imp);
if RadioButton2.Checked = True then Form3.Show;
Form3.RxRichEdit1.PlainText := False;
Form3.RxRichEdit1.Lines.LoadFromFile(Otech);
if RadioButton3.Checked = True then Form4.Show;
Form4.RxRichEdit1.PlainText := False;
Form4.RxRichEdit1.Lines.LoadFromFile(TelRtel);
if RadioButton4.Checked = True then Form5.Show;
Form5.RxRichEdit1.PlainText := False;
Form5.RxRichEdit1.Lines.LoadFromFile(VidMagCam);
if RadioButton5.Checked = True then Form6.Show;
Form6.RxRichEdit1.PlainText := False;
Form6.RxRichEdit1.Lines.LoadFromFile(AutoMagCd);
Form1.Hide;
end;
<<<
С Уважением Starcom! ;-()
ЮЮ (2005-08-04 12:41:00) [21]
Пять форм вместо одной?
И на тех формах такте же Magic Buttons? Круто!
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
