Reakce na odpověď

Koukni na tohle;

procedure TForm1.Button1Click(Sender: TObject);
Var I,P:Integer;
    S:String;
    A:Array of String;
begin
 Memo1.Lines.LoadFromFile('ip.txt');
 S:=Memo1.Lines.Text;
 P:=0;
 SetLength(A,P+1);
 for I:=1 to Length(S) do
  begin
//   if Ord(S[I])=13 then
   if S[I]=#13 then
    begin
      Inc(P);
      SetLength(A,P+1);
      If Copy(A[P-1],0,Pos(' ',A[P-1])-1)=Edit1.Text then
       begin
        Label1.Caption:=A[P-1];
        break;
       end;
    end
   else
//    if Pos(Chr(10),S[I])=0 then A[P]:=A[P]+S[I];
    if Pos(#10,S[I])=0 then A[P]:=A[P]+S[I];
  end;
end;

Soubor 'ip.txt';

97.11.44.1 vasicek #wifi1-plus-64-20480
97.11.44.1 vasicek #wifi2-plus-64-20480
97.11.44.1 vasicek #wifi3-plus-64-20480
97.11.44.1 vasicek #wifi4-plus-64-20480
97.11.44.1 vasicek #wifi5-plus-64-20480
97.11.44.1 vasicek #wifi6-plus-64-20480
97.11.44.1 vasicek #wifi7-plus-64-20480
97.11.44.2 vasicek #wifi8-plus-64-20480
97.11.44.1 vasicek #wifi9-plus-64-20480
97.11.44.1 vasicek #wifi10-plus-64-20480

V 'editu1' mas '97.11.44.2';

Řetězce v Delphi