お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"10進数→8進数の変換"

この発言に対し以下のコメントが寄せられています
#01431 らせん企画 さん RE:8進数→10進数の変換

usesに[Math]を追加して下さい。 //8進数を10進数に変換する関数 //変換できなかったら-1を返します function hatijuu(hati:string):integer; var juu ,keta ,i : integer; begin result := 0; juu := 0; keta := length(hati); for i := 1 to keta do begin try if strtoint(hati[i]) > 7 then result := -1; except result := -1; end; end; if result = 0 then begin for i :=1 to keta do begin juu := juu + ((strtoint(hati[keta-i+1])) * ceil(power(8,i-1))); end; result := juu; end; end;  ここへの発言は初めてなんですが・・・こんなもんでもいいのだろうか? 02/4/20(Sat) 00:28am DZU01521 古今 FBORLUSR/FDELPHIフォーラムプレゼント『Delphiマガジン Vol.22』応募  - FDELPHI MES(16):玉石混淆みんなで作るSample蔵【見本蓄積】 02/04/20 - Original document by 古今 氏 ID:(DZU01521)



ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum