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

[mutabor]

У меня в мыслях не было вас переубеждать, я просто объяснил принцип действия. Выбор за вами.
Что выбрать зависит от ряда факторов, если размер файла не важен, я бы выбрал типизированный, с ним удобно работать. Если же размер файла важен, я бы или писал в текстовый, или типизированный для чисел + текстовый для строк, или в свой формат, это наиболее трудоемкий вариант, но зато его можно "заточить" для решения своей задачи.
Также в zip можно сжимать, если размер совсем критичный параметр.

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

Если речь идет о текстовом нужно его "парсить" (от парсинг).
То есть нужно придумать метки (теги), и на их основе делать выводы что это за информация и куда ее считывать.

Самый простой вариант записи/чтения строк без чисел (числа будут в типизированном файле).
С помощью TStringList, методы SaveToFile, LoadFromFile. Нужно будет только определиться какие строки к какой записи относятся, например по три строки на запись:
StringList[0]
StringList[1]
StringList[2] первая запись

StringList[3]
StringList[4]
StringList[5] вторая запись и т.д.

[Mixasik]

Ну если очень хочется то можно использовать потоки, т.о вписать вначале размер буфера(переменная типа longword), а потом сам буфер... Ну это например. Как я понял тут спршивают что использовать.. тогда почему бы не потоки?!

[BOBAH13]

Думаю вопрос себя иcчерпал

const
  RecSize = SizeOf(Integer) {Flag1,Flag2,StrLen} * 3;

type
  TRec = packed record
    Flag1: Integer;
    Flag2: Integer;
    StrLen: Integer;
    Str: String; // String в конце записи, ВАЖНО
  end;
  TRecArray = array of TRec;

procedure WriteRec(f: File; RecArray: TRecArray);
var
  i: Integer;
begin
{$I-}
  for i:= 0 to Length(RecArray) - 1 do
  begin
    RecArray[i].StrLen := Length(RecArray[i].Str);
    BlockWrite(f, RecArray[i], RecSize);
    BlockWrite(f, Pointer(RecArray[i].Str)^, RecArray[i].StrLen);
  end;
{$I+}
end;

procedure ReadRec(f: File; var RecArray: TRecArray);
var
  res: Integer;
begin
{$I-}
  SetLength(RecArray, 0);
  while (FilePos(f) < FileSize(f)) do
  begin
    SetLength(RecArray, Length(RecArray) + 1);
    BlockRead(f, RecArray[Length(RecArray) - 1], RecSize, res);
    if (res <> RecSize) then
    begin // error
      SetLength(RecArray, Length(RecArray) - 1);
      Break; 
    end;
    if (RecArray[Length(RecArray) - 1].StrLen > 0) then
    begin
      SetLength(RecArray[Length(RecArray) - 1].Str, RecArray[Length(RecArray) - 1].StrLen);
      BlockRead(f, Pointer(RecArray[Length(RecArray) - 1].Str)^, RecArray[Length(RecArray) - 1].StrLen, res);
      if (res <> RecArray[Length(RecArray) - 1].StrLen) then
      begin // error
        SetLength(RecArray, Length(RecArray) - 1);
        Break;
       end;
    end;
  end;
{$I+}
end;