پیاده سازی یه الگوریتم ...

[exlord]

سلام...
یه کد دارم به زبان Pascal ولی از اونجایی که فروم پاسکال نداره سوالمو اینجا میپرسم ... البته مشکلم تو خود پاسکال نیست بلکه تو الگوریتم / روش پیاده سازی یه کاریه که لازم دارم ...
یه event هست به نام OnNewRateEvent ...
یه آرایه دارم به اسم TradeList ... مقادیر داخلی این آزایه هر بار که این event اجرا میشه تغییر میکنن ...
من توی eventhandler مربوطه توی این آرایه میگردم و اگه آیتمی شرایط خاصی رو داشه باشه ...یه آیتم از نوع مخالف اون به این آرایه اضافه میکنم... به این کار میگم که این آیتم Hedged شد و هر آیتم فقط باید یکبار Hedge بشه .... خوب تا اینجاش مشکلی نیست .... ولی دفعه دومی که اونت اجرا میشه نمیدونم که کدوم آیتم Hedge شده یا نه ... این آیتم ها هم ReadOnly هستند ومن قادر به تغییر چیزی توش نیستم ...
هر آیتم به ID و Tag داره ...هر دو string ...
Tag رو موقع ساختن من میدم ولی ID یه مقدار unique هست ...

کسی نظری داره ؟؟
اینم کل کد ...


function HedgeLossPosition():Extended;
var
i, j: Integer;
s : Double;
bs : TBuySell;
begin
for i:=0 to TradeList.Count-1 do
begin
if(TradeList.Get(i) ???????? ) then //<----------------------------- what?
begin
if ( (TradeList.Get(i).NetPL/TradeList.Get(i).Amount) <= -35) then
begin
if(TradeList.Get(i).BuySell = bsBuy)then
begin
bs := bsSell;
s := TradeList.Get(i).Instrument.Buy + Stop*Point;
end
else
begin
bs := bsBuy;
s := TradeList.Get(i).Instrument.Sell - Stop*Point;
end;
for j := 1 to HedgeCount do
CreateOrder(TradeList.Get(i).Instrument, TradeList.Get(i).Account, TradeList.Get(i).Amount, bs, s, NullRate, TraderRange, ' TAG UserDefined ');//<---- Hedging
log('position hedged');
end;
end;
end;
end;

[exlord]

کسی نظری نداره .... کارم گیره رو این موندم ........:گریه:

[Felony]

یه کد دارم به زبان Pascal ولی از اونجایی که فروم پاسکال نداره سوالمو اینجا میپرسم
پاسکال هم بخش جداگانه ای داره :
http://barnamenevis.org/forumdisplay.php?140-%D9%85%D8%A8%D8%A7%D8%AD%D8%AB-%D8%B9%D9%85%D9%88%D9%85%DB%8C-%D8%AF%D9%84%D9%81%DB%8C-%D9%88-%D9%BE%D8%A7%D8%B3%DA%A9%D8%A7%D9%84

[exlord]

پاسکال هم بخش جداگانه ای داره :
http://barnamenevis.org/forumdisplay.php?140-%D9%85%D8%A8%D8%A7%D8%AD%D8%AB-%D8%B9%D9%85%D9%88%D9%85%DB%8C-%D8%AF%D9%84%D9%81%DB%8C-%D9%88-%D9%BE%D8%A7%D8%B3%DA%A9%D8%A7%D9%84
ممنون از توجهتون ....

البته مشکلم تو خود پاسکال نیست بلکه تو الگوریتم / روش پیاده سازی یه کاریه که لازم دارم ...