Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c