Кто-нибудь с Free Pascal работал ?
Dimedrol © (2002-11-24 20:15:00)
Коллеги, кто-нибудь с 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:00) [1]
Что, таки никто не знает... ;-(
Наверх 
ЧАТ |
Орешник |
|
