07-06-2009, 01:07 PM
احفظ عدد السجلات في strings array و بعد ذلك اخلطهم او اعمل اختيار عشوائي
وهذا فنكشن استخدمه يسوي نفس العميله بس مع الوقت او الساعه .
في الفنكشن تجي ال value1 و ال value2 بوقت مثلا value1 = 03:30 و ال value2=04:00 الفنكشن يحسب كم بينهم من دقيقه و بعد ذلك يختار زمن عشوائي بين ال 3:30 و الساعه 4 .
وهذا فنكشن استخدمه يسوي نفس العميله بس مع الوقت او الساعه .
كود :
function ShuffleTimeArray(Value1, Value2: string): string;
var
T1, T2: TTime;
x: Integer;
TimeArray: array of string;
d: Double;
begin
Randomize;
T1 := StrToTime(Value1 + ':00');
T2 := StrToTime(Value2 + ':00');
d := MinuteSpan(T1, T2);
SetLength(TimeArray, Ceil(d) + 1);
for x := 0 to Ceil(d) do
begin
TimeArray[x] := TimeToStr(T1);
T1 := IncMinute(T1, 1);
end;
Result := TimeArray[Random(Ceil(d) + 1)];
end;في الفنكشن تجي ال value1 و ال value2 بوقت مثلا value1 = 03:30 و ال value2=04:00 الفنكشن يحسب كم بينهم من دقيقه و بعد ذلك يختار زمن عشوائي بين ال 3:30 و الساعه 4 .