|
Платные хостинги
Раскрутка сайта
Книги по программированию
Read some bytes?, Как прочитать несколько байт из файла?
- Как мне считать из файла несколько байт, перевести их в десятичные числа и записать в Edit?
- pol'zuysya TFileStream
- Код var с:integer;begin with TFileStream.create('c:\MyFile.doc', fmShareDenyNone) do try read(&c,4); Edit1.text:=inttostr(c); finally Free; end;highlightSyntax('delphizMDM3Y','delphi');код не проверял.если надо не одно число, то просто после вывода читаеш дальше и выводиш или так:Код var с:integer;j:byte;begin with TFileStream.create('c:\MyFile.doc', fmShareDenyNone) do try read(&c,4); Edit1.text:=inttostr(c); read(&c,4); Edit2.text:=inttostr(c); read(&j,1); Edit3.text:=inttostr(c); finally Free; end;highlightSyntax('delphiYTNiMTk','delphi');
- A pochemu &c a ne prosto c. Ya prosto tak pisal.
- Bity? Jeto nevozmojno. Bity chitat' nel'zja. Mojno chitat' bai'ty, a iz nih, putem masok i sdvigov "vytaskivat'" bity.
- Я знаю
- хороший вопрос :?QUOTE Черт, ошибочка вышла, надо биты определенные считывать........ читай байты, а потом смотри факю.
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
