Привет Всем!
Есть такая проблема, толи я чёт совсем не понимаю, толи процедура сложна =)
Суть вопроса такова есть допустим текст хранящися в 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;