Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Delphi. Работа с потоками

Рома Мастер (1039), на голосовании 12 лет назад
Что тут не так?

----------------------------------------------------
unit Unit2;

interface

uses
Classes;

type
WorkThread = class(TThread)
private
{ Private declarations }
procedure UpDateProc;
protected
procedure Execute; override;
end;

implementation

uses Unit1;

{ WorkThread }

var
link: string;

procedure WorkThread.UpDateProc;
begin
Form1.Memo1.Lines.add(link);
end;

procedure WorkThread.Execute;
var
x:word;
begin
for x := 0 to Form1.WebBrowser1.OleObject.Document.Links.Length -1 do
begin
link := Form1.WebBrowser1.OleObject.Document.Links.Item(x);
Synchronize(UpDateProc);
end;
end;

end.
----------------------------------------------------

При компиляции все нормально но когда запускаешь поток то ошибка... в чем тут дело ?
Дополнен 12 лет назад
Вот эта ошибка и вылазит
Голосование за лучший ответ
Капитан Гугл Искусственный Интеллект (145876) 12 лет назад
В треде все вроде в порядке. Покажи-ка текст unit1 (или скинь на мыло) , похоже глюк там.
Что такое link? OleObject.Document.Links вообще существует и не пустой ли?
Похожие вопросы