Delphi - agenda

 
Vista:

agenda

Publicado por pablo (25 intervenciones) el 11/12/2009 07:14:49
hola a todos! quiero hacer una agenda, con el formulario no tengo problema pero quiero saber como hago para guardar los datos ingresados en un archivo dat o file.text.
muchas gracias :)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:agenda

Publicado por beto (7 intervenciones) el 15/12/2009 21:31:10
Pues yo guardo y cargo datos de la siguiente manera

type
TDatosAgenda = record
Nombre:ShortString;
Telefono:ShortString;
end;

Procedure GuardarArchivo(Datos:TDatosAgenda;FileName:TFileName);
Var
stream : TStream;
begin
Stream := TFileStream.Create( FileName, FmCreate );
Stream.Position := 0;
Stream.Write( Datos, Sizeof( TDatosAgenda ) );
Stream.Free;
end;

procedure CargarArchivo(Var Datos:TDatosAgenda;FileName:TFileName);
Var
stream : TStream;
begin
Stream := TFileStream.Create( FileName, fmOpenRead );
Stream.Position := 0;
Stream.Read( Datos, Sizeof( TDatosAgenda ) );
Stream.Free;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar