Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   archivos de texto (https://www.clubdelphi.com/foros/showthread.php?t=39392)

ssanchez 18-01-2007 18:28:45

archivos de texto
 
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


La franja horaria es GMT +2. Ahora son las 12:10:16.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi