[alexdudchenko2022]

Пробовал мне нужно что бы ВСЕ найти слова начинающие на Имя: Раздел (i) i-номер цифры. Дело в том что пробовал реализовать:
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;

На одном компьютере ищет информации на другом не ищет не понятно конечно с чем это связано.

Мне надо как делать счетчик со словом "Раздел" проблем нет ни каких а сделать с цифрами ?

Добавлю ещё что и такое уже пробовал не работает точнее работает только не на всех компьютерах происходит поиск.

Код:

var
j:integer;

FIND:='Раздел '+inttostr(j);
For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(FIND, Memo1.Lines.Text)<>0 Then
begin
  ComboBox4.Items.Clear;
  ComboBox4.Items.Add('Раздел '+IntToStr(j));
  j:=j+1;
end;

Данный способ работает только на одном компьютере на других не работает не может распознать слово "Раздел 1" в Мемо1.
Есть другие варианты ?

lmikle: пользуемся тегами!