سحب الايميلات من قائمة مبعثرة

[Agmcz]

السلام عليكم

PHP كود :

function GETXGHZ(const s1, s2, s3: string): string;
var
  i, p1, p2: Integer;
  SL1, SL2: TStringList;
begin
  Result := '';
  SL1 := TStringList.Create;
  SL2 := TStringList.Create;
  try
    SL1.Text := s3;
    for i := 0 to SL1.Count - 1 do
    begin
      if (Pos(s1, SL1[i]) <> 0) and (Pos(s2, SL1[i]) <> 0) then
      begin
        p1 := Pos(s1, SL1[i]) + Length(s1);
        p2 := Pos(s2, SL1[i]);
        SL2.Add(Copy(SL1[i], p1, p2 - p1));
      end;
    end;
    Result := SL2.Text;
  finally
    SL1.Free;
    SL2.Free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := GETXGHZ('email: ', ' mailto:', Memo1.Text);
end;