Форум: "Начинающим";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];
Вниз
SOS!!! Найти похожие ветки
← →
Nafania © (2006-01-11 13:04) [0]Здравствуйте! Я новичек в Делфи. При написании Меню у меня возникла проблема - не работает команда FIND. Вот что у меня есть:
procedure TForm1.Surasti1Click(Sender: TObject);
begin
FindDialog1.Position := Point(Memo1.Left, Memo1.Top + Memo1.Height);
FindDialog1.Execute;
end;
procedure TForm1.FindDialog1Find(Sender: TObject);
begin
if Pos(FindDialog1.FindText, Memo1.Lines.Text)<>0
then begin
Memo1.SelStart := Pos(FindDialog1.FindText,
Memo1.Lines.Text)-1;
Memo1.SelLength := Length(FindDialog1.FindText);
end;
end;
Слово SURASTI на литовском означает FIND
Помогите, пожалуйста! Где ошибка???? :(
← →
Игорь Шевченко © (2006-01-11 13:23) [1]Я так делал:
procedure TFooForm.FindDialogFind(Sender: TObject);
var
SearchText: string;
AText: string;
I: Integer;
LastSearchPos: Integer;
begin
SearchText := FindDialog.FindText;
if Memo.SelStart = 0 then
LastSearchPos := 0
else
LastSearchPos := Succ(Memo.SelStart);
AText := Copy(Memo.Lines.Text, Succ(LastSearchPos),
Length(Memo.Lines.Text));
if not (frMatchCase in FindDialog.Options) then
I := Pos(UpperCase(SearchText), UpperCase(AText))
else
I := Pos(SearchText, AText);
if I <> 0 then begin
SendMessage (Memo.Handle, EM_SETSEL, Pred(I+LastSearchPos),
Pred(I+LastSearchPos)+Length(SearchText));
SendMessage (Memo.Handle, EM_SCROLLCARET, 0, 0);
end else
ShowMessageFmt("Строка ""%s"" не найдена", [SearchText]);
FindDialog.CloseDialog;
end;
← →
umbra © (2006-01-11 13:34) [2]так а как что получается в результате выполнения процедуры? где оказывается курсор, что выделено?
← →
Nafania © (2006-01-11 15:35) [3]
> Игорь Шевченко © (11.01.06 13:23) [1]
> Я так делал:
Игорь, Вы умничка! Огромнейшее Вам спасибо!!! :-* Вы - мой спаситель!!! Всё получилось!!!! :))))
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.01.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c