Помогите пожалуйста. Дан файл с записями как вычислить сумму?
Н-р сумму платежей с заданной целью.
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;
Здравствуйте, saty, Вы писали:
S>Помогите пожалуйста. Дан файл с записями как вычислить сумму?
S>Н-р сумму платежей с заданной целью.
procedure TForm1.CalculateClick(Sender: TObject);
...
end;
это вопрос или ответ ?
Избыточное цитирование удалено
Здравствуйте, Аноним, Вы писали:
А>Здравствуйте, TATAPuH, Вы писали:
А>Вопрос!
1.структура записи не указанна
2.пример уже что то там считает
Sum := Sum + R.Summa;
и складывает
3.что такое "сумма платежей с заданной целью."
и в чём же собственно вопрос ?
Здравствуйте, TATAPuH, Вы писали:
TAT>1.структура записи не указанна
TAT>2.пример уже что то там считает Sum := Sum + R.Summa;
и складывает
TAT>3.что такое "сумма платежей с заданной целью."
TAT>и в чём же собственно вопрос ?
структура записи
type Rec= record
NomerPlateza:string[10];
Cel:string[20];
Summa:integer;
end;
Если цель не одна а несколько то нужно подсчитать сумму c заданной целью
Здравствуйте, saty, Вы писали:
S>структура записи
S>S>type Rec= record
S> NomerPlateza:string[10];
S> Cel:string[20];
S> Summa:integer;
S>end;
S>
S>Если цель не одна а несколько то нужно подсчитать сумму c заданной целью
Если Посчитать С Целью Прироста Кабачков В Совхозе Под Воркутой То И Так Сойдет!
