Ver Mensaje Individual
  #1  
Antiguo 04-03-2018
branncg branncg is offline
Miembro
NULL
 
Registrado: jun 2015
Posts: 16
Reputación: 0
branncg Va por buen camino
ayuda con cargar datos de un archivo .dat

Hola a todos, tengo una duda, tengo un pequeño juego que consiste en comer manzanas para pasar de nivel, cada jugador registra su nombre y se le registra el tiempo en segundos en que tardó en pasar todos los niveles, hay una procedure que es para mostrar todos los nombres y todas las puntuaciones de todos los tiempos, este es el código:

Código Delphi [-]
procedure TJuegoPixel.mostrarpuntuaciones;
type
 jugador=record
   nombre:string[30];
   tiempo:integer;
 end;
var f:file of jugador;
r:jugador;c:integer;
begin
assignfile(f,'C:\Users\Brandon\Desktop\BRANDONCG\juego\imagenes\Datos.Dat');
reset(f);
c:=0;
while not eof(f) do begin
seek(f,c);
read(f,r);
showmessage(r.nombre+' '+inttostr(r.tiempo));
c:=c+1;
end;
end;

Funciona bien pero muestra primero una puntuación y nombre luego otra puntuacion y nombre, como pueden ver el showmessage hace ese ciclo hasta acabar de leer todo el archivo, ahora mi duda es: ¿cómo puedo hacer para que en lugar de mostrar varios showmessage, muestre una lista con todos los nombres de los jugadores y su tiempo(puntuacion), quizás en en memo o un edit?, pero al momento de querer poner un memo o un edit y al correr la aplicación, no capta los eventos del teclado(que son con los que funciona el juego), sino se va al memo o al edit(al que hubiera puesto) y espera que yo escriba algo en el, muchas gracias de antemano por su ayuda.(lo siento si al momento de poner el código no puse bien las etiquetas de código)

Última edición por dec fecha: 04-03-2018 a las 17:09:51. Razón: Poner etiqueta DELPHI
Responder Con Cita