PDA

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

Kurt
19-01-2007, 15:44:34
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