|
Для тех кто ищет
1 создаем константу в С/А Globals F_out типа File
2 создаем константу в С/А Globals F_out_Name типа Text длина такая чтобы уместился путь и имя файла
2 создаем константу в С/А Globals TextMess типа Text длина 50
F_out.TEXTMODE(TRUE); {Установка режима ТЕКСТ а не бинарного}
rez := F_out.CREATE(F_out_Name);
IF rez THEN
BEGIN
Item_.RESET;
IF Item_.FIND('-') THEN
REPEAT
BEGIN
TextMess:= 'Код ';
TextMess:=TextMess+Item_."No."; {Пишем в файл}
F_out.WRITE(TextMess);
END;
UNTIL Item_.NEXT =0;
END
F_out.CLOSE;
|