FindDialog ,ReplaceDialog

[Bayram_662]

Привет!!Плз срочно мне нужна помощь
Вот у мя такая проблема: Я создал текстовый редактор,там поставил FindDialog ,ReplaceDialog ,они у мя просто окрываются а чтобы там менять местами слова или же найти не находят, что мне делать? точнее я кажется не правильно пишу

begin
memo1.HideSelection:=true;

if pos(replacedialog1.FindText,memo1.T ext)<>0 then
begin
memo1.selstart:=pos(replacedialog1. findtext,memo1.text)-1;
memo1.SelLength:=length(replacedial og1.FindText);
memo1.SelText:=replacedialog1.Repla ceText;

end;
Memo1.HideSelection:=false;
end;
procedure TForm1.N15Click(Sender: TObject);
begin
replacedialog1.Execute ;

end;

[mihali4]

Ну если срочно...
Тогда - самый быстрый метод:
- тыркаем мышкой в, например, FindDialog и нажимаем F1
- в открывшемся окне хэлпа выбираем первое попавшееся свойство компонента, например, FindText
- и теперь уже на этой страничке жмем заветную ссылочку "Delphi example "
Быстрее не бывает...

З.Ы. Да, забыл... Остальные вопросы - аналогично.

[Bayram_662]

Сообщение от mihali4

Ну если срочно...
Тогда - самый быстрый метод:
- тыркаем мышкой в, например, FindDialog и нажимаем F1
- в открывшемся окне хэлпа выбираем первое попавшееся свойство компонента, например, FindText
- и теперь уже на этой страничке жмем заветную ссылочку "Delphi example "
Быстрее не бывает...

З.Ы. Да, забыл... Остальные вопросы - аналогично.

СПАСИБО ,но мне нужно было конретынй код!

[Ульви]

при нажатии F1 появляется помощь на англ языке!!

[mihali4]

Сообщение от Ульви

при нажатии F1 появляется помощь на англ языке!!

Без знания хотя бы азов английского компьютер лучше вообще не включать!

[KiDoki]

procedure TForm1.FindDialog1Find(Sender: TObject);
var
FTPos:Integer; // Переменная для текущей позиции
IText,FText:String; // Исходный текст, Искомый текст 
begin
RichEdit1.SetFocus; // Устанавливаем фокус ввода на Мемо иначе мы ничего не увидим
if not (frMatchCase in FindDialog1.Options) then 
FText:=AnsiLowerCase(FindDialog1.FindText) else // Если в диалоги ищем без учета регистра 
FText:=FindDialog1.FindText; // Если в диалоги ищем c учета регистра 
if frDown in FindDialog1.Options then 
begin // Поиск Вниз 
IText:=copy(RichEdit1.Text,RichEdit1.SelStart+RichEdit1.SelLength+1,Length(RichEdit1.Text)); // Задаем исходный текст после текущей позиции курсора
if not (frMatchCase in FindDialog1.Options) then IText:=AnsiLowerCase(IText); // Если в диалоги ищем без учета регистра 
FTPos:=pos(FText,IText); // Собственно сам поиск 
if FTPos=0 then Exit; // Если ничего не нашли то выходим из процедуры 
FTPos:=FTPos+RichEdit1.SelStart+RichEdit1.SelLength; // Делаем поправку на текущее положение курсора
RichEdit1.SelStart:=FTPos-1;RichEdit1.SelLength:=Length(FText); // Выделяем текст
end else  // Поиск Вверх 
begin
IText:=copy(RichEdit1.Text,0,RichEdit1.SelStart); // Задаем исходный текст до текущей позиции курсора 
if not (frMatchCase in FindDialog1.Options) then IText:=AnsiLowerCase(IText); // Если в диалоги ищем без учета регистра 
for FTPos:=length(IText)-length(FText) downto 1 do // Перебераем текст с конца до начала 
if copy(IText,FTPos,length(FText))=FText then // Если фрагмент текста совпал с искомым то 
begin 
RichEdit1.SelStart:=FTPos-1;RichEdit1.SelLength:=Length(FText); // Выделяем текст 
Exit; // Выходим из процедуры 
end; 
end;
end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
FindDialog1.Options:=ReplaceDialog1.Options; // Всё аналогично предедущей процедуре 
FindDialog1.FindText:=ReplaceDialog1.FindText; // Аналогично 
with Sender as TReplaceDialog do // Заменяем пока можем 
while True do
begin 
if RichEdit1.SelText <> FindText then FindDialog1Find(Sender); // Если нет выделеного текста то ищем 
if RichEdit1.SelLength = 0 then Break; // Если так и не нашли текст то выходим из цикла 
RichEdit1.SelText := ReplaceText; // Заменяем текст 
if not (frReplaceAll in Options) then Break; // Если нам надо один раз заменить то выходим из цикла
end;
end;

procedure TForm1.ReplaceDialog1Find(Sender: TObject);
begin
FindDialog1.Options:=ReplaceDialog1.Options; // Устанавливаем в диалоге поиска такие-же опции как и в диалоге замены
FindDialog1.FindText:=ReplaceDialog1.FindText; // Аналогично делаем с текстом
FindDialog1Find(Sender); // Вызываем процедуру поиска
end;

Нашел в интернете где-то, давно ещё...

[Bayram_662]

Сообщение от KiDoki

procedure TForm1.FindDialog1Find(Sender: TObject);
var
FTPos:Integer; // Переменная для текущей позиции
IText,FText:String; // Исходный текст, Искомый текст 
begin
RichEdit1.SetFocus; // Устанавливаем фокус ввода на Мемо иначе мы ничего не увидим
if not (frMatchCase in FindDialog1.Options) then 
FText:=AnsiLowerCase(FindDialog1.FindText) else // Если в диалоги ищем без учета регистра 
FText:=FindDialog1.FindText; // Если в диалоги ищем c учета регистра 
if frDown in FindDialog1.Options then 
begin // Поиск Вниз 
IText:=copy(RichEdit1.Text,RichEdit1.SelStart+RichEdit1.SelLength+1,Length(RichEdit1.Text)); // Задаем исходный текст после текущей позиции курсора
if not (frMatchCase in FindDialog1.Options) then IText:=AnsiLowerCase(IText); // Если в диалоги ищем без учета регистра 
FTPos:=pos(FText,IText); // Собственно сам поиск 
if FTPos=0 then Exit; // Если ничего не нашли то выходим из процедуры 
FTPos:=FTPos+RichEdit1.SelStart+RichEdit1.SelLength; // Делаем поправку на текущее положение курсора
RichEdit1.SelStart:=FTPos-1;RichEdit1.SelLength:=Length(FText); // Выделяем текст
end else  // Поиск Вверх 
begin
IText:=copy(RichEdit1.Text,0,RichEdit1.SelStart); // Задаем исходный текст до текущей позиции курсора 
if not (frMatchCase in FindDialog1.Options) then IText:=AnsiLowerCase(IText); // Если в диалоги ищем без учета регистра 
for FTPos:=length(IText)-length(FText) downto 1 do // Перебераем текст с конца до начала 
if copy(IText,FTPos,length(FText))=FText then // Если фрагмент текста совпал с искомым то 
begin 
RichEdit1.SelStart:=FTPos-1;RichEdit1.SelLength:=Length(FText); // Выделяем текст 
Exit; // Выходим из процедуры 
end; 
end;
end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
FindDialog1.Options:=ReplaceDialog1.Options; // Всё аналогично предедущей процедуре 
FindDialog1.FindText:=ReplaceDialog1.FindText; // Аналогично 
with Sender as TReplaceDialog do // Заменяем пока можем 
while True do
begin 
if RichEdit1.SelText <> FindText then FindDialog1Find(Sender); // Если нет выделеного текста то ищем 
if RichEdit1.SelLength = 0 then Break; // Если так и не нашли текст то выходим из цикла 
RichEdit1.SelText := ReplaceText; // Заменяем текст 
if not (frReplaceAll in Options) then Break; // Если нам надо один раз заменить то выходим из цикла
end;
end;

procedure TForm1.ReplaceDialog1Find(Sender: TObject);
begin
FindDialog1.Options:=ReplaceDialog1.Options; // Устанавливаем в диалоге поиска такие-же опции как и в диалоге замены
FindDialog1.FindText:=ReplaceDialog1.FindText; // Аналогично делаем с текстом
FindDialog1Find(Sender); // Вызываем процедуру поиска
end;

Нашел в интернете где-то, давно ещё...

Чего-то на FindDialog1Find(Sender); показывает ошибку((

[mihali4]

То Bayram_662
Не стоит цитировать целиком предыдущий пост - он и так виден.
А форум - не резиновый.
Не нужно нажимать на кнопку "Цитата" - просто пишем внизу, в окошке быстрого ответа и все дела...

[KiDoki]

Что за ошибка?