Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
1. Mär 2008
Jo, stimmt, das spart eine Zeile. War ja auch nur schnell dahingetippt.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
1. Mär 2008
Also, ich würde das nach wie vor über eine Menge lösen (lbZiehung ist eine ListBox):procedure TFrmLotto.FormCreate(Sender: TObject);
begin
Randomize;
end;
procedure TFrmLotto.btnZiehungClick(Sender: TObject);
var Kugeln: set of byte;
i, Zufall: byte;
begin
lbZiehung.Items.BeginUpdate;
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
1. Mär 2008
Du könntest statt eines Arrays auch eine Menge (set of byte) nehmen. Aus einer Menge kann man auch Elemente löschen.