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