Ver la Versión Completa : archivos de texto
ssanchez
18-01-2007, 18:28:45
hola, ojala y me puedan ayudar, el problema es el siguiente: tengo que trabajar sobre archivos de texto, declare un archivo con tipo, declare tambien los campos dentro de ese tipo, acceso al archivo y muestro en varios edit los campos definidos, pero me muestra toda la cadena de mi archivo de texto
Me podrias orientar en saber como controlar las posiciones del archivo?
mil gracias
Prueba leyendo con el mismo tipo de datos, por ejemplo:
PhoneEntry = record
FirstName, LastName: string[20];
PhoneNumber: string[15];
Listed: Boolean;
end;
var
F : File of PhoneEntry
Procedure Escribir;
var
R : PhoneEntry;
begin
R.FirstName := 'Pepe';
R.LastName := 'Diaz';
AssignFile( F, 'c:\xxx.txt' );
Rewrite(F);
Write( F, R );
CloseFile(F);
end;
Procedure Leer;
var
R : PhoneEntry;
begin
AssignFile( F, 'c:\xxx.txt' );
Reset( F );
Read( F, R );
Showmessage( R.LastName );
CloseFile(F);
end;
Leete en la ayuda lo referente a "file of"
Saludos
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.