1

良い一日。TRegExpr コンポーネントを使用して無効な文字を単純に置き換える方法の例が見つからないようです。たとえば、文字列 = 'abcdeg3fghijk'; があります。数字の「3」などの無効なすべての文字を置き換えたいのですが、これを TRegExpr で処理してすべての無効な文字を置き換える方法を教えてください。私の意図は、TRegExpr を使用して単純な URL クリーナー/バリデーターを構築する方法を学ぶことです。

procedure TForm1.Button3Click(Sender: TObject);
var
  RegExp: TRegExpr;
  astr:string;
begin
  astr:='h"ttp://ww"w.msn."com~~~';
  // I want to clean the string to remove all non valid chars

  //this is where I am lost

  RegExp:=TRegExpr.Create;
  try
    RegExp.Expression:=RegExpression;  
  finally
    RegExp.Free; 
  end;
end;
4

1 に答える 1