Друзья, помогите пожалуйста немного дописать код.
Код:
procedure TForm3.Image10Click(Sender: TObject);
var
i: Integer;
FindWord: string;
pos: Integer;
begin
RichEdit1.Lines.BeginUpdate;
try
for i := 0 to RichEdit2.Lines.Count - 1 do
begin
FindWord := RichEdit2.Lines[i];
pos := 0;
while True do
begin
pos := RichEdit1.FindText(FindWord, pos, Length(RichEdit1.Text) - pos, []);
if pos < 0 then Break;
RichEdit1.SelStart := pos;
RichEdit1.SelLength := Length(FindWord);
RichEdit1.SelText := RichEdit3.Lines[i];
Inc(pos);
end;
end;
finally
RichEdit1.Lines.EndUpdate;
end;
end;
При нажатий на картинку выполняется ^ код. Я хочу поставить небольшую задержку перед выполнением этого кода, и что бы во время задержки пробегал прогресбар.
Как я поступил:
Код:
procedure TForm3.Image10Click(Sender: TObject);
var
i: Integer;
FindWord: string;
pos: Integer;
begin
v:=v+1; //переменная v объявлено глобально
progressbar1.Position:=v;
if v=100 then
begin
RichEdit1.Lines.BeginUpdate;
try
for i := 0 to RichEdit2.Lines.Count - 1 do
begin
FindWord := RichEdit2.Lines[i];
pos := 0;
while True do
begin
pos := RichEdit1.FindText(FindWord, pos, Length(RichEdit1.Text) - pos, []);
if pos < 0 then Break;
RichEdit1.SelStart := pos;
RichEdit1.SelLength := Length(FindWord);
RichEdit1.SelText := RichEdit3.Lines[i];
Inc(pos);
end;
end;
finally
RichEdit1.Lines.EndUpdate;
end;
end;
end;
Всё компилируется без проблем, но при нажатий на картинку прогресбар делает 1 шаг и на этом всё зависает, что я не правильно сделал?