есть код программы

← →
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]

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

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

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