ALPeresvet
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Дык, длинная она очень, но в общем вот обрезок...
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
.........................
Label LPodrez;
begin
LPodrez:
TFMezhUgol:= StrToFloat(EMezhUgol.Text);
TFbw1:= StrToFloat(Ebw1.Text);
TFmu:= StrToFloat(Em.Text);
TFz1:= StrToInt(EZ1.Text);
TFz2:= StrToInt(EZ2.Text);
TFU:= TFz2/TFz1;
TFa:=20;
Raschet_bi(TFmu,TFbw1, TFMezhUgol, TFb1, TFb2, TFbw2);
GradMinSec(TFb1,Gb1,Mb1,Sb1);
GradMinSec(TFb2,Gb2,Mb2,Sb2);
GradMinSec(TFbw1,Gbw1,Mbw1,Sbw1);
GradMinSec(TFbw2,Gbw2,Mbw2,Sbw2);
........
if application.MessageBox('Попытаться исправить автоматически?',
'Ваша конфигурация не прошла проверку!',MB_YESNO+
MB_ICONQUESTION) = IDYES then
repeat
TFmu:= TFmu - 0.01;
Em.Text:= FloatToStr(TFmu);
goto LPodrez;
until TFOPodrez = True;
end; |
