Randomizar arquivo de uma pasta

Delphi

21/03/2005

Olá lista. Pesquizei o forum e não encontrei essa resposta. Como receber um arquivo aleatório que está dentro de uma pasta? Por exemplo tenho uma pasta com vários arquivo de texto, e quero que em determinado momento o programa me retorne um arquivo aleatório entenderam? Qualquer ajuda será valiosa.....
[]s
Pedro Leonardo


Pleonardomv

Pleonardomv

Curtidas 0

Respostas

Motta

Motta

21/03/2005

Use um FileListBox (win 3.1) e escolha um arquivo pelo random

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, Buttons;

type
  TForm1 = class(TForm)
    FileListBox1: TFileListBox;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    DirectoryListBox1: TDirectoryListBox;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Randomize;
  Label1.Caption := FileListBox1.Items[Random(FileListBox1.Items.Count)];
end;

end.



GOSTEI 0
Pleonardomv

Pleonardomv

21/03/2005

Valeu Mota, nao tinha pensado nesta opção.
[]s


GOSTEI 0
Rodc

Rodc

21/03/2005

Se o nome dos arquivos forem números você pode fazer um random de números no sistema e verificar se existe arquivo com o nome. Outra possibilidade é você fazer um random de 1 ao número de arquivos na pasta e usar as funções FindFirst e FindNext para mover a quantidade de vezes sorteada pelo Ramdom. Veja o Help do Delphi para ter algumas idéias.


GOSTEI 0
POSTAR