Str型の１文字をChar型へ変換する方法について (ID:5417)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Halbow です。 >// 文字列から数値以外の文字を取り除きます。 数字以外を取り除くことより、数字だけを集めた方が簡単ですよ。 function GetNumChars(const s:string):string; var ws:WideString; i:integer; begin ws := s; result := ''; for i := 1 to Length(ws) do if Ord(ws[i]) in [$0030..$0039] then result := result+ws[i]; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := GetNumChars(Edit1.Text); end;