掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.