Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.12;
Скачать: 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 вся ветка

Текущий архив: 2003.05.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
3-34333
off
2003-04-21 14:04
2003.05.12
Как ускорить выгрузку!


3-34360
Ruslan.
2003-04-22 14:15
2003.05.12
VIEW


4-34642
ilya53
2003-03-06 15:38
2003.05.12
Доступ к файлу


1-34409
sashas
2003-04-30 13:07
2003.05.12
Вывод картинки.


7-34630
AlexRush
2003-03-10 17:09
2003.05.12
Сетевой адаптер - отправка данных в сеть