[micron18]

Спасибо :-) . Я пытался одной строкой всё сделать. Это только для String такая последовательность (сначала длина, потом сама строка) или для всех типов переменных так нужно делать?

[angvelem]

Можно запись сделать и одной строкой (с использованием структуры), но расчёт всё равно займёт несколько строк.
Числовые переменные пишутся чеоез SizeOf.

[micron18]

Сделал так:
...
ЗАПИСЬ

Код:

I:=Length(St);
BlockWrite(F,I,SizeOf(I));
BlockWrite(F,St,Length(St));

ЧТЕНИЕ

Код:

BlockRead(F,I,SizeOf(I);
BlockRead(F,St,I);

St опять пустая (((

[angvelem]

А так?

Код:

  BlockRead(F, I, SizeOf(I);
  SetLength(St, I);
  BlockRead(F, St, I);

[micron18]

да, получилось )))
Спасибо

[Lost_Fish]

Очень хорошо про это написано здесь http://www.gunsmoker.ru/2011/10/pascal.html

[icWasya]

более правильный вариант

Код:

I := Length(St);  
BlockWrite(F, I, SizeOf(I)); 
BlockWrite(F, St[1], Length(St)*SizeOf(St[1]));

И соответственно

Код:

BlockRead(F,I,SizeOf(I));
UniqueString(S);
SetLength(S,I);
BlockRead(F,S[1], Length(St)*SizeOf(St[1]));

Вариант с BlockRead(F,S, Length(St)) работал, потому что запись и чтение делалось в одной процедуре, а на самом деле писалось не то и читалось не туда(посмотрите что на самом деле записано в файл). Но поскольку писалось и читалось по одному и тому же адресу, то ошибка была не видна.

[poli-smen]

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

И соответственно

Код:

BlockRead(F,I,SizeOf(I));
UniqueString(S);
SetLength(S,I);
BlockRead(F,S[1], Length(St)*SizeOf(St[1]));

UniqueString здесь не нужна. Хотя конечно в таких случаях лучше перестраховаться
А вот с выражением SizeOf(St[1]) надо бы поосторожнее...

[angvelem]

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

более правильный вариант
.

Да ну, а мужики то не знают.