Работа с файлами.Строки в записях.

[Ozerich]

Всем привет!
Столкнулся я с такой проблемой.Пришлось мне сохранять Record в файл.
Ну например у меня вот такой рекорд

Trec=record
  a:integer;
  l:integer;
  s:string;
end;

потом пишу код

var
t:Trec;
f:file of Trec;
begin
Assignfile(f,'aa.txt');
t.a:=1;
t.l:=3;
setlength(t.s,3);
t.s:='111';
write(f,#9+t);
closefile(f);

Вопрос 1.
У меня выдает вот такую ошибку
[DCC Error] Unit1.pas(34): E2155 Type 'Trec' needs finalization - not allowed in file type в строке f:file of Trec;
как мне избежать ошибку?

Вопрос 2.
Как можно еще сохранять строки в файл более экономично по размеру?

[mutabor]

Вопрос 1.
У меня выдает вот такую ошибку
[DCC Error] Unit1.pas(34): E2155 Type 'Trec' needs finalization - not allowed in file type в строке f:file of Trec;
как мне избежать ошибку?

Для записи структуры в файл необходимо финализировать строки, на этом построен принцип типизированных файлов, на известном заранее размере записи.
string1: string[255]; //255 это максимум

Вопрос 2.
Как можно еще сохранять строки в файл более экономично по размеру?

Типизированный файл для экономного хранения строк не подходит, его размер всегда будет больше, чем полезных данных в нем. К тому же длина строк ограничена.
Ответ прост - в обычный текстовый файл. 1 буква - 1 байт, перевод каретки - 2 байта.

[zetrix]

вопрос был про записи именно record в файл. Все посты удалены.

В дополнении: что в текстовом, что в типизированном файле строки хранятся одинакого (1 символ = 1 байт, но вот перенос строки в типизированном файле так таковой не нужен). А вот числа в типизированном файле хранятся более экономно, чем в текстовом.
например число 12345 в текстовом файле будет записано как:
31|32|33|34|35 = 5 байт.
а в типизированном:
30|39 = 2 байта.

[Ozerich]

вот я и спрашиваю как мне записывать record в файл.Мне надо чтобы в рекорде были строки и я мог указывать длину строки.Чтобы было экономичнее.Как мне это реализовать?

[zetrix]

ну надо знать максимальную длину текста, который вы будете загонять в стринг. и указать эту длину.

[Ozerich]

а может как нибудь с
Str:Array of char;
Setlength(str,3);
str:='111';
write(f,str);
.......???

[zetrix]

это record? так то можно, но у вас уже текстовый файл будет, а не типизированный.

[Ozerich]

вот код

type
Trec=record
  a:integer;
  l:integer;
  s:array of char;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
t:Trec;
f:file of Trec;
begin
Assignfile(f,'aa.txt');
t.a:=1;
t.l:=3;
setlength(t.s,3);
t.s:='111';
write(f,t);
closefile(f);

end;

Вот это не работает

[mutabor]

Так какой все таки нужен файл, обязательно типизированный или какой лучше подходит?

Я уже говорил, типизированный файл для экономного хранения строк не подходит (если размер не важен, то вполне подходит, в вашем распоряжении строки до 255 символов), он как контейнер с запасом, меньше записывать можно, но размер файла все равно будет предустановленный.

Поясню на примере

TMyRec = record
  str1: string[50];
  int1: integer;
  int2: word;
end;

TMyFile: file of TMyRec;

Каждая запись в таком файле будет равна 50 + 4 + 2 = 56 байт, независимо от записанных в нее данных, хоть пустую оставь. Размер файла будет равен кол-ву записей * 56 байт.
Если записывать в такой файл строки разной длины, к примеру в основном около 10 символов и лишь некоторые из них будут доходить до 50 символов, размер файла получиться в несколько раз больше чем фактически полезных данных в нем.
Исключение: если заранее известно, что все строки равны, тогда можно использовать типизированный файл со 100% "кпд".

В отличие от типизированного, размер текстового всегда равен реальному кол-ву полезных символов в нем. Именно это я и имел ввиду, а не то что строки как-то иначе хранятся.

Вот это не работает

И не будет работать, никакой неоднозначности не допускается, размер структуры должен быть заранее известен и ограничен. На этом основан принцип доступа к записи в типизированном файле. Я и это уже писал, читайте внимательнее.

[Ozerich]

ну хорошо убедили использовать обычный текстовый файл.
Но есть вопрос
Вот я например хочу записать много чисел и строк разной длины.
А как мне потом считывать их если я не знаю скока байтов мне надо считать с файла?