掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
'1,234.56abc789'から'1,234.56'を取り出す (ID:32609)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
久々にValなんて使ってみたら、以下が、「123456」で返ってきました。 Val('1234.56abc', extended型変数, ); こちらは、「1234.56」 Val('1234.56', extended型変数, ); それはさておき、こんなものでいかが？ function Suji(S: string): string; var i: Integer; begin Result := ''; for i := 1 to Length(S) do begin if not (S[i] in ['0'..'9', '.', ',']) then begin if i > 1 then Result := Copy(S, 1, i-1); Break; end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.