Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-05-2007
machingol machingol is offline
Miembro
 
Registrado: abr 2007
Posts: 27
Poder: 0
machingol Va por buen camino
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var     n      :tstrings;
        s ,t      :integer;

begin
repeat
 randomize;
 s:=random(765);
 n:=tstringlist.create;
 n.LoadFromFile('C:\Documents and Settings\MIGUEL ANGEL\Mis documentos\alta tension\preguntas.txt');
 Edit1.Text := n.Strings[s];
 for t:=s + 1 to s+16 do begin
 button2.caption:=n.strings[length(s+1)-1];
 button3.caption:=n.strings[s+2];
 button4.caption:=n.strings[s+3];
 button5.caption:=n.strings[s+4];
 button6.caption:=n.strings[s+5];
 button7.caption:=n.strings[s+6];
 button8.caption:=n.strings[s+7];
 button9.caption:=n.strings[s+8];
 button10.caption:=n.strings[s+9];
 button11.caption:=n.strings[s+10];
 button12.caption:=n.strings[s+11];
 button13.caption:=n.strings[s+12];
 button14.caption:=n.strings[s+13];
 button15.caption:=n.strings[s+14];
 button16.caption:=n.strings[s+15];
 button17.Caption:=n.Strings[s+16];

 end;
until s mod 17=0;

end;

end.

mi procedure es asi,y lo que me hace es copiar en cada boton toda la frase,pero esq al principio de esa frase tengo o un 1 o un 0,q se refiere a verdadero o falso.y no se como hacer para q se me copien las frases sin esos numeros
gracias

Última edición por dec fecha: 10-05-2007 a las 22:07:33.
Responder Con Cita
  #2  
Antiguo 10-05-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Prueba con algo como esto:
Código Delphi [-]
button3.caption:= Copy(n.strings[s+2],2,MAXINT);
Responder Con Cita
  #3  
Antiguo 10-05-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Si el 0 o el 1 está al principio de la frase yo creo que es fácil quitar ese caracter, suponiendo que solo ocupe un caracter.

Podriamos hacer esto:

Código Delphi [-]
button1.caption:=Copy(n.strings[s],2,Length(n.strings[s])-1);

Salud OS.

Edito: oops, por un segundo me ganaste amigo seoane. bueno, por 4 minutos, que lento soy para escribir mis respuestas.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 10-05-2007 a las 23:23:00.
Responder Con Cita
  #4  
Antiguo 11-05-2007
machingol machingol is offline
Miembro
 
Registrado: abr 2007
Posts: 27
Poder: 0
machingol Va por buen camino
muchisimas gracias a los 2!
se agradece mucho que la gente esriba tan deprisa.si necesito algo mas ya os lo escribire
gracias!
Responder Con Cita
  #5  
Antiguo 11-05-2007
machingol machingol is offline
Miembro
 
Registrado: abr 2007
Posts: 27
Poder: 0
machingol Va por buen camino
hola muy buenas de nuevo!llevo trabajando todo el dia con un nuevo temilla.
lo que ocurre es que me gustaria coger esa letra q no he cogido de las frases anteriores.las frases las e puesto en un boton,y lo que me gustaria es que cuando se le de al boton,dependiendo de el numero que coga,me ponga en un edit verdadero o falso
PD:1-verdadero
0-falso
Responder Con Cita
  #6  
Antiguo 11-05-2007
machingol machingol is offline
Miembro
 
Registrado: abr 2007
Posts: 27
Poder: 0
machingol Va por buen camino
x cierto gracias de nuevo,q me an dicho q el trabajo esta muy bien hecho
Responder Con Cita
  #7  
Antiguo 11-05-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Hola amigo machingol, a veces es bueno tratar de hacer las cosas por uno mismo, a quien debe importarle aprender es a ti.

Vamos, que la respuesta a tu pregunta esta aquí mismo en el hilo, que te parece si haces un esfuerzo y logras finalizar tu proyecto, en tu lugar yo me sentiria mejor.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
Respuesta



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
frase palindromo lakers Varios 24 24-05-2007 00:34:05
escribir frase de dos colores en un doc brookly_n Varios 0 28-12-2006 16:51:32
Pulsar una letra en un DBgrid y que vaya al campo que empiece por esa letra Nbull SQL 8 16-12-2004 17:58:01
mostrar frase en blanco alachaise PHP 2 03-09-2004 16:53:55


La franja horaria es GMT +2. Ahora son las 01:08:51.


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