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

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
quitar una letra de una frase

hola estoy haciendo un programa donde cogo frases de un archivo.txt con una variable tstrings...
en el principio de cada frase me gustaria quitar una letra
como podria coger una frase quitando una letra?
muchisimas gracias
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
Pues depende, lo que tu quieres hacer se puede realizar de muchas maneras. Puedes mostrar el código que estas usando ahora ???
Responder Con Cita
  #3  
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 23:07:33.
Responder Con Cita
  #4  
Antiguo 11-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
  #5  
Antiguo 11-05-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
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: 11-05-2007 a las 00:23:00.
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
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
  #7  
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
  #8  
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
  #9  
Antiguo 11-05-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
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
  #10  
Antiguo 12-05-2007
machingol machingol is offline
Miembro
 
Registrado: abr 2007
Posts: 27
Poder: 0
machingol Va por buen camino
quiero darle las gracias a egostar,porque me estaba acomodando mucho a esto del foro,y no estaa intentando progresar yo.pero gracias a el lo he descubierto por mi cuenta,y me siento mejor!
muchas gracias que ya lo e conseguido!
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
frase palindromo lakers Varios 24 24-05-2007 01:34:05
escribir frase de dos colores en un doc brookly_n Varios 0 28-12-2006 17:51:32
Pulsar una letra en un DBgrid y que vaya al campo que empiece por esa letra Nbull SQL 8 16-12-2004 18:58:01
mostrar frase en blanco alachaise PHP 2 03-09-2004 17:53:55


La franja horaria es GMT +2. Ahora son las 20:06:39.


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