Buchstaben per Zufall verteilen

[himitsu]

1: Grundlage soll doch hier (in diesem Beispiel) wohl ein String sein.

Code:

split([color=red]'[/color]GRUNDLAGE[color=red]'[/color], 4);

So schwer ist das doch nicht, zeichen einem Panel zuweisen, dieses löschen und dann so weiter

Delphi-Quellcode:

Procedure split(s: String; i: Integer);
  Var k: Integer;

  Begin
    Randomize;  // diese Zeile eventuell in das OnCreate-Ereignis verschieben
    For k := 1 to 9 do Begin
      TPanel(Form1.FindComponent('Panel' + IntToStr(k))).Caption := s[i];
      Delete(s, i, 1);
      i := Random(Length(s)) + 1;
    End;
  End;

[EDIT]
Och menno