Array of string mit randomize..

[hacker]

Tach!

Kann mir jemand sagen wie ich ein array of string mit randomize gebrauchen kann und in einem Label ausgeben?????

Danke!


Gruss Häcki

[axelf98]

Delphi-Quellcode:

 randomize;

..

Label1.caption := MeinArray[random(length(MeinArray))];

[hacker]

Danke für den Tipp!!jetzt klappts....


Gruss Häcki

[hacker]

Jetzt habe ich doch noch ne Frage...
Wie kann man machen dass ein String nicht zweimal nacheinander kommt?


Gruss Häcki

[cyberkiller0072001]

Du erstellst einen Record:

Delphi-Quellcode:

        datentyp = record;
            text: string;
            schongehabt: boolean;
       end;

Dann machst du ein array od Datentyp. Du gibst den text nur aus, wenn schongehabt false ist.
(Beim Ausgeben wird es natürlich auf true gesetzt)

[hacker]

Gut danke nochmals!!!!


Gruss Häcki

[SirThornberry]

folgender Source ist ungetestet sollte aber gehen

Delphi-Quellcode:

var numarray: Array of Integer;
    zufallszahl, count: Integer;
    nichtvergeben: Boolean;
begin
  zufallszahl := random(length(MeinArray)); //zufallszahl erzugen
  setlength(numarray, length(numarray) + 1); //array in dem zufallszahlen gespeichert werden erweitern
  numarray[length(numarray)-1] := zufallszahl; //erzeugte zufallszahl sichern
  Label1.caption := MeinArray[zufallszahl];

  repeat
    nichtvergeben := True;
    zufallszahl := random(length(MeinArray)); //zufallszahl erzeugen
    for count := 0 to length(numarray) - 1 do  //array der bisherigen zufallszahlen durchlaufen
      if numarray[count] = zufallszahl then    //wenn zufallszahl bereits in verwendeten zufallszahlen vorhanden
        nichtvergeben := false;  //nichtvergeben auf false setzen
  until nichtvergeben;  //schleife läuft so lange bis eine zufallszahl erzeugt wurde dies noch nicht gibt
  setlength(numarray, length(numarray) + 1); //array der bisherigen zufallszahlen erweitern
  numarray[length(numarray)-1] := zufallszahl;  //erzeugte zufallszahl speichern
  Label2.caption := MeinArray[zufallszahl];  //zufallsstring zuweisen


  repeat
    nichtvergeben := True;
    zufallszahl := random(length(MeinArray)); //zufallszahl erzeugen
    for count := 0 to length(numarray) - 1 do  //array der bisherigen zufallszahlen durchlaufen
      if numarray[count] = zufallszahl then    //wenn zufallszahl bereits in verwendeten zufallszahlen vorhanden
        nichtvergeben := false;  //nichtvergeben auf false setzen
  until nichtvergeben;  //schleife läuft so lange bis eine zufallszahl erzeugt wurde dies noch nicht gibt
  setlength(numarray, length(numarray) + 1); //array der bisherigen zufallszahlen erweitern
  numarray[length(numarray)-1] := zufallszahl;  //erzeugte zufallszahl speichern
  Label3.caption := MeinArray[zufallszahl];  //zufallsstring zuweisen
  [...]

end;

[Edit]schließendes Delphi-Tag vergessen[/Edit]
[Edit2]Getestet und fehler beseitigt - funktioniert somit 100%[/Edit2]