Как побороть: "A component name already exist"?

Комментарии

• AlexTZ

  March 2004 отредактировано 07:00

  Пробовал в FS1.4, такой ошибки нет.
• Wizdom

  March 2004 отредактировано 07:00

  Хм, тогда напрашивается только один вывод как-то я неправильно работаю с загрузкой/выгрузкой откомпилированных скриптов.
  Вот код:

  procedure TForm1.FormCreate(Sender: TObject);
  begin
    ...
    StreamCode := TMemoryStream.Create;
    ...
  end;
  
  function TForm1.DoCompileScript: Boolean;
  
    procedure ShowError;
    begin
      ... <-- тут процедурка отображения ошибки
    end;
  
  begin
    Result := False;
  
    Screen.Cursor := crHourGlass;
    Try
      fsScript.Clear;
      fsScript.Lines := meScript.Lines;
      fsScript.Parent := fsGlobalUnit;
  
      StreamCode.Clear;
      StreamCode.Position := 0;
      If not fsScript.GetILCode(StreamCode) then begin
        ShowError;
        Exit;
      end;
  
      StreamCode.Position := 0;
      If not fsScript.SetILCode(StreamCode) then begin
        ShowError;
        Exit;
      end;
  
      Result := True;
    Finally
      Screen.Cursor := crDefault;
    End;
    ...
  end;
  
• Wizdom

  March 2004 отредактировано 07:00

  Решение кроется в отличие создания формы из скрипта, а именно, при вот такой записи все работает:

  ...
  Form := TForm.Create(nil);
  ...
  

  а, вот, при такой:

  ...
  Form := TForm.Create(Form1);
  ...
  

  ошибка вываливается...
  
  Напрашивается вопрос, это ошибка FS, или правильно все таки создавать объект TForm нужно с <span style='color:red'>nil</span> ..?
  
• AlexTZ

  March 2004 отредактировано 07:00

  Да, действительно.
  Дело в том, что Event handler must be a procedure - это ошибка run-time, а не compile-time. Поэтому часть кода успевает отрабатывать и форма, ессно, создается, но не убивается. Должно помочь использование try/finally.