Foros Club Delphi - Crear Archivos Aleatorios y Binarios en Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Crear Archivos Aleatorios y Binarios en Delphi (https://www.clubdelphi.com/foros/showthread.php?t=84503)

Crear Archivos Aleatorios y Binarios en Delphi

Hola a Todos...

Habro este hilo para pedir sugerencias sobre el manejo de archivos aleatorios y binarios en Delphi.

Debo comentarles que no he profundizado este tema, tan solo he llegado a crear archivos secuenciales, en lo que no me ubico es donde y como declarar las variables (Type) para archivar los registros aleatorios y si en los archivos binarios se puede guardar estas variables personalizadas (Type)

Toda sugerencia es bienvenida para captar los pasos a seguir.

Mira los enlaces del final de esta misma página.

Holas...

Sirvio los enlaces sugeridos, mas con el ejemplo de la Agenda que adjuntaron, ya pude crear un archivo aleatorio con estructura, supongo que es lo mismo con los archivos Binarios.

○ Una consulta, cual es la funcion para verificar si existe un Archivo y una Carpeta..? y como calculo el número de registros de un archivo aleatorio..? me falta controlar eso, pues al abrirse el formulario, me produce un Error que indica "File not found"

◘ Una pregunta mas, tengo archivos aleatorios que cree en Visual Basic con esta estructura:

Type Primo
npr As Double
End Type

Declarando la misma estructura en Delphi podré acceder a leer y a escribir registros en el archivo? Al respecto, en los ejemplos de los enlaces usan la extrension ".dat" y en VB puse la extension ".txt" .... que procedimiento debo hacer para utilizar los registros de estos archivos?

Gracias por darme sus sugerencias....

(Este es el codigo de inicio del formulario donde produce error)

Código PHP:


		
			
procedure TUFARCHI.FormCreate(Sender: TObject);



label

  Line1,Line2;



begin

AssignFile(p1, 'D:\BDEL\AR_REGISTRO.DAT');

Reset(p1);

nrg:=0;

if filesize(p1)=0 then goto Line2;



Line1:



read(p1,drg);

nrg:=nrg+1;

lbrg.Items.Add(drg.ap);

if not eof(p1) then goto Line1;

CloseFile(p1);



Line2:

end;

¿Ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

No mezcles en un mismo hilo preguntas que no tienen nada que ver unas con otras.
La mayoria de cosas que has preguntado son simples y las encontrarás realizando una sencilla búsqueda en los foros. Gracias.

Holas...

Pues ya lei y comprendi... Gracias por la guia en lo referente al Foro y a los archivos... es interesante cuando uno adquiere seguridad de algo y le nace el saber mas... puesto que a Delphi lo puse a un lado por lo del ingles; pero tiene muchas herramientas que las ire aprendiendo con la biblia de Delphi que descargue....

Holas Casimiro...

No fue complicado, tan solo algo diferente como se manejan los ficheron en Visual Basic; pero lo veo mas practico en Delphi 7 el cual uso.
Los archivos de numeros primos que cree en VB con estructura simple, Delphi los abrio y reconocio bien cada registro...