Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-03-2018
branncg branncg is offline
Miembro
 
Registrado: Jun 2015
Posts: 16
Poder: 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 16:09:51. Razón: Poner etiqueta DELPHI
Responder Con Cita
  #2  
Antiguo 06-03-2018
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: Jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 5.705
Poder: 18
Ñuño Martínez Va camino a la famaÑuño Martínez Va camino a la fama
Si configuras el "memo" para sólo lectura (readonly) no deberías tener problemas.

En cualquier caso, para desarrollar juegos no te recomiendo que uses la VCL. Mejor usa bibliotecas (o motores) específicamente diseñados para hacer juegos; así no tendrás que lidiar con problemas como este.

Si estás interesado en el desarrollo de videojuegos, pásate por http://www.pascalgamedevelopment.com. También puedes echar un vistazo al portal de desarrollo de videojuegos de la wiki de Lazarus (muchas bibliotecas y motores que hay ahí funcionan con Delphi).
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
  #3  
Antiguo 06-03-2018
Avatar de ElDioni
[ElDioni] ElDioni is offline
Miembro Premium
 
Registrado: Jul 2005
Ubicación: Murcia (España)
Posts: 906
Poder: 13
ElDioni Va por buen camino
Supongo que también te servirá algo así.

Código Delphi [-]
var   
temp:string;  
begin    
  assignfile(f,'C:\Users\Brandon\Desktop\BRANDONCG\juego\imagenes\Datos.Dat');    
  reset(f);    
  c:=0;    
  temp:='';    
  while not eof(f) do         
    begin            
      seek(f,c);            
      read(f,r);            
      Temp:=temp+(r.nombre+' '+inttostr(r.tiempo)+#$A#$D;            
      c:=c+1;        
    end;    
  showmessage(temp);  
end;


Saludos.
__________________
Confórmate con lo que tienes pero anhela lo que te falta.
Responder Con Cita
  #4  
Antiguo 22-03-2018
branncg branncg is offline
Miembro
 
Registrado: Jun 2015
Posts: 16
Poder: 0
branncg Va por buen camino
gracias a ambos por sus respuestas, me sirvió
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda cargar foto en mi base de datos MY SQL CON DELPHI XE2 FranXE Gráficos 0 26-10-2016 16:17:07
como cargar una matriz 4x4 con datos de un archivo ? Picketero C++ Builder 1 20-04-2006 20:49:45
Cómo cargar un archivo de ayuda *.hlp en c++ builder 6.0? jcfc C++ Builder 0 01-06-2005 13:18:53
Cargar datos desde archivo texto mosorio Firebird e Interbase 1 25-08-2003 20:54:36
Cargar archivo chm esocrates Varios 1 27-07-2003 09:58:02


La franja horaria es GMT +2. Ahora son las 01:22:33.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi