Új hozzászólás Aktív témák

• #1843 atom87 aktív tag

  Új Válasz 2010-10-25 22:29:33 #1843

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  atom87

  aktív tag

  Nos fentebb felmerült hibát sikerült megoldanom, egy változó kezdő értéke volt a hibás...

  De most felmerült egy újabb probléma: megkaptam a másik tömb tartalmát, de a táblába ismét rendeződik az indexelése miatt.
  Mit lehet ez ellen tenni?

  Itt egy kép, hogy mire is gondolok. A pirossal bekarikázott oszlop a kapott véletlen sorszámok és ezek szerint rendeződik.
  Én pedig azt szeretném, hogy a random sorrend maradjon meg.
  Más szerint kellene indexelnem? Esetleg módosítanom kellene a táblát?

  

• #1842 atom87 aktív tag

  Új Válasz 2010-10-25 15:36:41 #1842

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  atom87

  aktív tag

  Üdv!

  Kellene egy kis segítség:

  Adott egy tömb, ami véletlen szerűen generált számokat tartalmaz. Ezek a számok egy tábla rekordjainak sorszámai lennének. A feladat az lenne, hogy a fő táblából(ami minden rekordot tartalmaz) át kéne mozgatni(batchmove) egy másodlagos('munka') táblába a tömbben található sorszámoknak megfelelő rekordokat fő táblából a másodlagosba...

  Korábban a program működött set of 1..255 változóval(ebbe kerültek bele a véletlen generált sorszámok, csak ugye a set az sorba rendeződik, így a véletlenszerűség elúszik):

  procedure TKerdesForm.keresminden;
  var i,j,k,l,m:integer;
  szam:set of 1..255;
  begin
  torles;
  randomize;
  i:=StrToInt(edtkerdesszam.text);
  edtkerdesszam.clear;
  j:=foform.tblalap.recordcount;
  szam:=[];
  for k:= 1 to i do
  begin
  repeat
  l:=random(j)+1;
  until not(l in szam);
  szam:=szam+[l];
  foform.tblalap.setkey;
  foform.tblalap.fields[0].asinteger:=l;
  foform.tblalap.gotokey;
  foform.tblmunka.insert;
  for m:= 0 to foform.tblmunka.fieldcount-1 do
  foform.tblmunka.fields:=foform.tblalap.fields(m);
  foform.tblmunka.post;
  end;
  foform.tblmunka.first;
  kerdesform.close;
  end;

  Megcsináltam tömbösre, a sorszámok le is generálódnak, de valahol a setkey környékén meghal a progi:

  procedure TKerdesForm.keresminden;
  var i,j,k,l,m,n:integer;
  szamok:TSzamok;
  begin
  n:=0;
  torles;
  randomize;
  i:=StrToInt(edtkerdesszam.text);
  edtkerdesszam.clear;
  j:=foform.tblalap.recordcount;
  // szam:=[];
  TombNullaz(szamok);
  for k:= 1 to i do
  begin
  repeat
  l:=random(j)+1;
  // until not(l in szam);
  until not (TombBenneVan(szamok,l));
  szamok[n]:=l;
  foform.tblalap.SetKey;
  foform.tblalap.fields[0].asinteger:=l;
  foform.tblalap.gotokey;
  foform.tblmunka.insert;
  for m:= 0 to foform.tblmunka.fieldcount-1 do
  foform.tblmunka.fields(m):=foform.tblalap.fields(m);
  foform.tblmunka.post;
  n:=n+1;
  end;
  foform.tblmunka.first;
  kerdesform.close;
  end;

  Ötlet esetleg??

Új hozzászólás Aktív témák