Нетипизированые файлы и string

[MrGooD]

Всем добрый день. Подскажите как правильно поступать в подобной ситуации или что я делаю не так. Есть нетипизированный файл, в котором храниться множество значений разных типов. При загрузки из этого файла, данные читаются криво, то есть выскакивает ошибка InvalidCursor. Мне кажется это потому что при чтении машина просто не знает какой длины string она должна считать.

[ZhekON]

можно исходник?

[Yogurt]

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

[MrGooD]

Я знаю в каких конкретно местах должны быть строки, но не знаю их длину, в качестве выхода можно сделать так : перед строкой заносить int который будет равен длине записаной строки, и считав этот инт, я буду знать сколько читать из файла, чтобы не залезть в лишнее, правильно?

[MrGooD]

А вот и исходник, процедура записи в файл. Но врядли с ней станет легче Тут именно идея важна.

PHP код:

procedure TMainForm.N4Click(Sender: TObject);
var F:File;
    i,j:integer;
begin
  with DataModule1.TransferJobs do
  begin
    if SaveDialog1.Execute then
    begin
      AssignFile(F,SaveDialog1.FileName);
      Rewrite(F);
      BlockWrite(F,Number,SizeOf(Number));
      for i:=0 to Number-1 do
      begin
        BlockWrite(F,Jobs[i].Name,10);{SizeOf(Jobs[i].Name));}
        BlockWrite(F,Jobs[i].Fields.Number,SizeOf(Jobs[i].Fields.Number));
        for j:=0 to Jobs[i].Fields.Number-1 do
        begin
          with Jobs[i].Fields.Fields[j] do
            begin
              BlockWrite(F,SourceName,SizeOf(SourceName));
              BlockWrite(F,SourceType,SizeOf(SourceType));
              BlockWrite(F,SourceLength,SizeOf(SourceLength));
              BlockWrite(F,SourcePrec,SizeOf(SourcePrec));
              BlockWrite(F,TargetName,SizeOf(TargetName));
              BlockWrite(F,TargetType,SizeOf(TargetType));
              BlockWrite(F,TargetLength,SizeOf(TargetLength));
              BlockWrite(F,TargetPrec,SizeOf(TargetPrec));
            end;
        end;
      end;
      CloseFile(F);
    end;
  end;
end; 


[Alar]

http://delphibasics.ru/BlockWrite.php