Randomizar arquivo de uma pasta

Question

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

Motta · Answer

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.

Pleonardomv · Answer

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

Rodc · Answer

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.

F�rum Randomizar arquivo de uma pasta #273463