Delphi-Quellcode:
rocedure Sproideldoing;
var
Pottich: TList;
i, z: integer;
begin
Pottich := TList.Create;
try
for i := 1 to 40 do
Pottich.Add(TObject(i));
for i := 1 to 15 do
begin
z := random(Pottich.Count);
ShowMessage(IntToStr(Integer(Pottich[z])));
Pottich.Delete(z);
end;
finally
Pottich.Free;
end;
end;
Wenns mich net täuscht so, nur getippt, nicht propiert
