Ver Mensaje Individual
  #5  
Antiguo 05-02-2007
Pandre Pandre is offline
Miembro
 
Registrado: may 2003
Ubicación: San Bartolomé de la Torre, Huelva (España)
Posts: 35
Reputación: 0
Pandre Va por buen camino
Y agregando un poco más, si lo que quieres es guardar información binaria, puede usar el TFileStream o TMemoryStram...


Código Delphi [-]
// ESCRITURA

procedure TForm1.Button2Click(Sender: TObject);
var
  FSArchivo: TMemoryStream;
  Numero: integer;
  Caracter: char;
begin

  Numero := 1234;
  Caracter := 'a';

  try
    FSArchivo := TMemoryStream.Create();
    FSArchivo.Position := 0;

    FSArchivo.Write(Numero, sizeof(integer));
    FSArchivo.Write(Caracter, sizeof(char));

    FSArchivo.SaveToFile('c:\archivo.ext');

  finally
    FSArchivo.Free;
  end;
end;

// LECTURA

procedure TForm1.Button3Click(Sender: TObject);
var
  FSArchivo: TMemoryStream;
  Numero: integer;
  Caracter: char;
begin

  try
    FSArchivo := TMemoryStream.Create();
    FSArchivo.LoadFromFile('c:\archivo.ext');
    FSArchivo.Position := 0;

    FSArchivo.Read(Numero, sizeof(integer));
    FSArchivo.Read(Caracter, sizeof(char));

  finally
    FSArchivo.Free;
  end;

  ShowMessage(inttostr(Numero));
  ShowMessage(Caracter);

end;


Saludos...
__________________
Un cordial saludo.

~~~~~~~~~~~~~~~~~~
José A. Gómez Martín
pandre@arsystel.com
Responder Con Cita