Comment faire pour capturer le texte de mémo pour éditer Delphi

Question

Je voudrais capturer l'adresse IP de passerelle dynamique remplie dans un mémo à une zone de texte. Comment puis-je le faire avec des caractères génériques ou capturer toute la ligne de la passerelle qui commence par "Gateway: 10.127. *. *" Et obtenir l'adresse IP de la passerelle à la zone de texte.

Voici l'exemple de texte du mémo déjà capturé:

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 

EDIT: (de commentaire)

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

façon easist pour y parvenir serait de itérer sur les lignes de la note de service et vérifier si il commence par "Gateway: 10.127.".

Par exemple:

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

Vous pouvez utiliser des expressions régulières aussi bien pour une manipulation plus précise.

Answer 2

Ceci est une version Delphi 7 de la réponse de René:

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;