|
есть код :
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
|