| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

есть код программы [D7, Paradox]

sloug ©   (2005-01-22 17:32:00) 

Привет всем! Есть код програмы:
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;

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

---

Johnmen   (2005-01-22 23:50:00) [1]

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

---

Anatoly Podgoretsky   (2005-01-22 20:29:00) [2]

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

---

Fay   (2005-01-22 17:40:00) [3]

Так по-другому?
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;

---

Desdechado   (2005-01-22 17:39:00) [4]

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

---

Наверх