[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 не работает. Новичкам особливо без него нельзя.

[Stalker2-42]

Всем спасибо.
Запись в файл массив работает на ура.
А вот как читать из файла построчно с помощью ReadFile я не пойму.
Пример файла:

PHP код:

АБВ
ГДЕ
ЖЗЗЗЗЗ 


и так далее.

[Bargest]

построчно с помощью ReadFile

Сдается мне, что только читать блоки размером в N байт во временный буфер, после чего парсить этот буфер, искать там #13#10 и выдавать строки по очереди. Ну и конечно, если #13#10 с текущей позиции в буфере нет - дописывать данные к возвращаемой строке и читать следующую часть, пока не встретится перевод строки или конец файла.

[NumLock]

Очистить временный буфер. Прочитать в цикле очередной байт. Если #10 или #13 - выход из цикла и взять результат во временном буфере, иначе добавить этот символ во временный буфер. Именно так работает _ReadLn().

[M.A.D.M.A.N.]

Писа́ть ДКА, с несколькими состояниями:
1. Начало строки.
2. Конец строки.
3. Конец файла.

Вариант 2 (если надосест/не получится мучаться с ДКА):
Перестать жевать голову задрачиванием WinAPI и использовать модули Classes, SysUtils, в которых есть StringStream и Split.

[Alegun]

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

...А вот как читать из файла построчно с помощью ReadFile я не пойму.
Пример файла:

PHP код:

АБВ
ГДЕ
ЖЗЗЗЗЗ 


и так далее.

Вот пример чтения из файла в массив строк на API, но без SysUtils не обошлось

[Stalker2-42]

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

Вот пример чтения из файла в массив строк на API, но без SysUtils не обошлось

Спасибо большое.
На днях займусь. Сейчас некогда.