Fórum Criação de números aleatórios no Delphi #424869
27/09/2012
0
Três botões
• Apertar no botão 1 (ex. gerar arquivo texto 1 numero em cada linha em ordem aleatória ao todo 1000 números);
• Clicar no botão 2 ele vai ler o arquivo que você criou no botão 1 e vai criar um novo arquivo em ordem crescente;
• Botão Colocar na tela o maior numero.
Agradeço!
Cristiano Magalhães
Curtir tópico
+ 1Post mais votado
27/09/2012
Já para gravar e ler o arquivo, sugiro utilizar um TStringList. Eis um link que pode ajudar: http://www.delphibasics.co.uk/RTL.asp?Name=TStringList
Boa sorte.
Joel Rodrigues
Gostei + 1
Mais Posts
27/09/2012
Cristiano Magalhães
Gostei + 0
27/09/2012
Cristiano Magalhães
Só que da forma que ei fiz os números estão saindo um a um na tela como coloca-los para sair no arquivo texto!
seguem o código fonte:
procedure TForm1.Button1Click(Sender: TObject);
var
float : single;
int : Integer;
i : Integer;
begin
for i := 1 to 10 do
begin
int := 1 + Random(10000);
ShowMessage('int = '+IntToStr(int));
end;
end;
Gostei + 0
28/09/2012
Bruno Leandro
para isso nao ocorrer utilize o randomize
procedure TForm1.Button1Click(Sender: TObject);
var
float : single;
int : Integer;
i : Integer;
begin
Randomize;
for i := 1 to 10 do
begin
int := 1 + Random(10000);
ShowMessage('int = '+IntToStr(int));
end;
end;
Gostei + 0
28/09/2012
Leonardo Xavier
Só que da forma que ei fiz os números estão saindo um a um na tela como coloca-los para sair no arquivo texto!
seguem o código fonte:
procedure TForm1.Button1Click(Sender: TObject);
var
float : single;
int : Integer;
i : Integer;
begin
for i := 1 to 10 do
begin
int := 1 + Random(10000);
ShowMessage('int = '+IntToStr(int));
end;
end;
Coloque um savedialog e Tente Utilizar este codigo abaixo.
var
int : Integer;
i : Integer;
texto : TStringList;
begin
texto := TStringList.Create;
for i := 1 to 10 do
begin
int := 1 + Random(10000);
ShowMessage('int = '+IntToStr(int));
texto.add(inttostr(int));
end;
savedialog1.filename := 'meutextosalvos.txt';
if savedialog1.execute then
texto.SavetoFile(savedialog1.filename);
texto.Free;
end;
Gostei + 0
28/09/2012
Thiago Santana
Você pode manipular os intervalos de números gerados e etc
Gostei + 0
28/09/2012
Joel Rodrigues
Boas sorte.
Gostei + 0
28/09/2012
Cristiano Magalhães
grato!
Gostei + 0
28/09/2012
Cristiano Magalhães
Cordialmente: Cristiano Duarte de Magalhães
Gostei + 0
28/09/2012
Cristiano Magalhães
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)