掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列から数字のみを取り出す (ID:34621)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
0〜9 までだったらこんなのも。文字列から単純に半角数字だけを取り出すだけの関数です。 ［対象文字列］ ちまたの噂によるとDelphi2005は起動時間が遅いことで有名だった。Delphi2006になってこの問題は解消されらしい。最新版の2009の起動時間はどんなものなのだろう？ それにしてもProfessional版で102900円もするのか。 ［結果］ 2005 2006 2009 102900 //半角数字を得る（Delphi5） function GetNumberStr(const S: string): string; var i, k, L: Integer; P : PChar; Temp: TStringList; begin if S = '' then Exit; L := Length(S); i := 1; try P := StrAlloc(1000); //適当^O^; まあ、1000桁以上の数値はめったにないかと Temp := TStringList.Create; repeat if S[i] in [#$81..#$9F, #$E0..#$FC] then Inc(i,2) else begin if S[i] in ['0'..'9'] then begin k := 0; repeat P[k] := S[i]; Inc(i); Inc(k); until not (S[i] in ['0'..'9']); P[k] := #0; Temp.Add(String(P)); end else Inc(i); end; until i > L; Result := Temp.Text; finally Temp.Free; StrDispose(P); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.