FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
File of Byte
que tal.. miren mi problema es el siguiente.. yo lo que quiero es teniendo un codigo hexa en un TEdit pasarlo de alguna manera a byte y hacer un write sobre el archivo
procedure TForm1.FormCreate(Sender: TObject); var arc: file of byte; i: Integer; begin AssignFile(arc, 'a.txt'); rewrite(arc); for i := 1 to Length(Edit1.Text) do begin case Edit1.Text[i] of '1'..'9': write(arc, IntToHex(StrToInt(Edit1.Text[i]))); 'A': write(arc, IntToHex(10)); 'B': write(arc, IntToHex(11)); 'C': write(arc, IntToHex(12)); 'D': write(arc, IntToHex(13)); 'E': write(arc, IntToHex(14)); 'F': write(arc, IntToHex(15)); end; end; end; Esto es lo que tengo.. probe directamente copiando de internet algunos StrToHex y nada.. igualmente me dije en SysUtils y IntToHex devuelve un string asi q no se.. tmb probe con esto: procedure TForm1.FormCreate(Sender: TObject); var arc: file of byte; i: Integer; begin AssignFile(arc, 'a.txt'); rewrite(arc); for i := 1 to Length(Edit1.Text) do begin case Edit1.Text[i] of '1': write(arc, $1); '2': write(arc, $2); '3': write(arc, $3); '4': write(arc, $4); '5': write(arc, $5); '6': write(arc, $6); '7': write(arc, $7); '8': write(arc, $8); '9': write(arc, $9); 'A': write(arc, $A); 'B': write(arc, $B); 'C': write(arc, $C); 'D': write(arc, $D); 'E': write(arc, $E); 'F': write(arc, $F); end; end; end; y tmp che a ver si alguien me da una manopla XD |
#2
|
||||
|
||||
Si es que buscáis siempre lo difícil.
Lo que tienes que usar es StrToInt. Por ejemplo:
El "AND" sirve para maneter el valor en 8bit y evitar el desbordamiento. |
#3
|
|||
|
|||
gracias ñuño en verdad me sirvio mucho.. mil gracias
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Dividir Word en 2 Byte | dtomeysoto | Varios | 2 | 15-01-2010 17:34:20 |
File of byte y filesize | madmai | Varios | 1 | 11-07-2008 18:49:43 |
Medio byte activo | Al González | La Taberna | 4 | 06-09-2007 09:38:34 |
de BYTE a STRING | emeceuy | Varios | 3 | 20-08-2004 16:29:32 |
ADO: Byte nulo (byte #0) en un string | Pandre | Conexión con bases de datos | 0 | 02-04-2004 20:18:37 |
|