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
