собственно вот код :
TAll = class(TObject)
year : Integer;
col_page : Integer;
publisher : String;
name : String;
first_writer : String;
constructor Create;
end;
TBook = class(TAll)
writers : String;
place_public : String;
volume : Byte;
constructor Create;
end;
TJournal = class (TAll)
number : Integer;
constructor Create;
end;
TArticle = class(TAll)
page : Integer;
place_public : String;
writers : string;
constructor Create;
end;
var
Form1: TForm1;
Book : array [0..10] of TBook;
Journal : array [0..10] of TJournal;
Article : array [0..10] of TArticle;
последние 3 строки – структуры нужно засунть в айл, подскажите как?
16 марта 2010 в 0:00
Спасибо!)
15 марта 2010 в 23:05
2Алексей Губанов
[src delphi]procedure SaveToFile(const AFileName: string); virtual;[/src]
2Женя Балашов
Даже, если бы это были записи, то все равно не работало бы. Курить SizeOf(string)
15 марта 2010 в 23:04
упс, не заметил, тут не записи, а структуры=)
15 марта 2010 в 23:03
Какой именно момент Вы не поняли?
2Женя Балашов
Ваш метод работать не будет. Курить возвращаемое значение SizeOf(Book[i])
15 марта 2010 в 23:03
Антон Щиров
В классе TAll объявить виртуальный метод SaveToFile()=> как?
15 марта 2010 в 23:02
файл типизированый
reset(Your_File);
for i:=0 to Length(Book)-1 do
begin
write(Your_File, Book[i]);
end;
CloseFile(Your_File);
15 марта 2010 в 23:02
да
15 марта 2010 в 23:02
Антон Щиров
Извините, нельзя чуть-чуть поподробней, завтра сдавать надо, а я не понял, как это сделать….. Спасибо
15 марта 2010 в 23:01
1) Это у Вас не структуры, а массивы объектов
2) Разработать свой формат сохранения
3) В классе TAll объявить виртуальный метод SaveToFile()
4) В потомках его переопредилить
5) Пробежаться по каждому массиву и для каждого элемента вызвать SaveToFile()