[bloodmaster89]

Здравствуйте!
Помогите пожалуйста решить задачу.
Есть процедура

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

procedure write_outfile_new(l,alpha,fi_s,mashi:integer; t:real); var Xa,Yb,k: integer; begin AssignFile(outfile, 'outfile.txt'); Reset(outfile); AssignFile(new_outfile, 'new_outfile.txt'); ReWrite(new_outfile); while not Seekeof(outfile) do  begin read(outfile, Xa); read(outfile, Yb);     if  sqrt(sqr(Xa-t*alpha*cos(fi_s*pi/180)*mash/mashi)+sqr(Yb-t*alpha*sin(fi_s*pi/180)*mash/mashi))<(l*mash/mashi) then       begin          Append(new_outfile);          writeln(new_outfile, Xa,' ',Yb);       end end;      CloseFile(new_outfile); CloseFile(outfile);   sl1:= TStringList.Create; sl2:= TStringList.Create; Try     sl1.LoadFromFile('outfile.txt');     sl2.LoadFromFile('new_outfile.txt');     for g := sl1.Count - 1 downto 0 do       if sl2.IndexOf(sl1[g]) >= 0 Then sl1.Delete(g);     sl1.SaveToFile('outfile.txt');   Finally     sl1.Free;     sl2.Free;   End; end;

В которую в зависимости от отмеченных radiobutton передаются значения переменных.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

if Form1.RadioButton1.Checked then begin search_traectory_t(l,25,alpha,t); end; if Form1.RadioButton2.Checked then begin search_traectory_t(l,30,alpha,t); search_traectory_t(l,60,alpha,t); end; if Form1.RadioButton3.Checked then begin search_traectory_t(l,22,alpha,t); search_traectory_t(l,45,alpha,t); search_traectory_t(l,67,alpha,t); end;

Первые два условия срабатывают, третье в никакую не хочет.
Заранее спасибо за ответы!

[poli-smen]

Сообщение от bloodmaster89

.....

Код:

Первые два условия срабатывают, третье в никакую не хочет.
Заранее спасибо за ответы!

Чтобы третье условие сработало нужно отметить "Form1.RadioButton3" и вызвать эту процедуру/метод.