добавление записи через dataport

[by_HT]

Как реализовать добавление записи в файл через dataport? То есть не обновлял данные в файл, а добовлял их...

[Cheb]

Нужно попробовать использовать переменную CurrFile, и при запуске датапорта открывать файл и перемещать указатель на конец файла.

[by_HT]

а по подробней можно?????

[Cheb]

[codebox]
OnPreDataport

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

[/codebox]

[by_HT]

спасиб разобрался... =)
Как мне сделать так, чтобы текст вставлялся не в конец файла, а в начала?

[Cheb]

Дописывать можно только в конец файла.
Чтобы было так, как Вы хотите, нужно записать новую информацию во временный файл, затем дописать всю информацию из существующего файла, удалить его, а временный файл переименовать в нужный.

[by_HT]

ладно не будем извращаться...пусть будет как есть!

[Lapunder]

Цитата:

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

[codebox]
OnPreDataport

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

[/codebox]

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

[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);