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)