この発言は
#01430　古今            さんの10進数→8進数の変換
に対するコメントです



#1430 古今 さん こんにちは らせん企画の佐々木です

  初めての発言にちゃちゃを入れることになり、すみません。
別の方法もあるということでご容赦ください。m(_ _)m
  それと表題を直しました。



//8進数を10進数に変換する関数
//変換できなかったら-1を返します
function hatijuu(hati:string):integer;
var
  keta ,i : integer;
begin
  result := 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;
  // shl で ３ビット左にずらすことで
  // ８(２の３乗)倍していることになります。
  if result = 0 then
    for i :=1 to keta do
      Result := (Result shl 3) + strtoint(hati[i]);
end;

             2002/4/20(Sat) 07:41am  BYQ05322 らせん企画の佐々木
 


- FDELPHI  MES(16):玉石混淆みんなで作るSample蔵【見本蓄積】 02/04/21 -

Original document by らせん企画      氏 ID:(BYQ05322)

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