Как связать 2 dbedita и memo
Добавлено: 24 июн 2013, 08:22
Всем Здравствуйте! Вообщем мне нужно осуществить поиск в memo. На форме dbgrid1, 2dbedit, memo1. база подключена через аксес. Есть поля "Фио автора" и " жанр". Я хочу выбрать писателя и жанр, чтобы это отобразилось в dbedit1 и dbedit2, нажать на кнопку поиск и memo отобразилось фио выбранного автора и жанр. При помощи одного поля и одного dbedita я сделала такой поиск в мемо. Вот код:
procedure TForm_krilatie_fraza.Button1Click(Sender: TObject);
var
find:string;
i:Integer;
begin
find:=g.text;
find:=y.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;
А при помощи двух не получается. Помогите пожалуйста!=)
procedure TForm_krilatie_fraza.Button1Click(Sender: TObject);
var
find:string;
i:Integer;
begin
find:=g.text;
find:=y.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;
А при помощи двух не получается. Помогите пожалуйста!=)