Ошибки Fastscript 1.92.

Вадим Мещеряков

В FastScript 1.92 обнаружены две ошибки
1. При компиляции скрипта не проверяются на валидность названия методов и свойств.

т.е. можно написать такой код
var q : TQuery;
begin
q := TQuery.Create(nil);
q.BlaBla := 45;
q.Free;
end;

а ошибка возникнет не на этапе компиляции а только при выполнении скрипта, умереть можно при отладке сложных скриптов в такой среде.

2. При выполнении скрипта не выдается exception если объект не создан в памяти, скрипт посто пропускает присвоение всех свойств

var q : TQuery;
begin
q.DatabaseName := 'DBTEMP'
q.BlaBla := 45;
q.Free;
end;




Как вернуть нормальное поведение скриптера?

karton

Попробовал в демо все работает, ругается на blabla и exception генерит...

Вадим Мещеряков

Вот этот код компилируется и выполняется без ошибки

А он не компилироваться не прятать ошибки не должен

var q : TLabel;
begin
q.DatabaseName := 'DBTEMP1';
ShowMessage('e');
end.

Вот этот выполняется и выдает ошибку конвертации String в double (где это тут double?)

var q : TStringList;
begin
q.Name := 'DBTEMP';
q.Name := '';
end.

karton

Точно первый код выполняется...
Хотя если проинициализировать q := TLabel.Create(nil), то не будет...
Еще есть над чем работать репортовцам...

-=Den=-

Поправлено, пока фикс входит только в сборку FR 4.5.20 .

Вадим Мещеряков

Проверил в версии 4_5_21.

Одну проблему (Вызов методов не созданного объекта ) исправили а вторая (более важная осталась)


Вот этот скрипт компилируется а не должен. Ведь нет у TLabel таких свойств и методов.

var
d : TLabel;
begin
d := TLabel.Create(nil);
d.DatabaseName := 'e';
d.LoadFromFile('c:\1.xml');
d.XmlFormat := xfReadable;
d.SaveToFile('c:\11.xml') ;
d.Free;
end.

А вот этот скрипт

Запускается и успевает показать 'Запустился'.

var
F: TForm;
l:TLabel;
begin
F := TForm(nil);
l := TLabel.Create(F);
l.parent := f;
ShowMessage('Запустился');
F.l.Cabtion := '1';
end.

delover

Ребят, а хотелось бы просьбу пожелание.

1.Сказать что в скрипте ошибка, было бы не правильно. Но оставить так как есть - безхозяйственно. Я как-то переменные насоздавал. И если они внутри пустые, то работать нельзя. Я по первости внутрь писал их собственное имя, думал, что оно будет восприниматься как текст. Я же без кавычек писал. К моему удивлению получил при печати отчёта переполнение стека. Я думаю, что рекурсивное переполнение стека надо создавать когда:

var
  v: TfsCustomVariable;
begin
  v := Find(Index);
  if (v <> nil) and (Index <> v.Value) then ...

Естественно, что всё не предусмотреть, но я бы EStackOverflow заменил на Exception.Create('Invalid variable expression');

2. И ещё ребята объясните пожалуйста для чего нужны функции ValidInt ValidFloat и т.д.? Они мне кажется что по названию и по смыслу походят на стандартную паскалевскую функцию - Val. Эта функция была ещё на роботроновском паскале. Она стандарт и сейчас. Давайте посмотрим:

function (fs_isysrtti)ValidInt(cInt: String): Boolean;
begin
  Result := True;
  try
    StrToInt(cInt);
  except
    Result := False;
  end;
end;

function (SysUtils)StrToInt(const S: string): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]);
end;

Когда значение нельзя переварить я ловлю экзепшены в отладке, которые мне в общем то и отлаживать не надо. Так зачем они тогда нужны?
Я бы написал это так (и оно работало бы даже на роботроне )) )

function (fs_isysrtti)ValidInt(cInt: String): Boolean;
var
  R,E: Integer;
begin
  Val(S, R, E);
  Result := E = 0;
end;

Stalker4

delover написал: »

2. И ещё ребята объясните пожалуйста для чего нужны функции ValidInt ValidFloat и т.д.? Они мне кажется что по названию и по смыслу походят на стандартную паскалевскую функцию - Val. Эта функция была ещё на роботроновском паскале.

Функции ValidInt, ValidFloat, ValidDate нужны для проверки строкового значения числа или даты без появления Exception. Это очень удобно, когда надо в скрипте проверить введённое пользователем в предпечатном диалоге значение.
Например:

if not ValidInt(Edit1.Text) then begin
ShowMessage('Неправильно введён номер документа');
Exit;
end;

Rik

написал: »

В FastScript 1.92 обнаружены две ошибки
1. При компиляции скрипта не проверяются на валидность названия методов и свойств.

т.е. можно написать такой код
var q : TQuery;
begin
q := TQuery.Create(nil);
q.BlaBla := 45;
q.Free;
end;

а ошибка возникнет не на этапе компиляции а только при выполнении скрипта, умереть можно при отладке сложных скриптов в такой среде.

2. При выполнении скрипта не выдается exception если объект не создан в памяти, скрипт посто пропускает присвоение всех свойств

var q : TQuery;
begin
q.DatabaseName := 'DBTEMP'
q.BlaBla := 45;
q.Free;
end;
Как вернуть нормальное поведение скриптера?

Все верно, так и было задумано, чтобы можно было работать с объектами, которые на момент компиляции скрипта не существуют... По другому не сделать, представьте конструкцию
Form1.Button1.Caption := 'sdfsdf';
Если на момент компиляции скрипта объект Form1, который загружается из ресурса вместе с дочерними компонентами, не существует, скрипт и понятия не имеет о других объектах принадлежащих Form1 и их свойствах. Если переменная From1 объявлена как var Form1: TForm;, здесь еще можно прочитать RTTI для TForm, но что из себя представляет Button1, станет известно только на стадии исполнения скрипта, если все поправить, в скрипте невозможно удет ипользовать объекты, которые загружаются из ресурса...

delover

тот дубль. пост ниже

delover

написал: »

...
1. При компиляции скрипта не проверяются на валидность названия методов и свойств.

т.е. можно написать такой код
...
q.BlaBla := 45;
...
а ошибка возникнет не на этапе компиляции а только при выполнении скрипта,...

Вообще-то программирование OLE вариантов типа эксел/ворд ВБ-скрипт точно такое же. Там тоже можно писать BlaBla. Я так и думал что Майкрософт были немного не добросовестны. )))

В отличии от ВБ, недокументированных q.BlaBla мы не имеем, а вот в оле байсик сколь угодно. Если мы пишем не в окне офиса, то вообще ничего неизвестно.

Резюме - мне это свойство нравится и долго будет вполне устраивать. Я вот недавно зарегистрировал константы Graphics.clWebXXX цветов. Инспектор и скрипт их чуют. Только один нюанс. Для наследника дизайнера колоров нельзя сделать Register. Тогда инспектор глючит на вкладке событий. А вот так работает:

for i:=0 to frxPropertyEditors.Count-1 do begin
    if frxPropertyEditors.Items[i].EditorClass <> TfrxColorProperty then continue;
    frxPropertyEditors.Items[i].EditorClass := TfrxWebColorProperty;
    end;

--
Силин Р.