Criar Diretorio Aleatorios

Question

Preciso que meu programa crie diretorio aleatorios em cada pc que for instalado. Por exemplo na mak 01 crie C:DevmediaAle2008 na mak02 C:DevmediaAle0902 na mak 03 C:DevmediaAle5742 e assim por d...

Marcosrocha · Answer

N�o entendi qual a dificuldade a�......

Bertu · Answer

entao me ajuda :)...

Pestana_ · Answer

posso at� estar falando besteira, mas se voc� pegar o nome do diretorio mais o nome do computador e armazenar no banco de dados, depois toda vez que o sistema precizar criar um diretorio novo voc� verifica na base se este nome j� contem em outros computadores, caso n�o, ent�o � s� criar o diretorio e por fim armazenar no banco o nome do diretorio e o nome do computador.

� s� uma dica!
flw.

Bertu · Answer

naoo eh issoo q eu preciso... eu necessito de diretorios aleatorios! ninguem tem alguma funcao pra eu tenta mecher ?...

Pestana_ · Answer

bertu, voc� poderia explicar melhor, porque eu n�o consegui entender!flw....

Emerson Nascimento · Answer

n�o sei se entendi direito, mas tente isso:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(�C:\Devmedia\Ale�+FormatFloat(�0000�, random(10000)));
end;

Bertu · Answer

tipo nao era isso q eu precisava mais isso serviu eu fiz um jeito aqui q funcionou legal ! vlw pela ajudaaa :)...

Bertu · Answer

se eu quisesse utilizar letras randomicas tambem, teria como ou teria q ser uma funcao separadamente ? emerson ?...

Bertu · Answer

tem outro porem... como gera um numero aleatorio, toda vez q eu clico pela primeira vez no botao, o primeiro numero sempre vem Ale0000. Dae em todo computador quando for utilizado pela primeira vez o diretorio sempre vai ser o Ale0000.

Bertu · Answer

aee gente o problema de ser o primeiro diretorio Ale0000 eu consigui resolver da seguinte maneira

for i := 1 to Pred(2) do
  begin
  randomize;
  Memo4.Lines.Add(Diretorio+�;C:\Windows\sys�+FormatFloat(�0000�, random(9999)));
  end;
  end;

percorrendo uma lista.

Alguem tem ideia pra gerar as letras aleatorias tbm ?

Emerson Nascimento · Answer

tente assim:[code:1:5ad3790668]var  prefixo: string&#91;3&93;;  letra: byte;  i: integer;begin  randomize; // deixe o randomize fora do la�o  prefixo := �   �;  for i := 1 to Pred(2) do  begin    for letra := 1 to Length(prefixo) do      while (ord(prefixo&91;letra&93;) < 65) do        prefixo&91;letra&93; := chr(random(91));    Memo4.Lines.Add(      Diretorio+�;C:Windows�+prefixo+FormatFloat(�0000�, random(10000))    );  end;end;[/code:1:5ad3790668]...

Bertu · Answer

ResolvidoEmerson muito obrigado pela forca... vlw msm :)...