delphi record

Ответ от Николай[гуру]
Type baza=Record
tab:byte;
d:Tdate;
ton,abc,otn:real;
End;
var
a:array [1..1000] of baza;
f:file of baza;
procedure TForm1.N3Click(Sender: TObject);
begin
AssignFile(f,'C:1.ttr');
Rewrite(f);
for i:=1 to j do
write(f,a);
closefile(f);
end;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
AssignFile(f,'C:1.ttr');
Rewrite(f);
j:=filesize(f);
for i:=1 to j do
read(f,a);
closefile(f);
end;
a[j].tab:=0;
a[j].d:=MonthCalendar1.Date;
a[j].ton:=tonn;
a[j].abc:=io;
a[j].otn:=ab;
Может тебе это чем то поможет. Это куски кода. Точно сказать работает ли это не знаю. Но работать должно. Просто нифига не понятно, что там тебе надо.
НУ хотя может ты это имелла ввиду.
readln(a[1].word1);
readln(a[1].word2);
Ну дак их вместе и не запишешь.
А вообще это имеет название "Структуры"
Николай
Мыслитель
(7216)
И что нашла?