Текущий архив: 2007.05.13;
Скачать: CL | DM;
Вниз
Поиск Найти похожие ветки
← →
..::KraN::.. © (2007-04-20 14:44) [0]Как сделать поиск в компоненте TMemo?
← →
Ega23 © (2007-04-20 14:48) [1]Pos + F1
← →
{RASkov} (2007-04-20 15:05) [2]> [0] ..::KraN::.. © (20.04.07 14:44)
Натрави на него(Мему) TFindDialog....
← →
Alexey (AZ) (2007-04-20 15:06) [3]Memo1.Lines.Find ?
← →
Германн © (2007-04-20 15:13) [4]
> {RASkov} (20.04.07 15:05) [2]
>
> > [0] ..::KraN::.. © (20.04.07 14:44)
>
> Натрави на него(Мему) TFindDialog....
>
И что дальше?
← →
{RASkov} (2007-04-20 15:58) [5]> [4] Германн © (20.04.07 15:13)
> И что дальше?
А дальше [1] :)
← →
fd979 © (2007-04-20 16:36) [6]
for I := 0 to Memo1.Lines.Count do
begin
S1 := UpperCase(Memo1.Lines[I]);
PosReturn := Pos(UpperCase(edit1.Text), S1);
if PosReturn <> 0 then {found!}
begin
SkipChars := 0;
for J := 0 to I - 1 do
SkipChars := SkipChars + Length(Memo1.Lines[J]);
SkipChars := SkipChars + (I*2);
SkipChars := SkipChars + PosReturn - 1;
Memo1.SetFocus;
Memo1.SelStart := SkipChars;
Memo1.SelLength := Length(edit1.Text);
Bool := true;
Break;
end;
end;
Break - можешь не ставить, если хочешь чтобы искало дальше, но надо будет PosReturn присвоить 0 сначала, да и обрабатывать случай когда нашел. А еще лучше после того, как нашел (либо вообще с самого начала) определять на какой строке находится курсор и искать ниже.. Вобщем смотри сам дальше.
← →
..::KraN::.. © (2007-04-21 12:55) [7]
> Натрави на него(Мему) TFindDialog....
Вот именно что, я пробовал его вызывать, но при вводе в поле слова вместо русских букв вылазят какие-то иероглифы.
← →
{RASkov} (2007-04-21 15:07) [8]> [7] ..::KraN::.. © (21.04.07 12:55)
> Вот именно что, я пробовал его вызывать, но при вводе в
> поле слова вместо русских букв вылазят какие-то иероглифы.
Не понял, где и что у тебя не так... в самом диалоге русбуквы не отображаются? Приведи код вызова диалога и его OnFind, если что подправим...
Но с "буквами" фик знает....
← →
..::KraN::.. © (2007-04-22 20:55) [9]Ну я вызываю его FindDialog1.execute, запускаю программу, ввожу в поле какое-нибудь русское слово а вместо этого другие буквы, с английским языком нормально. может кроме FindDialog1.execute надо ещё что-нибудь делать???
Страницы: 1 вся ветка
Текущий архив: 2007.05.13;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.04 c
