Tarvitsen Apua!

Kiitos paljon nopeasta ja hyvästä vastauksesta. Nyt sain toimimaan

Taas avulle tarvetta. Muokkailin vähän koodia ja nyt tulee virhe:
'Operation not allowed on sorted list'. Luulen että se johtuu siitä kun koodissani on mm. nämä:

Satunnaisluvut.Assign(Memo.Lines);

Satunnaisluvut.Insert(1,randomcrd randomclr);

Olisiko jotain keinoa korjata? En löytänyt googlesta mitään tuosta 'Operation not allowed on sorted list' virheestä.

Uuppi kirjoitti:

Taas avulle tarvetta. Muokkailin vähän koodia ja nyt tulee virhe:
'Operation not allowed on sorted list'. Luulen että se johtuu siitä kun koodissani on mm. nämä:

Satunnaisluvut.Assign(Memo.Lines);

Satunnaisluvut.Insert(1,randomcrd randomclr);

Olisiko jotain keinoa korjata? En löytänyt googlesta mitään tuosta 'Operation not allowed on sorted list' virheestä.

Lue lisää

Sainkin ehkä toimimaan: Satunnaisluvut.Sorted := false;

Hmm.. huomasinkin että tuolla keinolla tulee silti välillä samoja.


begin
Satunnaisluvut:=Tmjono.Create;
randomize;
kpl := 4;
repeat
randomclr := Clrs[randomrange(0,4)];
randomcrd := Crds[randomrange(0,13)];
Satunnaisluvut.Add(randomcrd randomclr);
Satunnaisluvut.PoistaSamat;

until Satunnaisluvut.maara(kpl);
memo.Lines.Assign(satunnaisluvut);
end;

Haluaisin myös tietää miten saan tehtyä niin, että esim. kun 5 eri stringiä on listattu, ja listaa uudestaan, niin se ei vaihda vaikka ensimmäistä kolmea stringiä ja vaihtaa vain viimeiset 2 eikä ne saa olla samoja kuin jotkut kolmesta ensimmäisestä :D monimutkaista, mutta toivottavasti ymmärsitte.. Toivottavasti joku voi auttaa :

Uuppi kirjoitti:

Hmm.. huomasinkin että tuolla keinolla tulee silti välillä samoja.


begin
Satunnaisluvut:=Tmjono.Create;
randomize;
kpl := 4;
repeat
randomclr := Clrs[randomrange(0,4)];
randomcrd := Crds[randomrange(0,13)];
Satunnaisluvut.Add(randomcrd randomclr);
Satunnaisluvut.PoistaSamat;

until Satunnaisluvut.maara(kpl);
memo.Lines.Assign(satunnaisluvut);
end;

Haluaisin myös tietää miten saan tehtyä niin, että esim. kun 5 eri stringiä on listattu, ja listaa uudestaan, niin se ei vaihda vaikka ensimmäistä kolmea stringiä ja vaihtaa vain viimeiset 2 eikä ne saa olla samoja kuin jotkut kolmesta ensimmäisestä :D monimutkaista, mutta toivottavasti ymmärsitte.. Toivottavasti joku voi auttaa :

Lue lisää

Huomaa että Randomize rutiinia ei saane suorittaa kuin kerran koko ohjelman käytön aikana.

Terve,

Toivottavasti ymmärsin oikein kysymyksesi,
alla on pieni esimerkki siitä kuinka tuon tekee nopeasti/helposti,
pitäisi olla aika virhe vapaa/yksinkertainen esimerkki, eli siitä vaan jalostamaan...
(Ei ole optimoitu yms, kuhan päästäni heitin esimerkin, josta varmaan saat taidolla ja tunteella paremman/nopeamman)

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
MyRndNumber : String;
RndNumberCount : Integer;
begin
Memo1.Clear;
RndNumberCount := 5;

// Random seed
Randomize;

while true do
begin
// Time to other threads
Application.ProcessMessages;
Sleep(1);

MyRndNumber := GetRandomNumbers(3);

// Validate
for I := 0 to Memo1.Lines.Count do
begin
if (Memo1.Lines[I] = MyRndNumber) then
begin
MyRndNumber := '';
Break;
end;
end;

// Add to my list if valid
if MyRndNumber '' then
Memo1.Lines.Add(MyRndNumber);

// Check if ready
if Memo1.Lines.Count >= RndNumberCount then
Break;
end;
end;

function TForm1.GetRandomNumbers(const ANumberCount : Cardinal) : String;
var
Rnd : Integer;
begin
// Invalid return value
Result := '';

while (Length(Result) < ANumberCount) do
begin
// Get random values
Rnd := Random(10);

// Set result
Result := Result IntToStr(Rnd);
end;
end;

Delphi_again kirjoitti:

Terve,

Toivottavasti ymmärsin oikein kysymyksesi,
alla on pieni esimerkki siitä kuinka tuon tekee nopeasti/helposti,
pitäisi olla aika virhe vapaa/yksinkertainen esimerkki, eli siitä vaan jalostamaan...
(Ei ole optimoitu yms, kuhan päästäni heitin esimerkin, josta varmaan saat taidolla ja tunteella paremman/nopeamman)

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
MyRndNumber : String;
RndNumberCount : Integer;
begin
Memo1.Clear;
RndNumberCount := 5;

// Random seed
Randomize;

while true do
begin
// Time to other threads
Application.ProcessMessages;
Sleep(1);

MyRndNumber := GetRandomNumbers(3);

// Validate
for I := 0 to Memo1.Lines.Count do
begin
if (Memo1.Lines[I] = MyRndNumber) then
begin
MyRndNumber := '';
Break;
end;
end;

// Add to my list if valid
if MyRndNumber '' then
Memo1.Lines.Add(MyRndNumber);

// Check if ready
if Memo1.Lines.Count >= RndNumberCount then
Break;
end;
end;

function TForm1.GetRandomNumbers(const ANumberCount : Cardinal) : String;
var
Rnd : Integer;
begin
// Invalid return value
Result := '';

while (Length(Result) < ANumberCount) do
begin
// Get random values
Rnd := Random(10);

// Set result
Result := Result IntToStr(Rnd);
end;
end;

Lue lisää

Kiitoksia, luulenpa että sain juuri toimimaan omalla tekniikalla, mutta sillointällöin tulee virhe: 'List index out of bounds(4)'. Sen varmaan saan korjattua itse.

Uuppi kirjoitti:

Hmm.. huomasinkin että tuolla keinolla tulee silti välillä samoja.


begin
Satunnaisluvut:=Tmjono.Create;
randomize;
kpl := 4;
repeat
randomclr := Clrs[randomrange(0,4)];
randomcrd := Crds[randomrange(0,13)];
Satunnaisluvut.Add(randomcrd randomclr);
Satunnaisluvut.PoistaSamat;

until Satunnaisluvut.maara(kpl);
memo.Lines.Assign(satunnaisluvut);
end;

Haluaisin myös tietää miten saan tehtyä niin, että esim. kun 5 eri stringiä on listattu, ja listaa uudestaan, niin se ei vaihda vaikka ensimmäistä kolmea stringiä ja vaihtaa vain viimeiset 2 eikä ne saa olla samoja kuin jotkut kolmesta ensimmäisestä :D monimutkaista, mutta toivottavasti ymmärsitte.. Toivottavasti joku voi auttaa :

Lue lisää

No tuo loppuosa vaatimuksistasi voidaan lisätä vaikka näin

Lisää luokan TForm1 määrittelyyn private ja public osien väliin luokan
aliohjelma Sailyta3ekaajaArvo2Lisaa
siis näin

...
private
{ private declarations }
procedure Sailyta3ekaajaArvo2Lisaa;
public
...


Täydennä koodi osaa vaikkapa näin


procedure TForm1.Sailyta3ekaajaArvo2Lisaa;
var
i,ekatkpl,kaikkiaan:integer;
sl:TStringList;
s:string;
jatka, olijo:boolean;
begin
sl:=TStringList.Create;
i := 0;
ekatkpl := 3;
kaikkiaan := ekatkpl 2;
jatka := i < Memo1.Lines.Count;
while jatka do
begin
sl.Add(Memo1.Lines[i]);
inc(i);
jatka := i < ekatkpl;
if jatka then jatka := i < Memo1.Lines.Count;
end;
repeat
s:=inttostr(randomrange(1,200));
olijo := false;
for i:= 0 to sl.Count-1 do
if s = sl[i] then olijo := true;
if olijo = false then sl.Add(s);
until sl.Count >= kaikkiaan;
Memo1.Lines.Assign(sl);
FreeAndNil(sl);
end;
...

Tuota voit testata vaikkapa niin että luot uuden painikkeen
ja täydennät sitä vaikkapa näin:

procedure TForm1.Button2Click(Sender: TObject);
begin
Sailyta3ekaajaArvo2Lisaa;
end;

:D Vieläkin oli ongelmia uusien lukujen arvonnassa, tuli silti samoja. Tällä tavalla saan sen vihdoin toimimaan :) Mitä hyötyä tosta .sorted arvosta muuten on?

Uuppi kirjoitti:

:D Vieläkin oli ongelmia uusien lukujen arvonnassa, tuli silti samoja. Tällä tavalla saan sen vihdoin toimimaan :) Mitä hyötyä tosta .sorted arvosta muuten on?

Tuossa "Samojen arvojen estäminen" -viestissä
sillä oli merkitystä (samat arvot tulivat vierekkäiksi jolloin on helppo löytää
samat arvot).

Mutta tässä missä kysyt sillä ei taida olla merkitystä (Koodihan voi olla
otettu jostain isommasta kokonaisuudesta mutta sitä ei ole tuotu esille)

yhdessä oli merkitystä kirjoitti:

Tuossa "Samojen arvojen estäminen" -viestissä
sillä oli merkitystä (samat arvot tulivat vierekkäiksi jolloin on helppo löytää
samat arvot).

Mutta tässä missä kysyt sillä ei taida olla merkitystä (Koodihan voi olla
otettu jostain isommasta kokonaisuudesta mutta sitä ei ole tuotu esille)

Lue lisää

1. TStringlist.Sorted:

tästä ON hyötyä, tietyissä tapauksissa...

eli:

SL.Sorted := True;

tämän jälkeen voit:

SL.Duplicates := dupIgnore;

tällöin voit yksinkertaisesti:

N := SL.add(jotakin);

jos merkkijono jotakin ON jo listassa, niin tuo ei tee mitään, muuten se lisätään listaan.

Tuossa N saa arvokseen indeksin, johon jotakin lisättiin, tai -1 jos sitä EI lisätty.

mutta, onhan toinenkin tapa:

1. Tee merkkijono, jossa on halutut arvot, siis näin:

St1 := St1 char(arvo);

huomaa: Delphi2009:ssä arvo voi olla 0..65535, mutta vanhemmissa delpheissä arvon on oltava välillä 0..255.

sitten voit:

N := Random(length(St1)) 1;

Merkki := St1[N];

system.delete(St1,N,1); // estää saman arvon uudelleenkäytön

ja satunnaislukusi:

char(SLuku) := merkki;

Tämä taktiikka hyödyntää merkkijonoa toimii siis kaikissa Delpheissä, jos satunnaislukusi ovat välillä 0..255, mutta jos käytät Delphi2009:ää, niin arvot 0..65535 ovat sallittuja.

Ero johtuu tästä:

sz := sizeOf(char);

Delphi2009:ssä sz=2, aiemmissa Delpheissä sz=1; tämä johtuu siitä, että merkkijonoissa on siirrytty unicode -aikaan (Delphi2009)

Jos vanhemmissa Delpheissä lukualue 0..255 ei riitä, löytyy 2 vaihtoehtoa:

a) käytä WideChar ja WideString -tyyppejä

TAI

b) älä käytä STRINGejä, vaan dynaamisia taulukoita:

var

Arvot : Array of Integer;

begin

SetLength(Arvot, 1000);

// täytä taulukko Arvot[0..999] 1000:lla haluamallasi luvulla, jotka toimivat satunnaislukuna (älä käytä tähän randomia !)

system.delete pitäisi toimia myös dynaamisiin taulukoihin kuten merkkijonoihin, eli:

system.delete(Arvot,N,1);

tuo EI kuitenkaan toimi, jos olet määritellyt taulukkosi staattiseksi, sii snäin:

var

Arvot : Array[0..999] of Integer;

SetLength kun toimii vain merkkijonoihin ja dynaamisiin taulukoihin mutta EI staattisiin taulukoihin.