Поиск совпадающих ЦИФР в Memo! (не путать с поиском строк!)

[veniside]

Да, вначале ТС говорит о цифрах, потом о загадочном "совпадающем значении", можно понимать как угодно.

[NiKiToZZ-]

мне нужно чтобы если в есть в 1-ой и 20-ой строчке цифра "242" то прога мне эти первую и двадцатую строчки подсвечивала

[Serge_Bliznykov]

Сообщение от NiKiToZZ-

цифра "242"

нет такой цифры!

NiKiToZZ-, а скажите, Вы разницу между ЧИСЛОМ и ЦИФРОЙ знаете?

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

вначале ТС говорит о цифрах, потом о загадочном...

да числа ему нужны, числа...
Осталось выпытать одно число может быть в одной строке или несколько разных чисел (ну и что должна делать программа в этом случае).



а может вышеприведённый предположение не такое фантастическое?!!
NiKiToZZ-, а что, Вам нужно совпадение только тех строк,
где есть именно число 242 (двести сорок два) и никакое другое Вас не интересует?!!

[veniside]

Кстати, мемо не может подсветить несколько разных строк с пропусками. Ну т.е. стандартное мемо не может.

[AlDelta]

Не спится что-то... Извините за "нечитабельность", давно не спится

function ListOfNumbers(str:string; var list: TStringList): Boolean;
var temp: string;
    len, i: Integer;
    last: BOOL;
Begin
    len:=Length(str);
    temp:='';
    last:=False;
    
    list.Clear;
    list.Sorted:=True;
    list.Duplicates:=dupIgnore;

    for i:=1 to len do
      Begin
        if str[i] in ['0'..'9'] then
          Begin
            temp:=temp+str[i];
            last:=True;
          end
        else
          if (last) and (Length(temp)>1) then
            begin
              list.Append(temp);
              temp:='';
              last:=false;
            end;
      end;
   if Length(temp)>1 then
     list.Append(temp);
end;

function HaveNumber(str: string): Boolean;
var len, i: Integer;
    f: Boolean;
Begin
    len:=Length(str);
    f:=False;
    for i:=1 to len-1 do
      if (str[i] in ['1'..'9']) and (str[i+1] in ['0'..'9']) then
        Begin
          f:=True;
          Break;
        end;
    Result:=f;
end;

procedure TForm1.Button3Click(Sender: TObject);
const EMPTY = -1;
      NONE = -2;
var i,fam, sam,j,k,am, q1: Integer;
    str:string;
    l: TStringList;
    Res: array of Integer;
begin
  fam:=Memo1.Lines.Count-2;
  sam:=fam+1;

  SetLength(Res,Memo1.Lines.Count);
  for i:=0 to sam do
    Res[i]:=EMPTY;

  q1:=GetTickCount;
  l:=TStringList.Create;
  try
    for i:=0 to fam do
      if Res[i]=EMPTY then
        Begin
          str:=Memo1.Lines[i];
          if HaveNumber(str) then
            begin
              ListOfNumbers(str,l);
              for j:=i+1 to sam do
                Begin
                  str:=Memo1.Lines[j];
                  if Res[j]=EMPTY then
                    for k:=0 to l.Count-1 do
                      if Pos(l[k],str)<>0 then
                        Begin
                          Res[j]:=j;
                          Res[i]:=i;
                          Break;
                        end;
                end;
            end
          else
            begin
              Res[i]:=NONE;
            end;
        end;

    Label4.Caption:=IntToStr((GetTickCount-q1))+' ms.';
    am:=0;

    for i:=0 to sam do
      if Res[i]>0 then
        Inc(am);

    Label6.Caption:=IntToStr(Memo1.Lines.Count);
    Label2.Caption:=IntToStr(am);

  finally
    l.Free;
  end;
end;

sources.rar
Оптимизировать и править еще есть что, но уже лень