quitar una letra de una frase

[machingol]

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

[seoane]

Pues depende, lo que tu quieres hacer se puede realizar de muchas maneras. Puedes mostrar el código que estas usando ahora ???

[machingol]

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

[seoane]

Prueba con algo como esto:

button3.caption:= Copy(n.strings[s+2],2,MAXINT);

[egostar]

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:


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


Salud OS.

Edito: oops, por un segundo me ganaste amigo seoane. :D bueno, por 4 minutos, que lento soy para escribir mis respuestas.

[machingol]

muchisimas gracias a los 2!
se agradece mucho que la gente esriba tan deprisa.si necesito algo mas ya os lo escribire
gracias!

[machingol]

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

[machingol]

x cierto gracias de nuevo,q me an dicho q el trabajo esta muy bien hecho :D;)

[egostar]

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.

[machingol]

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!