Konversi Octal Decimal dengan Delphi #173

andrypein.net : Ronde selanjutnya tentang apps konversi octal decimal dengan delphi sebelum last post ke hexadecimal nya.

Penampakan hasil akhir seperti ini gan :

Ok lanjut buat form seperti penampakan diatas dan jangan lupa tambahkan uses math nya, lalu masukan skrip fungsi untuk konversi Octal ke desimal.

function OctToDec(OctStr: string): string;
var  DecNum: Real;  
     i: Integer;  
     Error: Boolean;
begin  
 DecNum:=0;  
 Error:=False;  
 for i:=Length(OctStr) downto 1 do  
  begin    
   if not (OctStr[i] in ['0','1','2','3','4','5','6','7']) then    
    begin      
     Error:=True;      
     ShowMessage('Bukan bilangan Oktal');      
     Break;    
    end;    
    DecNum:=DecNum+StrToInt(OctStr[i])*Power(8, Length(OctStr)-i);  
  end;  
 if not Error then    
  Result:=FloatToStr(DecNum)  
 else    
  Result:='';
end;

4. beri event pada button click

procedure TForm1.Button1Click(Sender: TObject);
begin  
 lblhasil.Caption:=OctToDec(edit1.Text);
end;

Terakhir event edit keypress

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin  
 case key of
  'a'..'z','A'..'Z': key:=#10;  
 end;
end;

Done, finish tinggal dicoba di run apps nya dan unduh gan projekan konversi octal decimal dengan delphi nya di aing.

Download

*AFK