file of string[размер больше 20000]

[Kn793]

Можно ли как нибудь записать типизированный файл из таких вот string'ов?
TextFile не пойдёт, это я просто упростил задачу. В действидельности там record, включающий в себя string.
Написать string[255] тоже нельзя ибо длинна варируется от 255 до бесконечности(хотя этот момент я не совсем понял).

вот типы: TDB мне надо как нибудь записать

  Tdata_time = record
    Year   :word;
    Mounth :byte;
    Day    :byte;
    Hour   :byte;
    Minute :byte;
  end;

  Ttegs = record
    count :byte;
    items :array[1..50] of string;
  end;

  TAllTeg = record
    str:string;
    using:integer;
  end;
  TAllTegs = record
    count:integer;
    items: array[1..500] of TAllTeg;
  end;

  TNote = record
    name      :string;
    data_time :Tdata_time;
    tegs      :Ttegs;
    NoteText  :string;
    Materials :string;
    important :byte;
  end;

  TDB = record               //    <<<================== ВОТ ОН, НЕПОКОРНЫЙ
    WriterName  :string;
    WriterDirth :Tdata_time;
    Count:integer;
    Notes: array[1..10000] of TNote;
  end;

[mutabor]

Строки в записях типизированных файлов ограничены 255 символами.

до бесконечности(хотя этот момент я не совсем понял)

Бесконечную длину имеет тип string, ограничивается размером свободной памяти. В файл без проблем можно записать любой длины строку, но не в типизированный.

[JUDAS]

Здравствуй Kn793 !
Помогу немоного разобратся в проблеме, с котороя я тоже пару раз встречался.

- во первых типизированные файлы переменой длины (т.е.) с типами на подобии string, pchar, и.т.п лучше лучше задавать через
packed record (при вводе/выводе могут возникнуть проблемы с несоответсвием считанной информации той что записывается)
- во вторых я бы реализовал так:

type
.......
предыдущие ползовательские типы
........
TNote = packed record
name :string;
data_time : Tdata_time;
tegs : Ttegs;
NoteText : string;
Materials : string;
important : byte;
end;

TDB = packed record
WriterName :string;
WriterDirth :Tdata_time;
Count:integer;
Notes: array of TNote; // переменной длины
end;

implementation
//*********************************** *******************
//** БЛОК ЧТЕНИЯ **//
//*********************************** *******************
// ****************** ЧИТАЕМ СТРОКУ "ЛЮБУЮ" **************
// string в Паскале имеет структуру
// ДЛИНА+ПОЛЕЗНАЯ ИНФОРМАЦИЯ
// ДЛИНА= 4 байт (и всегда находится по адресу переменной)
// полезная информация хранится с 1-го байта и далее

function ReadString(Stream : TFileStream):string;
var len : integer;
begin
Stream.Read(len,4);
SetLenGth(result,len);
if len>0 then Stream.Read(@result[1],len);
end;

// ****************** ЧИТАЕМ ВАШ NOTE **************

function ReadNoteRecord(Stream : TFileStream):TNote;
begin
FillChar(result, SizeOf(TNote));
with result do
begin
name :=ReadString;
Stream.Read(data_time, SizeOf(Tdata_time));
// tegs : Ttegs; <-- если это массив читаем его так-же как и
// ReadNoteRecord иначе
Stream.Read(tegs, SizeOf(Ttegs));
NoteText :=ReadString;
Materials :=ReadString;
Stream.Read(important, 1);
end;
end;

// ****************** ЧИТАЕМ ВАШ TDB **************
// указатель потока (TFileStream.Position) должен находиться
// в начале записи TDB. То есть при вызове данной функции
// Вы должны считать все header-ы, TDB-count-ы и.т.п
function ReadTDBRecord(Stream : TFileStream):TDB;
var i : integer;
begin
with result do
begin
Finalize(Notes); // чистим мусор !!! обязательно
WriterName:=ReadString;
WriterDirth:=Stream.Read(WriterDirt h, SizeOf(Tdata_time));
Count :=Stream.Read(Count, SizeOf(integer));
SetLenGth(Notes, Count);
for i:=0 to Count-1 do
Note[i]:=ReadNoteRecord(Stream);
end;
end;

//*********************************** *******************
//** БЛОК ЗАПИСИ **//
//*********************************** *******************
procedure WriteString(Stream : TFileStream; const Str:string);
var len : integer;
begin
len:=LenGth(Str);
Stream.Write(len,4);
if len>0 then Stream.Write(@Str[1]);
end;

// ****************** ПИШЕМ ВАШ NOTE **************

procedure WriteNoteRecord(Stream : TFileStream; Value:TNote);
begin

with Value do
begin
WriteString(Stream,Name);
Stream.Write(data_time, SizeOf(Tdata_time));
// tegs : Ttegs; <-- если это массив пишем его так-же как и
// WriteNoteRecord иначе
Stream.Write(tegs, SizeOf(Ttegs));
WriteString(Stream,Name);
WriteString(Stream,NoteText);
WriteString(Stream,Materials);
Stream.Write(important, 1);
end;
end;

// ****************** ПИШЕМ ВАШ TDB **************
procedure WriteTDBRecord(Stream : TFileStream: DB:TDB);
var i, rcount : integer;
begin
with DB do
begin
WriteString(Stream,Name);
Stream.Write(WriterDirth, SizeOf(Tdata_time));
rcount:=LenGth(Notes);
Stream.Write(rCount, SizeOf(integer));
for i:=0 to rCount-1 do
WriteNoteRecord(Stream,Note[i]);
end;
end;
end.

НАДЕЮСЬ КОД ЧЕМ-ТО ПОМОЖЕТ