Цитата:
Сообщение от doXtor
Димитри, нет, я волосатый бородатый программер.
|
Если это действительно так, то тебе не составит труда, ответить, что именно делает эта процедура?
procedure TForm1.Button1Click(Sender: TObject);
var
Find:string;
i:integer;
begin
find:=Edit1.Text;
For i:=0 to Memo1.Lines.Count-1 do
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
End;
end;