файл с записями

← →
saty (2003-04-28 16:08) [0]

Помогите пожалуйста. Дан файл с записями как вычислить сумму?Н-р сумму платежей с заданной целью.
procedure TForm1.CalculateClick(Sender: TObject);
var F:File of Rec;
Sum:integer;
R:Rec;
begin
Tek:=FilePos(F);
Seek(F,0);
Sum:=0;
while not EOF(F) do
begin
Read(F,R);
if R.Cel=CelEdit.Text then
Sum:=Sum+R.Summa;
SumLabel.Caption:=IntToStr(Sum);
end;
end;
end.

← →
MBo © (2003-04-28 16:11) [1]

Осталось открвть и закрыть файл
assignfile
reset
closefile

>Tek:=FilePos(F);
>Seek(F,0);
Лишнее

← →
saty (2003-04-28 16:57) [2]

А если у меня целей несколько но надо найти сумму платежей с одной целью.
procedure TForm1.CalculateClick(Sender: TObject);
var F:File of Rec;
Sum:integer;
R:Rec;
begin
Tek:=FilePos(F);
Seek(F,0);
Sum:=0;
while not EOF(F) do
begin
Read(F,R);
if R.Cel=CelEdit.Text then
Sum:=Sum+R.Summa;
SumLabel.Caption:=IntToStr(Sum);
end;
end;
end.

файл с записями Найти похожие ветки