Identifier Redeclared

ksandr13

Здравствуйте, помогите если кто знает

в скрипре написана процедура

procedure Command_parser(com:string);

в прграмме вызываю ее из обработчика нажатия кнопки, работает нормально,
а если из обработчика IdTCPServer1Execute(AThread: TIdPeerThread); то выдает ошибку identifier redeclared Command_parser
причем ошибка вылазиет при выполнении fsScript1.Compile

код такой

                      if fsScript1.Compile then
                      fsScript1.CallFunction('Command_parser',VarArrayOf([z]))
                      else
                      ShowMessage(fsScript1.ErrorMsg);

ksandr13

дело было в том что IdTCPServer1Execute открывает несколько потоков при приеме, и эти несколько потоков пытались одновременно скомпилировать скрипт

Cazzo

При попытке компиляции ZComponentDesign.dpk выдало:
Error ZPropertyEditor.pas452: Undeclared identifier: GetSequences
Error ZPropertyEditor.pas465: Undeclared identifier: GetSequences
Fatal Error ZComponentDesign.dpk37: Could not compile used unit ....srccomponentZPropertyEditor.pas

Стр. 452:
ResultSet := Metadata.GetSequencesCatalog, Schema, ;
Стр. 465:
ResultSet := Metadata.GetSequencesConnection.Catalog, , ;

Что делать?

ZEOSDBO-6.6.1-beta, Delphi 7, WinXP_sp2