Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
ВнизКто-нибудь с Free Pascal работал ? Найти похожие ветки
← →
Dimedrol (2002-11-24 20:15) [0]Коллеги, кто-нибудь с Free Pascal под Линух работал ?
Вопросик есть по поводу testreg1.pp демо-проги...
Там такая демка для регулярных выражений есть...
program testreg1;
uses
regexpr;
var
r : tregexprengine;
index,len : longint;
procedure do_error(i : longint);
begin
writeln("error near ",i," index: ",index," len: ",len);
halt(1);
end;
begin
writeln("*** Testing unit regexpr ***");
{ basic tests }
r:=GenerateRegExprEngine("[A-Z]",[]);
if not(RegExprPos(r,"234578923457823659GHJK38",index,len)) or
(index<>18) or (len<>1) then
do_error(1000);
DestroyregExprEngine(r);
r:=GenerateRegExprEngine("[A-Z]*",[]);
if not(RegExprPos(r,"234578923457823659ARTZU38",index,len)) or
{ is this result correct ??? }
(index<>0) or (len<>0) then
do_error(1002);
DestroyregExprEngine(r);
r:=GenerateRegExprEngine("[A-Z]+",[]);
if not(RegExprPos(r,"234578923457823659ARTZU38",index,len)) or
(index<>18) or (len<>5) then
do_error(1003);
DestroyregExprEngine(r);
..........и так далее........
Так вот я заметил, что когда я правлю этот исходник,
вроде все ок... как будто, НО!
когда я убираю ВЫВОД НА ЭКРАН в самом начале работы
вот этот вот :
...
begin
writeln("*** Testing unit regexpr ***");
...
- все начинает глючить 8-(
То есть ни одно (даже из демки!) выражение которое раньше
работало - работать перестает...
Никто не знает с чем это может быть связано ?
А то мне это критично -
яэту процедуру собираюсь в UDF пихать...
← →
Dimedrol (2002-11-25 10:34) [1]Что, таки никто не знает... ;-(
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c