تغيير مبناي يك عدد از مبناي هشت به Integer

function OctToInt(Value: string): Longint;

var

    i: Integer;

    int: Integer;

begin

int := 0;

for i := 1 to Length(Value) do

begin

int := int * 8 + StrToInt(Copy(Value, i, 1));

end;

Result := int;

end;

 صفحه اصلی | مقالات | سوال و جواب | Downloads | Beeper help | جستجو | تصاویر برنامه ها | تبلیغات | تماس با ما | وبلاگ شخصی
در صورت بروز هر گونه مشكل در استفاده از نرم افزار هاي اين سايت, مشكل را با مدير اين سايت در ميان بگذاريد.

This work is licensed under a Creative Commons Attribution 2.5 License.

آخرين به روز رسانی: آمار بازدید: