Спасибо. Поставил так - прошло, но...
"Профайлер.Do('c:\temp\game.txt')"
Вот так вот пытаюсь открыть:
Код:
PROCEDURE Do*(AFileName:ARRAY OF CHAR);
VAR c:CHAR;i:INTEGER;
BEGIN
StdLog.Clear;
TabCount:=0;
IF ~connect(AFileName) THEN
StdLog.String("Неудача");
RETURN;
END;
...
Код:
(*Открывает файл и готовит к работе*)
PROCEDURE connect(a:ARRAY OF CHAR):BOOLEAN;
VAR ask:BOOLEAN;
loc:Files.Locator;
FileName:Files.Name; conv:Converters.Converter;
BEGIN
conv:=NIL;
IF a='' THEN
loc:=NIL;
obj.v:=Views.Old(TRUE,loc,FileName,conv);
ELSE
loc:=Files.dir.This(a$);
FileName:=a$;
obj.v:=Views.Old(FALSE,loc,FileName,conv);
END;
IF (obj.v#NIL)&(obj.v IS TextViews.View) THEN
obj.m:=obj.v(TextViews.View).ThisModel();
scan.ConnectTo(obj.m);
scan.type:=TextMappers.string;
RETURN TRUE;
ELSE
IF loc.res#0 THEN
StdLog.String("Неверный локатор");StdLog.Tab;
StdLog.Int(loc.res);StdLog.Ln; END;
RETURN FALSE;
END;
END connect;
В результате нарываюсь на
Цитата:
Неверный локатор 1
Тот самый который invalid parameter (name or locator)
В TRAP заглянул там .path HostFiles.FullName "c:\temp\game.txt"
т.е. вроде бы имя файла верно.
Или я чего-то неувидел?
Что я не так делаю?