[Stalker2-42]

Здравствуйте.

Подскажите как записать/прочитать в/из файл(а) (WriteFile/ReadFile) array oF string.

C целыми числами нет проблем.
С числами с плавающей точкой пишется весь хвост после запятой, но это ладно. Читается нормально.

с числами:

Код:

var
  MasivM : array of integer;
  WriteFile(F, masivm[0], SizeOf(Integer)* Length(MasivM), dwWrite, nil)

А как быть с array of String? Длина строки в массиве может быть разной и 5 и 10 и 1 символ.

Ка правильно сделать?
Подскажите пожалуйста.
Спасибо.

[lmikle]

Если в файл надо писать в файл только один массив, то просто пиши его в цикле через writeln(). Читать - через readln() пока файл не кончился.

[Stalker2-42]

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

Если в файл надо писать в файл только один массив, то просто пиши его в цикле через writeln(). Читать - через readln() пока файл не кончился.

А по другому никак?

А если так?

Код:

var
  SizeMas : integer = 0;
  str : string;
for I := Low(MasivM) to High(MasivM) do
    begin
      SetFilePointerEx(blabla, SizeMas, nil, FILE_END);
      str := MasivM[i];
      SizeMas := SizeOf(char)* Length(MasivM[i]);
      WriteFile(blabla, str[1], SizeMas, dwWrite, nil);
      
    end;

[Alegun]

Можно ещё средствами класса TStringList, в цикле строки в него загрузить, сохранить, а затем так же считать через for

[Stalker2-42]

Забыл упомянуть, я не использую Classes, SysUtils.

[Alegun]

Ваш код работает, у меня правда в D7 конец файла определяется функцией SetFilePointer без Ex, другой нету, и текстовый файл я создал "ручками" заранее, массив в него записывается норм.

[NumLock]

Сообщение от Stalker2-42

Забыл упомянуть, я не использую Classes, SysUtils.

Без SysUtils try except / finally end не работает. Новичкам особливо без него нельзя.