Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.20;
Скачать: CL | DM;

Вниз

есть код программы   Найти похожие ветки 

 
sloug ©   (2005-01-22 17:32) [0]

Привет всем! Есть код програмы:
procedure TForm1.N7Click(Sender: TObject);
var k,n,i: integer;
   Summ,Summ2,IT: Real;
begin
Form3.Label7.Caption:=IntToStr(Form1.Table1.RecordCount);
k:=Table1.RecordCount;
  N:=0;
 For i:=0 to Table1.RecordCount-1 do
    begin
    If Table1.FieldValues["Total_2"]>0 then
     begin
      N:=N+1;
      DataSource1.DataSet.Next
     end;
  end;
  Summ:=0;
  Summ2:=0;
  With Table1 Do
  Begin
   While not eof do
    begin
     Summ:=Summ+FieldByName("Summ").AsFloat;
     Summ2:=Summ2+FieldByName("Total_2").AsFloat;
     next;
    end;
  End;
Form3.Label8.Caption:=IntToStr(n);
Form3.Label9.Caption:=IntToStr(k-n);
Form3.Label10.Caption:=FloatToStr(Summ);
Form3.Label11.Caption:=FloatToStr(Summ2);
IT:=Summ2-Summ;
If IT>0 Then
 Form3.Label12.Caption:="+"+FloatToStr(IT) Else
Form3.Label12.Caption:=FloatToStr(Summ2-Summ);
Form3.showmodal
end;

Но он почему-то криво работает. Может что-то по-ругому написать?


 
Desdechado ©   (2005-01-22 17:39) [1]

может, что-то по-другому спросить, а?
что он делать должен? что именно криво?


 
Fay ©   (2005-01-22 17:40) [2]

Так по-другому?
procedure TForm1.N7Click(Sender: TObject);
var k,n,i: integer;
  Summ,Summ2,IT: Real;
begin
Form3.Label7.Caption:=IntToStr(Form1.Table1.RecordCount);
k:=Table1.RecordCount;
 N:=0;
For i:=0 to Table1.RecordCount-1 do
   begin
   If Table1.FieldValues["Total_2"]>0 then
    begin
     N:=N+1;
     DataSource1.DataSet.Next
    end;
 end;
 Summ:=0;
 Summ2:=0;
 With Table1 Do
 Begin
  While not eof do
   begin
    Summ:=Summ+FieldByName("Summ").AsFloat;
    Summ2:=Summ2+FieldByName("Total_2").AsFloat;
    next;
   end;
 End;
Form3.Label9.Caption:=IntToStr(k-n);
Form3.Label8.Caption:=IntToStr(n);

Form3.Label10.Caption:=FloatToStr(Summ);
Form3.Label11.Caption:=FloatToStr(Summ2);
IT:=Summ2-Summ;
If IT>0 Then
Form3.Label12.Caption:="+"+FloatToStr(IT) Else
Form3.Label12.Caption:=FloatToStr(Summ2-Summ);
Form3.showmodal
end;


 
Anatoly Podgoretsky ©   (2005-01-22 20:29) [3]

Он вообще не работает, поскольку второй цикл выполняться не будет, а возможно и первый.


 
Johnmen ©   (2005-01-22 23:50) [4]

Весь код - сплошное недоразумение. имхо.



Страницы: 1 вся ветка

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.04 c
14-1107093137
250
2005-01-30 16:52
2005.02.20
Отец Интернета назван величайшим британцем 2004 года


1-1107418107
Arbiter
2005-02-03 11:08
2005.02.20
TComponent, а как "детей" определить?


14-1106753737
olookin
2005-01-26 18:35
2005.02.20
Не подскажете ли, что такое muxbox?


3-1106227003
Rule
2005-01-20 16:16
2005.02.20
Помогите создать тригер в информиксе


3-1106599441
zokzok
2005-01-24 23:44
2005.02.20
база на компоненте ClientDataSet