Record delphi
Автор Елена :-* задал вопрос в разделе Другие языки и технологии
переменные типа record в delphi и получил лучший ответ
Ответ от Николай[гуру]
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)
И что нашла?
Никак.