delphi - 文字列内の\xA0（または非ASCII）文字を''に置き換えるにはどうすればよいですか？

Question

スペース文字に置き換えたい非ASCII文字が多数含まれているExcelファイルがあります。

このテキストはMySQLデータベースに入力され、文字列にこれらの文字を含めてインポートされません。HY000 Incorrect string value行を投稿しようとすると、が表示されます。

Answer 1

非ASCII文字のセットが修正されている場合は、次を使用できます。

NewString := StringReplace(OriginalString,#1#4,' ',[rfReplaceAll])

ここで、＃1＃4は、置き換えたい非ASCII文字です。

これがその使用に関するいくつかのドキュメントです。

これを行うこともできます。

function StripNonAlpha(aInput : String) : String;
var
 I : Integer;
begin
 result := aInput;
 for I := 1 to length(result) do
 begin
   if not CharInSet(result[I],['A'..'Z','a'..'z']) then
      result[I] := ' ';
 end;
end;

次に、CharInSetのSetを受け入れ可能な文字に変更できます。