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

• #1253 lao ce aktív tag yksz #1252

  Új Válasz 2006-07-15 22:15:37 #1253

  Ú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

  

  lao ce

  aktív tag

  válasz yksz #1252 üzenetére

  gondolom a file bent van a helyen valamilyen objektumban, akkor van valamifele stream amit olvasol (mar lassan ket eve nem delphiztem egy karaktert sem, szoval nem tudom miert kezdtem neki itt okoskodni), aztan kikerestem neked egy ilyet:
  
  function IntToBin ( value: LongInt; digits: integer ): string;
  begin
  result := StringOfChar ( '0', digits ) ;
  while value > 0 do begin
  if ( value and 1 ) = 1 then
  result [ digits ] := '1';
  dec ( digits ) ;
  value := value shr 1;
  end;
  end;
  
  meg egy ilyet:
  
  function HexToInt(HexNum: string): LongInt;
  begin
  Result:=StrToInt('$' + HexNum) ;
  end;

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