Вопросы по Delphi (до версии 2009) - часть 5 - [1952] :: Прикладное программирование

Цитата:

//запускаем карусель
procedure TForm1.Button1Click(Sender: TObject);
var MyThrd: TestThrd;
begin
EndProcFlag:= False;//уберем флаг окончания доп.процесса

MyThrd:= TestThrd.Create(True);
try
MyThrd.FreeOnTerminate:= True;
MyThrd.Resume;

while not EndProcFlag do
begin
Beep;//вместо кода отрисовки заставки-сплэша
Sleep(500);
end;
finally
// MyThrd.Free;
end;
end;

{ TestThrd }
procedure TestThrd.Execute;
begin
inherited;

if not TransWrite.Active then TransWrite.StartTransaction;//вот тут уже компилятор ругается
// Undeclared identifier: 'TransWrite'
try
DSet.Insert;
DSet.FieldByName('INTEG_FLD').Value:= 2;
DSet.FieldByName('VRCHR_10_FLD').Value:= 'qwerty';
DSet.Post;
TransWrite.Commit;
except
DSet.Cancel;
TransWrite.Rollback;
end;

EndProcFlag:= True;//выставим флаг окончания работы доп.процесса
end;

Модерирует : ShIvADeSt
ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению