Manejo de archivos binarios delphi 7

[Iña43]

Hola como les va gente? Espero que bien, primero que nada les quiero contar que estoy haciendo un juego de preguntas en el que separe preguntas y respuestas en dos array diferentes
(Preg[1]:=pregunta y resp[1]:=respuesta),los separe debido a que yo quiero escribir(write) leer(reed) y seek(buscar posicion especifica del array de pregunta para luego leerla con el read) todo esto con Tfilestream debido a que es mucho mas rapido y eficaz que blockwrite y blockread, ademas cada array cuenta con 30 slots y varia informacion en cada slot


Las preguntas son random aleatorias
Codigo no creo que sea necesario subir porq solamente tengo cargadas las preguntas y respuestas en los array y los condicionales(if , else if son para si la respuesta es correcta, si gano,si perdio una vida y eso)
Lo unico que quiero es informacion debido a que no encuentro nada similar en la web.

[Iña43]

Estuve viendo q con writebuffer y readbuffer es mas rapido pero no encuentro nada de writebuffer readbuffer y seek sobre array de strings

[Neftali [Germán.Estévez]]

Empezado por Iña43

Lo unico que quiero es informacion debido a que no encuentro nada similar en la web.

Bienvenido a los foros.
Lo primero recomendarte que leas la Guía de estilo.

A partir de ahí, estaría bien que intentes concretar la pregunta.
¿Información de qué? ¿Tfilestream? ¿Trabajo con Arrays? ¿Guardar y recuperar? ...

Por ejemplo, en la wiki de embarcadaero tienes información sobre TfileStream. Sería el primer lugar donde mirar.
Ahí, además de la explicación, suele haber links a ejempos con código para que puedas ver el funcionamiento.
En este caso, aquí puedes ve código comentado de cómo se utiliza.


Lo dicho, intenta concretar un poco más sino es difícil ayudarte.

[Iña43]

Informacion de preguntas y respuestas

Lo q no encuentro es como guardar y leer un array de string

Tfilestream se utiliza para guardar archivos muy pesados y hacerlos mas eficientes que el tradicional guardado

Si trabajo con arrays

Algo asi seria


Procedure copiar
// asignar el archicñvo y todo eso
For i:=1 ro N do
Writebuffer(copiar preguntas a un archivo)
End;

Function copiar
// asignar el archivo y todo eso
Seek(leer una posicion especifica de las preguntas por ej preg[5])
Readbuffer(leer la preg que escogi en el seek en este caso la 5)
End;


Function leer


End;

Function leer

[Iña43]

Function leer era el ultimo en vez de function copiar y (nose porq se me escribio el function leer abajo dos veces, esto no va)

[Neftali [Germán.Estévez]]

Por favor, utiliza TAG's cuando escribas código dentro de un mensaje.

En este hilo (y seguro que si buscas encontrarás más) puedes ver cómo trabajar com TFileStream y ReadBuffer y WriteBuffer.
https://www.clubdelphi.com/foros/showthread.php?t=90852

Otra opción es hacer algo más sencillo y trabajar con una estructura tipo TIniFile, que te permita almacenar en un único fichero preguntas y respuestas. No se de cuanto estamos hablando, pero a no ser que sean miles de preguntas no creo que exista mucha diferencia de tiempo. Si hablamos de 30 preguntas, posiblemente la diferencia de tiempo será inapreciable.