funkce random v Delphi?

[m_bert]

Zdravim vsechny a chtel bych se poptat zkusenejsich - existuje neco jako funkce random v Delphi? Potreboval bych najit nejakou funkci skrz kterou bych byl schopen nahodne nacist napr. 5 souboru z celkovych x umistenych v jednom adresari a nejak zajistit, aby se zadny neobjevil 2x.. Moje znalosti na to, musim priznat, nestaci.. Dekuji moc za kazdou radu, pripadne odkaz na nejaky server s navody..

[Lopan]

Hmm Delphi na to neni zrovna optimalni, nejsem si vedom nejake funkce, ktera by vratila seznam souboru v adresari, takze tam musis pouzit jeho komponenty
DriveComboBox, DirectoryListBox, FileListBox, ktere spolu provazes pres DirList u DriveComboBox a FileList u DirectoryListBox,
pak si budes zjistovat pocet souboru v danem adresari, coz bude maximalni generovane cislo a budes si muset zjistovat, jestli to cislo je uz generovane, pokud ano, vygenerujes znova a pak uz jen nactes ty soubory, podle cisel, ktere jsi vygeneroval

[D_a_v_i_d]

Me by jen zajimalo, k jakemu ucelu to bude slouzit?

[Lopan]

Jelikoz jsem se dobre vyspal, tak tu mas i cast kodu

function TForm1.numExists(pole: array of integer; num, y: integer): boolean;
var x: integer;
begin
  numExists := false;
  for x := 0 to y do
  begin
    if (num = pole[x]) then
    begin
      numExists := true;
      break;
    end;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var x, y, count, file_count: integer;
    numbers: array[0..99] of integer;
begin
  randomize;
  count := FileListBox1.Count;
  y := 0;
  if &#40;count < 5&#41; then file_count &#58;= count
  else file_count &#58;= 5;
  while &#40;y < file_count&#41; do
  begin
    x &#58;= random&#40;count&#41;;
    if &#40;numExists&#40;numbers,x, y&#41; = false&#41; then
    begin
      numbers&#91;y&#93; &#58;= x;
      y &#58;= y + 1;
    end;
  end;
end;

Jak rika, pascal je uz hodne obsolete, to pole by melo byt dynamicke, nikdy totiz nevis, kolik tech soubory tam bude, klidne jich muze byt vice nez 100, ale myslim ze to uz by asi bylo nad tve sily.
Nacitani souboru si uz musis dodelat sam
Moc jsem to nezkoumal, muze tam byt nejaka chybicka, ale princip je z toho jasny.

[Rainbow]

V Delphi su dynamicke polia uplne easy, staci pouzit SetLength()...
Hadam FindFirst() a FindNext() funguju.

[Lopan]

V Delphi su dynamicke polia uplne easy, staci pouzit SetLength()...
Hadam FindFirst() a FindNext() funguju.

Fiha, to jsou me novinky, jsem vzdy pouzival pointery a GetMem, dobre vedet...

[Gargamel]

Fiha, to jsou me novinky, jsem vzdy pouzival pointery a GetMem, dobre vedet...

No fuj teda...
Delphi ma docela dost ficurek ohledne dynamickeho alokovani pameti v nekterych typech... Pocinaje objektama, dynamickymi poly konce. Dokonce ani symbol ^ uz se nemusi pouzivat...

[Lopan]

Hmmm, no ja take netvrdim, ze jsem znalec Delphi, toto o neco vylepsuje muj nazor na Delphi, ale stale to je Pascal, to uz bych radeji sel do Borland C++ Builder, bavime-li se o Windows a celkove si myslim, ze pro win32 aplikace bude rulovat C#