Запись в ТХТ файл

[Imidg_8]

есть код :

BEGIN
rez := F_out.CREATE(F_out_Name);
IF rez THEN
BEGIN
B_.RESET;
IF B_.FIND('-') THEN
REPEAT
BEGIN
IF (STRLEN(B_."Barcode No.")<>8) AND (STRLEN(B_."Barcode No.")<>13) THEN
BEGIN
TextMess:='Товар-'+B_."Item No."+' НеКорректШтКод->'+B_."Barcode No."+' ';
F_out.WRITE(TextMess);
END;
END;
UNTIL B_.NEXT =0;
F_out.CLOSE;
END
ELSE
BEGIN
END;
END



всё пишет одну строку
, а нужны данные построчно


и назначение команд Writemode, textMode

[Yoil]

http://forum.mazzy.ru/index.php?s=&sho...ost&p=34245

[Imidg_8]

Для тех кто ищет

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;