この発言に対し以下のコメントが寄せられています

#01431　らせん企画      さん　RE:８進数→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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。