Ver Mensaje Individual
  #4  
Antiguo 28-05-2010
kdemia kdemia is offline
Miembro
 
Registrado: may 2010
Posts: 109
Reputación: 14
kdemia Va por buen camino
osea segun lo que me dijiste hago esto

procedure TForm1.Button1Click(Sender: TObject);
var s: byte;
begin
if od.Execute then
begin
AssignFile (arc, od.FileName);
reset(arc);
while not EOF(arc) do
begin
read(arc, s);
str[0]:= str[0]+ inttohex(s);
end;
str.SaveToFile('cualquiercosa.txt');
end;
end;

s no es un longword porq cuando lo quiero leer no me deja, entonces lo pongo en byte, ahora... esta parte: -str[0]:= str[0]+ inttohex(s);- me dice -[DCC Error] Unit1.pas(39): E2250 There is no overloaded version of 'IntToHex' that can be called with these arguments-

:/

Última edición por kdemia fecha: 28-05-2010 a las 01:58:46.
Responder Con Cita