Проект компилируется, но не работает - Общие вопросы Delphi

kta87 · 01.03.2010, 20:45

Не могу понять по какой причине не работает программа

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Enabled = True then NO:= StrToFloat(Edit1.Text);
  if Edit2.Enabled = True then N1:= StrToFloat(Edit2.Text);
  if Edit3.Enabled = True then N2:= StrToFloat(Edit3.Text);
  if Edit4.Enabled = True then L:= StrToFloat(Edit4.Text);
  if Edit5.Enabled = True then Nm:= StrToFloat(Edit5.Text);
  if (ComBoBox3.ItemIndex = 19) and (ComBoBox3.Enabled = True) then
    av:= StrToFloat(Edit6.Text);
  if Edit7.Enabled = True then m:= StrToFloat(Edit7.Text);

  case ComboBox3.ItemIndex of
    0: av:= 0.1;
    1: av:= 0.15;
    2: av:= 0.2;
    3: av:= 0.25;
    4: av:= 0.3;
    5: av:= 0.35;
    6: av:= 0.4;
    7: av:= 0.45;
    8: av:= 0.5;
    9: av:= 0.55;
    10: av:= 0.6;
    11: av:= 0.65;
    12: av:= 0.7;
    13: av:= 0.75;
    14: av:= 0.8;
    15: av:= 0.85;
    16: av:= 0.9;
    17: av:= 0.95;
    18: av:= 1.0;
  end;


 if (ComBoBox1.ItemIndex = -1) and (ComBoBox1.Enabled = True) then
 begin
  showMessage('текст');
  ComboBox1.SetFocus; 
  Exit; 
 end;
 if (ComBoBox2.ItemIndex = -1) and (ComBoBox2.Enabled = True) then
 begin
  showMessage('текст');
  ComboBox2.SetFocus;
  Exit;
 end;
 if (ComBoBox3.ItemIndex = -1) and (ComBoBox3.Enabled = True) then
 begin
  showMessage('текс');
  ComboBox3.SetFocus;
  Exit;
 end;
 if (ComBoBox4.ItemIndex = -1) and (ComBoBox4.Enabled = True) then
 begin
  showMessage('текст');
  ComboBox4.SetFocus;
  Exit;
 end;
 if (ComBoBox5.ItemIndex = -1) and (ComBoBox5.Enabled = True) then
 begin
  showMessage('текст');
  ComboBox5.SetFocus;
  Exit;
 end;
 if (Edit1.Enabled = True) and (Edit1.Text = '') then
 begin
  showMessage('текст');
  Edit1.SetFocus;
  Exit;
 end;
 if (Edit2.Enabled = True) and (Edit2.Text = '') then
 begin
  showMessage('текст');
  Edit2.SetFocus;
  Exit;
 end;
 if (Edit3.Enabled = True) and (Edit3.Text = '') then
 begin
  showMessage('текст');
  Edit3.SetFocus;
  Exit;
 if (Edit4.Enabled = True) and (Edit4.Text = '') then
 begin
  showMessage('текст');
  Edit4.SetFocus;
  Exit;
 end;
 if (Edit5.Enabled = True) and (Edit5.Text = '') then
 begin
  showMessage('текст');
  Edit5.SetFocus;
  Exit;
 end;
 if (Edit6.Enabled = True) and (Edit6.Text = '') then
 begin
  showMessage('текст');
  Edit6.SetFocus;
  Exit;
 if Edit7.Text = '' then
 begin
  showMessage('текст');
  Edit7.SetFocus;
  Exit;
 end;

begin
  case ComBoBox4.ItemIndex of
    0:
    begin
      V1:= 23;
      V2:= 20.5;
    end;
    1:
    begin
      V1:= 20.5;
      V2:= 23;
    end;
  end;

  case ComBoBox5.ItemIndex of
    0:
    begin
      V1:= 23;
      V2:= 20.5;
    end;
    1:
    begin
      V1:= 20.5;
      V2:= 23
    end;
  end;

if (ComBoBox1.ItemIndex = 0) and (ComBoBox2.ItemIndex = 0) then
 begin
  VO:= 23;
 end;
if (ComBoBox1.ItemIndex = 0) and (ComBoBox2.ItemIndex = 1) then
 begin
  VO:= 20.5;
 end;
if ComBoBox1.ItemIndex = 0  then
   begin
    tob:= L/VO;                
    ti:= 60*tob/(NO*av);       
    tmi:= ti;                  
    tozh:= 0.5*tmi*1.76;        
    J:= av*NO/tob;             
    B:= m*J;                   
   end;
  end;

if (ComBoBox1.ItemIndex = 1) then
 begin
  tob:= (L/V1)+(L/V2);      
  ti:= 60*tob/((N1+N2)*av);  
  tmi:= ti;                  
  tozh:= 0.5*tmi*1.76;       
  J:= (av*(N1+N2))/tob;    
  B:= m*J;                   
 end;


label1.Caption:= 'текст: ' + Edit5.Text + #13 +
                 'текст: ' + FloatToStrF(tob,ffFixed,2,2) + 'текст' + #13 +
                 'текст: ' + FloatToStrF(tmi,ffFixed,2,2) + 'текст' + #13 +
                 'текст: ' + FloatToStrF(tozh,ffFixed,2,2) + 'текст' + #13 +
                 'текст: ' + FloatToStrF(J,ffFixed,2,2) + 'текст' + #13 +
                 'текст: ' + FloatToStrF(B,ffFixed,5,1) + 'текст';


end;
end;
end;

end.

TwiX · 01.03.2010, 21:22

В каком смысле не работает?
try...except...end попробуй

kta87 · 01.03.2010, 21:31

Цитата:

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

В каком смысле не работает?
try...except...end попробуй

Не работает в смысле , что при выполнении Button1Click в label1 не чего не отображается !

try...except...end - это как ?

Marsel737 · 01.03.2010, 21:43

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Enabled = True then NO:= StrToFloat(Edit1.Text);
  if Edit2.Enabled = True then N1:= StrToFloat(Edit2.Text);
  if Edit3.Enabled = True then N2:= StrToFloat(Edit3.Text);
  if Edit4.Enabled = True then L:= StrToFloat(Edit4.Text);
  if Edit5.Enabled = True then Nm:= StrToFloat(Edit5.Text);
  if (ComBoBox3.ItemIndex = 19) and (ComBoBox3.Enabled = True) then
    av:= StrToFloat(Edit6.Text);
  if Edit7.Enabled = True then m:= StrToFloat(Edit7.Text);

  case ComboBox3.ItemIndex of
    0: av:= 0.1;
    1: av:= 0.15;
    2: av:= 0.2;
    3: av:= 0.25;
    4: av:= 0.3;
    5: av:= 0.35;
    6: av:= 0.4;
    7: av:= 0.45;
    8: av:= 0.5;
    9: av:= 0.55;
    10: av:= 0.6;
    11: av:= 0.65;
    12: av:= 0.7;
    13: av:= 0.75;
    14: av:= 0.8;
    15: av:= 0.85;
    16: av:= 0.9;
    17: av:= 0.95;
    18: av:= 1.0;
  end;


 if (ComBoBox1.ItemIndex = -1) and (ComBoBox1.Enabled = True) then
 begin
  showMessage('текст');
  ComboBox1.SetFocus; 
  Exit; 
 end;

 if (ComBoBox2.ItemIndex = -1) and (ComBoBox2.Enabled = True) then
 begin
  showMessage('текст');
  ComboBox2.SetFocus;
  Exit;
 end;

 if (ComBoBox3.ItemIndex = -1) and (ComBoBox3.Enabled = True) then
 begin
  showMessage('текс');
  ComboBox3.SetFocus;
  Exit;
 end;

 if (ComBoBox4.ItemIndex = -1) and (ComBoBox4.Enabled = True) then
 begin
  showMessage('текст');
  ComboBox4.SetFocus;
  Exit;
 end;

 if (ComBoBox5.ItemIndex = -1) and (ComBoBox5.Enabled = True) then
 begin
  showMessage('текст');
  ComboBox5.SetFocus;
  Exit;
 end;

 if (Edit1.Enabled = True) and (Edit1.Text = '') then
 begin
  showMessage('текст');
  Edit1.SetFocus;
  Exit;
 end;

 if (Edit2.Enabled = True) and (Edit2.Text = '') then
 begin
  showMessage('текст');
  Edit2.SetFocus;
  Exit;
 end;

 if (Edit3.Enabled = True) and (Edit3.Text = '') then
 begin
  showMessage('текст');
  Edit3.SetFocus;
  Exit;
 end;

 if (Edit4.Enabled = True) and (Edit4.Text = '') then
 begin
  showMessage('текст');
  Edit4.SetFocus;
  Exit;
 end;

 if (Edit5.Enabled = True) and (Edit5.Text = '') then
 begin
  showMessage('текст');
  Edit5.SetFocus;
  Exit;
 end;

 if (Edit6.Enabled = True) and (Edit6.Text = '') then
 begin
  showMessage('текст');
  Edit6.SetFocus;
  Exit;
 end;

 if Edit7.Text = '' then
 begin
  showMessage('текст');
  Edit7.SetFocus;
  Exit;
 end;

begin
  case ComBoBox4.ItemIndex of
    0:
    begin
      V1:= 23;
      V2:= 20.5;
    end;
    1:
    begin
      V1:= 20.5;
      V2:= 23;
    end;
  end;

  case ComBoBox5.ItemIndex of
    0:
    begin
      V1:= 23;
      V2:= 20.5;
    end;
    1:
    begin
      V1:= 20.5;
      V2:= 23
    end;
  end;

if (ComBoBox1.ItemIndex = 0) and (ComBoBox2.ItemIndex = 0) then
 begin
  VO:= 23;
 end;
if (ComBoBox1.ItemIndex = 0) and (ComBoBox2.ItemIndex = 1) then
 begin
  VO:= 20.5;
 end;
if ComBoBox1.ItemIndex = 0  then
   begin
    tob:= L/VO;                
    ti:= 60*tob/(NO*av);       
    tmi:= ti;                  
    tozh:= 0.5*tmi*1.76;        
    J:= av*NO/tob;             
    B:= m*J;                   
   end;
  end;

if (ComBoBox1.ItemIndex = 1) then
 begin
  tob:= (L/V1)+(L/V2);      
  ti:= 60*tob/((N1+N2)*av);  
  tmi:= ti;                  
  tozh:= 0.5*tmi*1.76;       
  J:= (av*(N1+N2))/tob;    
  B:= m*J;                   
 end;


label1.Caption:= 'текст: ' + Edit5.Text + #13 +
                 'текст: ' + FloatToStrF(tob,ffFixed,2,2) + 'текст' + #13 +
                 'текст: ' + FloatToStrF(tmi,ffFixed,2,2) + 'текст' + #13 +
                 'текст: ' + FloatToStrF(tozh,ffFixed,2,2) + 'текст' + #13 +
                 'текст: ' + FloatToStrF(J,ffFixed,2,2) + 'текст' + #13 +
                 'текст: ' + FloatToStrF(B,ffFixed,5,1) + 'текст';


end;

end.

Не компилируется потому что акуратнее нужно быть с бегинами и эндами

kta87 · 01.03.2010, 21:53

все СПС ! Невнимательность хуже незнания!

01.03.2010, 21:53	#5
kta87 Форумчанин Регистрация: 22.02.2010 Сообщений: 912	все СПС ! Невнимательность хуже незнания! Документация по FreePascal \| Lazarus официально \| Обновления Indy Последний раз редактировалось kta87; 01.03.2010 в 21:55.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Не компилируется в FreePascal, зато в Delphi работает!	k1r1ch	Общие вопросы Delphi	4	02.11.2009 16:37
Программа компилируется, но не работает	maziLa	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	6	17.07.2009 11:24
Проект с почти таким же кодом не компилируется!	Alex Cones	Помощь студентам	0	21.04.2009 21:40
Компилируется но не работает... Версия ICQclient'a 1.21	DeDoK	Общие вопросы Delphi	11	26.03.2009 12:09

01.03.2010, 21:22	#2
TwiX Участник клуба Регистрация: 28.07.2009 Сообщений: 1,510	В каком смысле не работает? try...except...end попробуй