Random Tshape!

[zecke]

Angenommen Du hast ein Shape TKreis und eins TStrich. Dann könntest Du beim case .. of 2 fälle setzen. Wenn bei random ne 1 rauskommt, setzt du einen booleanwert true, den anderen false. Danach brauchst Du nur noch fragen, welcher true ist und das jeweilge shape anzeigen.

denke, das ist nicht elegant, aber es funktioniert und das zählt bei mir immer

edit: ich hänge mal meine idee in code-form an.

als 1. im form.oncreate ein 'randomize;' hinein.

habe ich als globale variablen:

Delphi-Quellcode:

  kreis,strich : boolean;
  i : integer;

dann eine prozedur:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
i := random(2);
Case i of
  0 : kreis := true;
  1 : strich := true;
End;
If Kreis=true then
begin
// dein kreis shape
end else
If strich=true then
begin
// dein strich shape
end;
end;

entschuldige, wenn es nicht schön formatiert ist. wenn du eins gezeichnet hast, dann nicht vergessen die werte wieder auf false zu setzen, glaub ich

hoffe es hilft