lambda functions with classic 32 bit Borland compiler ?

[MJS@mjs.us]

Another option for anonymous function callbacks:


//Sample callback structure to pass/fill variables
//---------------------------------------------------------------------------
struct LookUpStruct
{
String *rip,*sts,*lac,*tid,*bnm;

LookUpStruct(String *_rip, String *_sts, String *_lac, String *_tid, String *_bnm) : rip(_rip),sts(_sts),lac(_lac),tid(_tid),bnm(_bnm) { };

void operator()(System::TObject* obj)
{
TIWApplication *ASession = (TIWApplication *)obj;
*rip = ((TIWUserSession*)ASession->Data)->realIP;
*sts = ASession->SessionTimeStamp.FormatString("yyyy-mm-dd hh:nns");
*lac = ASession->LastAccess.FormatString("yyyy-mm-dd hh:nns");
*tid = IntToStr(ASession->TrackID);
*bnm = ASession->Browser->BrowserName;
}
};
//---------------------------------------------------------------------------
typedef TMethodRef<Iwlfsessionlist::TSessionProc,LookUpStruct,void,System::TObject* > _LookUpStruct;
//---------------------------------------------------------------------------

//Sample callback struct usage
//---------------------------------------------------------------------------
void __fastcall TMJForm::btnRefreshAsyncClick(TObject *Sender, TStringList *EventParams)
{
auto_ptr<TStringList> sl(new TStringList);
gSessions->GetList(sl.get());

String ip,sts,lac,tid,bnm;

for(int i=0;i<sl->Count;i++) {
gSessions->LookUp(sl->Strings[i],new _LookUpStruct(LookUpStruct(&ip,&sts,&lac,&tid,&bnm)));
...
}
}