Скачать: CL | DM;

Кто-нибудь с 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c