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;