Autor Téma: ako previest 128bit cislo na integer do stringu  (Přečteno 267 krát)

Offline František

  • Guru
  • *****
  • Příspěvků: 704
  • Karma: 7
    • Verze Delphi: primárne v XE5, občas 10.2.3 comunity
ako previest 128bit cislo na integer do stringu
« kdy: 24-11-2021, 12:29:51 »
mam 128bit BIN
1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
ako ho previest na integer hodnotu v stringu - nakolko integer je len 64bit

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 2982
  • Karma: 108
    • Verze Delphi: D2007, DXE + 2 poslední
    • O Delphi v češtině
Re:ako previest 128bit cislo na integer do stringu
« Odpověď #1 kdy: 24-11-2021, 12:41:13 »
A chces s nim pak pocitat, nebo ho jen zobrazit?
Embarcadero MVP - Czech republic

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 2982
  • Karma: 108
    • Verze Delphi: D2007, DXE + 2 poslední
    • O Delphi v češtině
Re:ako previest 128bit cislo na integer do stringu
« Odpověď #2 kdy: 24-11-2021, 12:45:29 »
http://rvelthuis.de/programs/bigintegers.html by to mel umet i nacist / prefix 0b a pak s tim pracovat.  Src https://github.com/rvelthuis/DelphiBigNumbers
« Poslední změna: 24-11-2021, 12:48:12 od Radek Červinka »
Embarcadero MVP - Czech republic

Offline František

  • Guru
  • *****
  • Příspěvků: 704
  • Karma: 7
    • Verze Delphi: primárne v XE5, občas 10.2.3 comunity
Re:ako previest 128bit cislo na integer do stringu
« Odpověď #3 kdy: 24-11-2021, 13:11:34 »
v podstate len zobrazit, staci mi to v stringu
bin v stingu do decimal v stringu

Offline František

  • Guru
  • *****
  • Příspěvků: 704
  • Karma: 7
    • Verze Delphi: primárne v XE5, občas 10.2.3 comunity
Re:ako previest 128bit cislo na integer do stringu
« Odpověď #4 kdy: 24-11-2021, 14:06:27 »
stacil by mi taky furik namiesto enterprise zo startrek

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 2982
  • Karma: 108
    • Verze Delphi: D2007, DXE + 2 poslední
    • O Delphi v češtině
Re:ako previest 128bit cislo na integer do stringu
« Odpověď #5 kdy: 24-11-2021, 14:27:14 »
stacil by mi taky furik namiesto enterprise zo startrek
A co ti brani, si to napis, kdyz se ti nelibi hotove reseni ve forme par trid.
A hexa by ti to nestacilo? To by bylo mnohem jednodussi, proste by jsi to po 8 znacich odzadu odsekaval.
Embarcadero MVP - Czech republic

Offline vandrovnik

  • Guru
  • *****
  • Příspěvků: 1274
  • Karma: 51
    • Verze Delphi: 10.3
Re:ako previest 128bit cislo na integer do stringu
« Odpověď #6 kdy: 24-11-2021, 20:08:24 »

Offline František

  • Guru
  • *****
  • Příspěvků: 704
  • Karma: 7
    • Verze Delphi: primárne v XE5, občas 10.2.3 comunity
Re:ako previest 128bit cislo na integer do stringu
« Odpověď #7 kdy: 25-11-2021, 17:19:00 »
no nakoniec som to vyriesil v ORACLE ale hladam nejake podobne riesenie v delphi
Kód: Delphi [Vybrat]
  1.     s_BIN_ORA := TRIM(BOTH ',' FROM REPLACE(REPLACE(s_BIN, '1', '1,'),'0','0,'));
  2.     EXECUTE IMMEDIATE 'SELECT BIN_TO_NUM('|| s_BIN_ORA|| ') FROM dual' into s_DEC;
  3.