Socorro !!! texto aleatorio

Delphi

30/07/2003

Galera tenho um arquivo txt com frases
quero colocar em um painel uma frase aleatória toda vez que o usuário entrar no sistema

meu txt e assim

marcos legal
marcelo teste
fdasfdsfdasf
fasdf
dsfasdfsdfsd
fdsafdsfsdfsd

quero no painel

--------------------------
marcos legal
--------------------------

/deu para entender.


Obrigado desde ja.

Marcos Diirr


Marcosdiirr

Marcosdiirr

Curtidas 0

Respostas

Cebikyn

Cebikyn

30/07/2003

Use:
case Random(Integer) do
  0: Panel1.Caption:=´Texto1´;
  1: Panel1.Caption:=´Texto2´;
  2: Panel1.Caption:=´Texto3´;
  3: Panel1.Caption:=´Texto4´;
end;


Onde [b:14efb0e8a5]Integer[/b:14efb0e8a5] representa o número de frases que você tem menos 1, depois basta copiar as linhas iniciadas por números, tantas vezes quantas sejam necessárias.


GOSTEI 0
Nildo

Nildo

30/07/2003

var
   b: TStringList;
begin
   b := TStringList.create;
   b.loadFromFile(´c:\suas_frases.txt´);
   panel1.Caption := b.strings[Random(b.count-1)];
end;


-------------------
Pronto. Soh issu
Basta usar criatividade e misturar com um pouco de programação.


GOSTEI 0
POSTAR