편집 할 메모 텍스트를 캡처하는 방법

Question

메모에 입력 된 동적 게이트웨이 IP를 텍스트 상자에 캡처하고 싶습니다. 와일드 카드를 사용하거나 "Gateway : 10.127. *. *"로 시작하는 게이트웨이의 전체 줄을 캡처하고 게이트웨이 IP를 텍스트 상자로 가져올 수 있습니다. 여기

이미 캡처 된 메모 텍스트의 예는 다음과 같습니다

Description: Microsoft Hosted Network Virtual Adapter 
HW Address Length: 6 
HWAddress: E0:2A:82:F9:B2:3E 
Index: 32 
Type: 71 
CurrentIPAddress: 
IP Addresses: 192.168.48.1/255.255.255.0 
Gateway: 0.0.0.0/255.255.255.255 
Name: {22712B8F-5E3A-48D4-8C0D-771708BF0305} 
Description: HUAWEI Mobile Connect - Network Card 
HW Address Length: 6 
HWAddress: 0C:5B:8F:27:9A:64 
Index: 4 
Type: 243 
CurrentIPAddress: 
IP Addresses: 10.127.144.193/255.255.255.252 
Gateway: 10.127.144.194/255.255.255.255 

편집 :

I:= Pos('Gateway: 10.127.', Memo1.Text); 
if I > 0 then begin 
    L := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, (intTostr(1)); 
    edit1.Text:=(intTostr(L)); 

Answer 1

Easist 방법은 메모의 라인을 통해 반복하고 있는지 확인하는 것입니다 이것을 달성하기 위해 (코멘트에서) 그것은 "Gateway : 10.127"로 시작합니다. 예를 들어

:

for LString in memo.Lines do 
    if AnsiStartsText('Gateway: 10.127.', LString) then 
    textbox.Caption := LString 

당신은 더 구체적인 처리를 위해뿐만 아니라 정규 표현식을 사용할 수 있습니다.

Answer 2

이것은 르네의 대답의 델파이 7 버전 : 델파이의

var 
    ii: integer 
begin 
    for ii := 0 to memo.lines.count -1 do begin 
    if pos('Gateway: 10.127.', memo.lines[ii]) > 0 then begin 
     textbox.caption := memo.lines[ii]; 
     break; 
    end; 
    end; 
end;