delphi - Unicode を ascii に変換する

Question

さまざまなエンコーディング (ASCII、UTF-8、UTF-16、UTF-32) のテキスト ファイルがあります。最良の部分は、数字だけで満たされていることです。たとえば、次のようになります。

192848292732

私の質問は次のとおりです。次のような関数は、すべてのデータを正しく表示できますか? そうでない場合、なぜですか？（ファイルを文字列としてコンテナ文字列にロードしました）

function output(container: AnsiString): AnsiString;
var
  i: Integer;
begin 
  Result := '';
  for i := 1 to Length(container) do
    if (Ord(container[i]) <> 0) then
      Result := Result + container[i];
end;

私の論理は、エンコーディングが異なる場合、ASCII と UTF-8 の余分な文字はすべて 0 ですか?

すべてのテストに問題なく合格します。