掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Str型の１文字をChar型へ変換する方法について (ID:5415)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
初めまして、Delphi初心者のりょーちんと申します。 現在、下記のような関数を作成して、文字列から数字以外の文字を取り除く 処理をさせてようとしています。 １文字づつ確認して、数字以外ならば文字を組み立てない、という処理に しているのですが、そうするとstr型をchar型に変換する必要がでてきました。 ヘルプや過去ログを参照して、下記のようにコーディングしてみましたが、 やはりうまく動かすことができません。 str型の１文字をchar型に代入するにはどうすればよいのでしょうか？？ 初心的な質問で大変恐縮ですが、どうかお知恵をお貸し下さい。 宜しくお願い致します。 function CutStr(strCutStr : String):String; var i : integer; tmpS : string; tmpC : Char; begin // 文字列から数値以外の文字を取り除きます。 for i := 1 to Length(WideString(strCutStr)) do begin tmpS := Copy(strCutStr,i,1); // Str型からChar型へ変換 StrPLCopy(tmpC, tmpS, 1); if tmpC in ['0'..'9'] Then Result := Result + tmpS; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.