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

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

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

---

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

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



Память: 0.45 MB
Время: 0.008 c