Запись в файл строки длиннее 255

[DIgorevich]

Здравствуйте!
Второй день не могу сообразить. У меня программа записывает в файл данные. Примерно так это реализовано:

type
  PQuestion=^TQuestion;
  TQuestion=record
   name:string[20];
   ResultCount:Integer;
   ask: String[255];
   answer: String[255];
  end;

...
...
...
var
 fs:TFileStream;
 i:Integer;
 NewQuest:PQuestion;
 voz1:Trzlabel;
begin
  UserList:=TList.Create;
         for i:= 0 to ListView1.Items.Count-1 do
          begin
           NewQuest:=New(PQuestion);
           NewQuest.name:='user';
           NewQuest.ask:=ListView1.Items[i].Caption;
           NewQuest.answer:=ListView1.Items[i].SubItems.text;
           UserList.Add(NewQuest);
          end;
fs:=TFileStream.Create(путь к файлу, fmCreate);
        fs.Write(UserList.count, sizeof(UserList.count));

        for i:=0 to UserList.count-1 do
         fs.Write(PQuestion(UserList[i])^, sizeof(TQuestion));
  UserList.Free;
 fs.Free;
end;

Запись происходит, все в порядке. НО! Не знаю, как записать строку длиннее 255 символов, к примеру если в ListView1.Items[i].Caption будет 500 знаков текста.
В объявлении Record если убрать размер строки, то тогда вообще ничего не записывает в файл, а больше [255] поставить не дает компиллятор. Пробовал заменять и на WideString - проблема та же, не пишет ничего в файл.
Может, кто-нибудь знает и сможет сразу сказать. А то время поджимает, и некогда изучать всю возможную литературу.

[Аватар]

1.Утечки памяти, поскольку не освобождаете память под созданные record-ы до UserList.Free
2. Ну добавьте еще в record поле varchar(255) и пишите в него хвост не уместившийся или пробелы. По другому в данной реализации и по-быстрому не вижу способа

[DIgorevich]

Аватар, спасибо, конечно...
1. Не понял насчет утечки, компиллятор не позволяет прописать NewQuest.free
2. Не очень удобное решение проблемы (если вообще решение), потому что обратно считывать из файла данные намучаться можно.

Считывание у меня происходит таким образом:

  
  fs:=TFileStream.Create(extractfilepath(paramstr(0))+'mains.csc', fmOpenRead);

    fs.Read(Count, sizeof(Count));
    for i:=0 to Count-1 do
     begin
      NewQuest:=New(PQuestion);

      fs.Read(NewQuest^, sizeof(TQuestion));

      if NewQuest.name='user' then
        begin
          with SettForm.ListView1.Items.Add do
           begin
            Caption:=NewQuest.ask;
            SubItems.Add(NewQuest.answer);
           end;
        end;

Как вы понимаете, имена записей у меня не только user, поэтому если что-то дописывать и приписывать вместо единого раза записи/чтения - это накладно.

[Аватар]

1. Освобождение

  for i:=0 to UserList.Count-1 do Dispose(PQuestion(UserList.Items[i]));

2. По другому при таком подходе ни как. Или отказаться от record и писать/читать как двоичный файл со своей собственной структурой.

[northener]

Ну как вариант можно вместо типа string использовать array[0..NN] of char. NN поставить достаточно большое.

[Streletz]

Сообщение от northener

Ну как вариант можно вместо типа string использовать array[0..NN] of char. NN поставить достаточно большое.

Простите, но это как раз не вариант.
Что будет, если NN не хватит? Или наоборот будет слишком много?
Если, я, конечно, не ошибаюсь, при создании статического массива помять под него выделяется сразу в расчёте на все ячейки.
Поэтому чтобы лучше использовать либо string, либо, на худой конец, динамический массив из char.

[Аватар]

Динамический здесь не прокатит. И String[255] практически тоже, что статический массив. А просто String аналог динамического массива

[Streletz]

Сообщение от Аватар

Динамический здесь не прокатит. И String[255] практически тоже, что статический массив

Если действовать, образно говоря, "в лоб", то, конечно, не прокатит.
Всё жестко зафиксировано в описании структуры.

[Аватар]

А по другому она в стреам в съедобном виде не запишется

[northener]

Сообщение от Streletz

Простите, но это как раз не вариант.
Что будет, если NN не хватит? Или наоборот будет слишком много?
Если, я, конечно, не ошибаюсь, при создании статического массива помять под него выделяется сразу в расчёте на все ячейки.
Поэтому чтобы лучше использовать либо string, либо, на худой конец, динамический массив из char.

Давайте будем говорить о конкретной задаче, а именно о задаче ТС. Иначе лучше использовать БД и не страдать ерундой с хранением сложных данных в типизированном файле.
P.S.
Навскидку не припомню ни одной нынешней программы, которая для чего-то использует типизированные файлы.