[RainMEN2009]

Привет Всем!
Есть такая проблема, толи я чёт совсем не понимаю, толи процедура сложна =)
Суть вопроса такова есть допустим текст хранящися в Tmemo

Настройка протокола IP для Windows

Имя компьютера . . . . . . . . . : Игорь-ПК
Основной DNS-суффикс . . . . . . :
Тип узла. . . . . . . . . . . . . : Смешанный
IP-маршрутизация включена . . . . : Нет
WINS-прокси включен . . . . . . . : Нет

Адаптер PPP VPN-подключение:

DNS-суффикс подключения . . . . . :
Описание. . . . . . . . . . . . . : VPN-подключение
Физический адрес. . . . . . . . . :
DHCP включен. . . . . . . . . . . : Нет
Автонастройка включена. . . . . . : Да
IPv4-адрес. . . . . . . . . . . . : 81.9.91.241(Основной)
Маска подсети . . . . . . . . . . : 255.255.255.255
Основной шлюз . . . . . . . . . : 0.0.0.0
DNS-серверы. . . . . . . . . . . : 81.9.80.10
81.9.80.9
NetBios через TCP/IP. . . . . . . . : Включен

нужно искать допустим слово "Имя компьютера" и выводить допустим в label Игорь-ПК
либо искать "Адаптер PPP" и выводить VPN-подключение
Нашёл код как искать значения в Tmemo но как переделать для моих нужд так и не дошло.

Код:

var
  S : String;
  LenW,i, j : Integer;
begin
//Искомый текст, буквы которого преобразованы к заглавным.
  gText := AnsiUpperCase(Edit4.Text);

  LenW := Length(gText)+3;// здесь выделяем ещё три знака после символа
  if True then

  //Текст из Мемо с буквами, приведёнными к заглавному варианту
  S := AnsiUpperCase(Memo2.Text);
  if gPos = 0 then gPos := 1;
  gPos := PosEx(gText, S, gPos);
  if gPos > 0 then begin
    Memo2.SetFocus;
        //Выделяем найденный текст.
    Memo2.SelStart := gPos-1 ; 
    Memo2.SelLength := LenW; 
        //Прокручиваем текст в окне редактирования так,
    //чтобы выделенная часть стала видимой
    SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0);
    memo3.Lines.text:=memo3.Lines.text + Memo2.SelText + #13#10; //пишим с переходом на строку вниз
  end;
    //Позицию для начала следующего поиска устанавливаем
  //непосредственно справа от текущего найденного шаблона.
  if gPos > 0 then gPos := gPos + LenW;
end;

[Kailon]

Решение еще нужно или уже истек срок давности?

[Ildar-tsr]

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

Решение еще нужно или уже истек срок давности?

Учитывая, что последнее действие ТС на данном форуме было 06.04.2012, думаю поздновато.