[Yakuza]

Цитата:

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

Цитата:

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

[codebox]
OnPreDataport

IF EXISTS(CurrDataport.FILENAME) THEN BEGIN
CurrFile.OPEN(CurrDataport.FILENAME);
CurrFile.SEEK(CurrFile.LEN);
END;

[/codebox]

спасибо - мне тоже пригодилось. но осталось одно НО. после того, как файл уже создан, я пытаюсь в него добавить записи и они, конечно, благополучно добавляются. но вот только сразу после последнего символа предыдущей записи. т.е. перехода на новую строку нет. не подскажете, что и куда надо добавить, чтоб это исправить?

После установки указателя на последний символ дописываете:

CurrFile.WRITE(10);

Но проверьте после. У меня почему-то плюс к переводу строки указатель перемещался еще на четыре символа вперед, пришлось после этого добавить:

f := CurrFile.POS;
CurrFile.SEEK(f-4);