lvi

Спасибо - млин - ведь делал же ужетак , но в голове от работы полный срачь. ЕЩЁ РАЗ СПАСИБО.

Раздел: TDatabase в TQuery Комментарий от lvi August 2005

В вызове function TfsScript.CallFunction(const Name: String; const Params: Variant): Variant; участок if VarIsArray(Params) then for i := 0 to VarArrayHighBound(Params, 1) do p.Params.Value := Params; Result := p.Value; end; Заменил на i…

Раздел: CallFunction Комментарий от lvi July 2005

Вернёмся к нашим баранам , в прошлых версиях всё нормально отрабатывалось, при вызове функции из скрипта выставлялся нормально флаг и нормолньо прерывалось из программы по требованию

Раздел: CallFunction Комментарий от lvi July 2005

Советую использовать SynEdit - он OpenSource - и в отличии от TfsSyntaxMemo - что просто дополнение к основному елементу продукта - как TfsScript (который просто великолепен), полностью специализирован на редакторе.

Раздел: Пожелания к TfsSyntaxMemo Комментарий от lvi June 2005

Такми образом некоторые вещи можно делать не имея как такогого Delphi. Забыл пределать пару строчек уже поправил вот в проекте if UpperCase(ExtractFileExt(ParamStr(1))) = '.PFE' then begin FileStream := nil; try try FileStream := TFileStre…

Раздел: Пример интерприттора на FastScript Комментарий от lvi June 2005

Я написал пример использования FastScript. Т.е. оболочка - насколько смог накрутил возможности, демонстрирующие прелести FastScript. Составляющие FastScript и SynEdit

Раздел: Пример интерприттора на FastScript Комментарий от lvi June 2005

ОГРОМНОЕ СПАСИБО Просто сказка теперь, помогло.

Раздел: fsScript.Clear Комментарий от lvi June 2005

Извиняюсь конечно - но дело в том , что на прошлых версиях - конкретно FastScript v1.5 - всё сказанное выше работает корректно

Раздел: fsScript.Clear Комментарий от lvi June 2005

Вот как это реализовано по новому procedure TfsScript.Clear; begin while FItems.Count > 0 do begin FItems.Objects[0].Free; FItems.Delete(0); end; FStatement.Clear; FUnitLines.Clear; end; Где FItems - TStringList Вот по старому p…

Раздел: fsScript.Clear Комментарий от lvi June 2005

Ну я иначе рашил , сделал глобальный объект initialization FsCustomScript := TfsScript.Create(nil); finalization FsCustomScript.Free; потом у себя держу свой объект со своими новыми параметрами и обьектами и вызываю так procedure aExec…

Раздел: fsScript1.Clear Комментарий от lvi March 2005

Это понятно , я решил сделать через второй объект, т.е. в инициализации учавствет FsScript а в момент исполнения используется FsScriptRun Вопрос , как много пямяти съедает TfsScipt один объект ?

Раздел: fsScript1.Clear Комментарий от lvi March 2005

При создании формы следующие действия: fsScript.Parent := fsGlobalUnit; fsScript.AddForm(Self); Существует два неких события: 1 - Вызов на исполнение 2 - Вызов оболочки в которой производиться написание и компиляция скрипта Поэтому добав…

Раздел: fsScript1.Clear Комментарий от lvi March 2005

Теперь поля движков определяются каждый раз - раньше можно было их определить и они хранились в структуре отчёта. У меня ситуация такая , что из базы определить поля нельзя , их надо руками определить , и потом на входе есть xml вот по полям и выдёр…

Раздел: Вопрос к разработчикам Комментарий от lvi February 2005

unit Un_FsClientDataSetRtti; interface uses DB, DBClient, MConnect, fs_iinterpreter, fs_itools; implementation type TFunctions = class(TObject) private function CallMethod(Instance: TObject; ClassType: TClass; const MethodName: Str…

Раздел: TClientDataSet Комментарий от lvi November 2004

Забыл отметить , что код может содержать комметарии и прочее , это как не учитывается в номере строки ?

Раздел: OnScriptRunLine Комментарий от lvi September 2004

Хорошой ответ , но откуда мне знать . что в строке i (по вашему) и есть точка входа в процедуру ????? Вопрос то и состоит в том , как определить , что это вход в процедуру

Раздел: OnScriptRunLine Комментарий от lvi September 2004

Спасибо - попробую

Раздел: Exception Комментарий от lvi July 2004

А можно ведь как то внутри проги (самого) FastScript при отлавливании Exception заносить в переменную и повторять его ?

Раздел: Exception Комментарий от lvi July 2004

Как обычный класс не получается , так как это не класс , а интерфейс - OleObject

Раздел: IXMLDOMDocument = interface(IXMLDOMNode) Комментарий от lvi June 2004

Отпал вопрос ShowMEssage(FScript.Evaluate('Cds.FieldByName(''PAYORDER_SUM'').AsCurrency'));

Раздел: Evaluate Комментарий от lvi May 2004

Спасибо за совет , что через класс сделать собственный я знаю , вся проблема состоит то в том , что потом писать на скрипте то буду не я , мне надо описать свои обьекты и методы. А юзвер как обычно читать не будет , а тока доставать как ?. Весь смыс…

Раздел: TextFile Комментарий от lvi April 2004

И ещё - данная проблема с типами (например с TSearchRec в FindFirst) её пока вижу тоже только так обойти.

Раздел: TextFile Комментарий от lvi April 2004

Да экзотика - но ведь конечный эзвер - не экзотика - хорошо , если он прочитал хоть про эти методы - а чтобы ему ещё с потоками разобраться . Поправь если не такать.

Раздел: TextFile Комментарий от lvi April 2004

У меня получается количество строк не вмещается на одной строке , как сделать , так , чтобы пока все строки не отработают - не переносить Cross

Раздел: Переменное количество столбцов Комментарий от lvi March 2004

Могу более подробнее задачу рассказать - просто опешить - отчёт - аля БОЛЬШАЯ ЛЮБОВЬ Во 1-х Переменное количество столбцов , второе переменный вариант итогов

Раздел: Переменное количество столбцов Комментарий от lvi March 2004

Всё заработало - ок - ты меня заставил разобраться - СПАСИБО Лень раньше родилася нас.