التعامل مع النصوص

[Agmcz]

السلام عليكم

PHP كود :

uses IdURI

function Filterdz(Url: string): string;
var
  URI: TIdURI;
  LS: TStringList;
begin
  LS := TStringList.Create;
  URI := TIdURI.Create(Url);
  try
    LS.Add(URI.Path + URI.Document);
    LS.Add(URI.Path);
    Result := LS.Text;
  finally
    LS.Free;
    URI.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LS, LS2: TStringList;
  i: Integer;
  Data, Result: string;
begin
  LS := TStringList.Create;
  LS2 := TStringList.Create;
  LS.Text := Data;
  begin
    for i := 0 to LS.Count - 1 do
    begin
      LS2.Add(Filterdz(LS[i]));
    end;
    Result := LS2.Text;
  end;
end; 


بالتوفيق