Új hozzászólás Aktív témák

• #352 zenit tag _Petya_ #350

  Új Válasz 2004-10-22 19:50:41 #352

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zenit

  tag

  válasz _Petya_ #350 üzenetére

  Íme:
  
  const
  Digits: string = '0123...XYZ'; <- számjegyek
  
  1. lépés: Str stringet számmá alakít Base számrendszerben.
  function StrToNum(Str: string; Base: Integer): LongInt;
  var
  . Digit: Integer;
  . Result: LongInt;
  begin
  . Result := 0;
  . while Str <> '' do
  . begin
  . . Digit := Pos(UpCase(Str[1]), Digits) - 1; Str := Copy(Str, 2, Length(Str) - 1);
  . . Result := Result * Base + Digit;
  . end;
  . StrToNum := Result;
  end;
  
  2. lépés: számot stringgé Base számrendszerben.
  function NumToStr(Num: LongInt; Base: Integer): string;
  var
  . Digit: Integer;
  . Result: string;
  begin
  . Result := '';
  . while Num > 0 do
  . begin
  . . Digit := Num mod Base; Num := Num div Base;
  . . Result := Digits[Digit + 1] + Result;
  . end;
  . if Result = '' then NumToStr := '0' else NumToStr := Result;
  end;
  
  Ennyi. Remélem, érthető.

Új hozzászólás Aktív témák