[alexdudchenko2022]

Здравствуйте, помощь нужна есть Мемо1 и в нем есть текст определенный:
....
Раздел 1 ...
Раздел 2 ...
Раздел 3 ...
Раздел 4 ...
...
Мне нужно найти в Мемо1 все слова начинающие на Раздел с цифрами и добавить в Combobox. Подскажите как мне реализовать.
Скрин для наглядности прикладываю.

[Reloader]

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

Здравствуйте, помощь нужна есть Мемо1 и в нем есть текст определенный:
....
Раздел 1 ...
Раздел 2 ...
Раздел 3 ...
Раздел 4 ...
...
Мне нужно найти в Мемо1 все слова начинающие на Раздел с цифрами и добавить в Combobox. Подскажите как мне реализовать.
Скрин для наглядности прикладываю.

Используйте "pos"

[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: пользуемся тегами!

[lmikle]

По поводу "на одном ищет, на другом нет".
Для начала, второй код в принципе не рабочий, т.к. ты при нахождении текста очищаешь КомбоБокс, соответсвенно все, что ты нашел до этого, удаляется.
Второе. В принципе, такого быть не должно. Но если происходит, тут я бы посмотрел на версию Винды и настройки русского языка. Были случаи на ХР, когда настройки вставали криво, но в этом случае просто отображались кракозябры, а вот сбоев в рвботе особо не наблюдалось.

Теперь по сути.
Упростим ситуацию.
Пусть у нас токен "Раздел ###" всегда находится в начале новой строки и всегда имеет формат как поквзвно, а вслед за токеном после цифр всегда идет не цифра. Поиск делаем регистро зависимым (т.е. "Раздел" и "РАЗДЕЛ" это разные токены).
Тогда делаем примерно так;

Код:

var
  I : Integer;
  S : String;
begin
  ComboBox1.Items,Clear;
  For I := 0 To Memo1.Lines.Count-1 Do
    If IsSection(Memo1.Lines[i],S) Then
      ComboBox1.Items.Add(S);
end;

function IsSection(sIn : String; var sOut : String) : Boolean;
const
  token : String = 'Раздел ';
var
  I : Integer;
begin
  Result := False;
  If (Pos(token, sIn) = 1) And (Length(sIn) >= Length(token + 1)) Then
    Begin
      sOut := token;
      I := Length(token) + 1;
      While (I <= Length(sIn)) And (sIn[i] in ['0'..'9']) Do
        Begin
          sOut := sOut + sIn[i];
          Inc(I);
        End;
      Result := sOut <> token; // если цифры не нашли, то не добаляем.
    End;
end;

ЗЫ. Не проверял, но должно работать.

[alexdudchenko2022]

Спасибо! Код проверил твой работает за исключением строки в функции!
Твой вариант:
If (Pos(token, sIn) = 1) And (Length(sIn) >= Length(token + 1)) Then
внёс коррективы
If (Pos(token, sIn) = 1) And (Length(sIn) >= Length(token + IntToStr(1))) Then
И тогда работает!!!

[lmikle]

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

Спасибо! Код проверил твой работает за исключением строки в функции!
Твой вариант:
If (Pos(token, sIn) = 1) And (Length(sIn) >= Length(token + 1)) Then
внёс коррективы
If (Pos(token, sIn) = 1) And (Length(sIn) >= Length(token + IntToStr(1))) Then
И тогда работает!!!

Oops.
На самом деле не там скобочку поставил.
Надо так:

Код:

If (Pos(token, sIn) = 1) And (Length(sIn) >= Length(token) + 1) Then