Random fra ListBox?

alle alfabetets bogstaver = 18 ????????

private
  Edits: array [1..28] of TEdit;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  Randomize;
  for I := 1 to 28 do
  begin
    Edits[I] := TImage.Create(Form1);
    Edits[I].Parent := Form1;
    Edits[I].Top := (y-1)*16;
    Edits[I].Tag := I;
  end;
end;

procedure TForm1.ButtonClick(Sender: TObject);
var
  I, Index: Integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Strings := ListBox1.Items.Strings;
  for I := 1 to 28 do
  begin
    Index := Random(sl.Count);
    Edits[I].Text := sl.Strings[Index];
    sl.Delete(Index);
  end;
end;

Jeg har altså ikke testet det, men det burde virke... Hvis Edit'sne ikke kommer på formen, så smæk evt. et panel på, og så skriv

    Edits[I] := TImage.Create(Panel1);
    Edits[I].Parent := Panel1;

i stedet for.

//hermandsen

"§ 1. Bogstaverne

(1)ALFABETET
Det danske alfabet består af 29 bogstaver. Hvert af bogstaverne findes både som lille bogstav og stort bogstav:

a b c d e f g h i j k l m n o p q r s t u v w x y z æ ø å
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Æ Ø Å"

Starten af § 1 i Retskrivningsordbogen 3. udgave udgivet 2001 af Dansk Sprognævn, http://www.dsn.dk/

hermandsen -> Husk "W" ("array [1..28]") :-)

Hehe... Sorry! ;)

Her er noget som laver en tilfældig streng af forskellige tegn
(ingen gentagne).

Function GetRandomString:string;
{returnerer en tilfældig alfabetstreng}
Var
  Temp,Alfabet:string;
  J,I:integer;
Begin
  Randomize;
  Alfabet := 'ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ';
  J := length(Alfabet);
  Temp := '';
  While (J > 0) do
  Begin
    I := random(J)+1;
    Temp := Temp + Alfabet[I];
    Delete(Alfabet,I,1);
    Dec(J);
  End;
  Result := Temp;
End;

Kaldes med:
strn:= GetRandomString;
og de 18 bogstaver kan tages som de 18 første, dvs.
Edit1.Text:=Strn[1];
Edit2.Text:=Strn[2];
...
Edit18.Text:=Strn[18];

evt. kan man lave noget som fordeler strengen i editbox´e:

procedure IndsaetText(strn:string);
{fordeler strn i tilgængelige EditBox'e}
var
  i,j: integer;
begin
  j:= 0;
  for i:= 0 to componentcount-1 do
    if components[i] is TEdit then
    begin
      inc(j);
      TEdit(Components[i]).Text := strn[j];
    end;
end;

Kaldes med:
  IndsaetText(GetRandomString);

Fordeler de tilfældige bogstaver i de EditBox'e der er på formen.
(dvs. hvis der er 18 Editbox'e får man 18 tilfældige forskellige bogstaver i dem)

//hreiff

Til hreiff

Jeg har fået løst mit problem ved at sætte ALFABET := Edit19.Text;
Tak for hjælpen alle sammen :-)

//Michael S