11-06-2012, 05:36 PM
بامكانك استخدام مكون من listboxلكي تتبع ما يحدث و التعويض بlistbox.itemsفي مكان lstوالذي هو عبارة عن Tstrings
PHP كود :
PROCEDURE Randomy(lst2: TStrings; Number: byte);
/// /This will random unrepeated numbers;
var
i integer;
lst1: TStrings;
BEGIN
lst1 := tstringlist.Create;
lst2.Clear;
randomize;
for i := 1 to Number do
lst1.add(inttostr(i));
randomize;
for i := 0 to 111 do
lst1.Exchange(random(lst1.Count), random(lst1.Count));
try
for i := 1 to 12 do
lst2.add('mypng' + lst1.Strings[i]);
lst1.Clear;
finally
lst1.Free;
end;
END;