Поиск в Tmemo через TEdit

[apocalypce]

здравствуйте! есть код прописанный в Tedit (OnChenge):

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;

Все работате,но поиск чувствителен к регистру!(

Что то я не догоню если кинуть еще на форму CheckBox (с caption: учитывать регистр) то догнать не могу как такое реализовать.

Т.е.

var 
Find:string; 
i:integer; 
begin
If CheckBox.Checked=true then
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;
Begin
If CheckBox.Checked=false then
НЕ УЧИТЫВАТЬ РЕГИСТР

[ОДИНОЧЕСТВО В СЕТИ]

Memo1.Lines.Text и find переводи в верхний регистр и ищи

Функция UpperCase -Изменяет символы в строке из нижнего регистра в верхний

[Terran]

Лучше использовать AnsiUpperCase или AnsiLowerCase.

[apocalypce]

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

Лучше использовать AnsiUpperCase или AnsiLowerCase.

смысле?я не так давно кодю на делфи поэтому можно сказать мне многое не понятно(((

[Terran]

AnsiUpperCase и AnsiLowerCase - это функции, находящиеся в модуле SysUtils. Они выполняют перевод символов в верхний и нижний регистр. Только в отличие от функции UpperCase эти функции переводят как и русские так и английские символы и многое другой, а функция UpperCase переводит только английские.

[russian-stalker]

Недавно уже была похожая тема.
Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
   Find,memtext:string;
   i:integer;
begin
   if checkbox1.Checked then
   begin
      find:=Edit1.Text;
      memtext:=Memo1.Lines.Text;
   end else
   begin
      find:=ANSIUpperCase(Edit1.Text);
      memtext:=ANSIUpperCase(Memo1.Lines.Text);
   end;
   for i:=0 to Memo1.Lines.Count-1 do
   if Pos(FIND, memtext)<>0 then
   begin
      Memo1.SetFocus();
      Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
      Memo1.SelLength:=Length(FIND);
   end;
end;

[apocalypce]

Сообщение от russian-stalker

Недавно уже была похожая тема.
Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
   Find,memtext:string;
   i:integer;
begin
   if checkbox1.Checked then
   begin
      find:=Edit1.Text;
      memtext:=Memo1.Lines.Text;
   end else
   begin
      find:=ANSIUpperCase(Edit1.Text);
      memtext:=ANSIUpperCase(Memo1.Lines.Text);
   end;
   for i:=0 to Memo1.Lines.Count-1 do
   if Pos(FIND, memtext)<>0 then
   begin
      Memo1.SetFocus();
      Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
      Memo1.SelLength:=Length(FIND);
   end;
end;

данный код ищет первую букву и переходит сразуже в мемо, что не есть гуд!((

[Rebel123]

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i,j,k:integer;
begin
for i := 0 to Form4.RichEdit1.Lines.Count - 1 do
begin
  if pos(edit1.Text,Form4.richedit1.Lines.Strings[i])<>0 then
  begin
     Form1.setfocus;
     Form4.richedit1.SetFocus;
     Form4.richedit1.SelStart := SendMessage(Form4.richedit1.Handle, EM_LINEINDEX, i, 0)+pos(edit1.Text,Form4.richedit1.Lines.Strings[i])-1;
     Form4.richedit1.SelLength := Length(edit1.Text);
     Form4.richedit1.SelAttributes.Color:=clred;
  end;
end;
end;

end.

Просто Заменишь RichEdit1 на Memo1 и все!=)

[Пепел Феникса]

Rebel123, пробывал заменять то?
а стоило...
код рабочий но частично...много не хватает...

ТС, нужен поиск в мемо по типу блокнота чтоли?

[apocalypce]

Сообщение от Пепел Феникса

Rebel123, пробывал заменять то?
а стоило...
код рабочий но частично...много не хватает...

ТС, нужен поиск в мемо по типу блокнота чтоли?

нужно сделать так как это реализованно в браузере firefox. т.е. мой код работатет, но только он чувствителен к регистру, а надо чтобы чувствительность к регистру не было! И не надо ничего заменять! мне пока надо просто найти в тексте, заменой текста думаю будет использован replace dialog.