tmpLog := TStringList.Create; try MtxOptimization.Verbose := tmpLog; // log each step to Memo1.Lines MtxOptimization.Recalculate; // save log to file tmpLog.SaveToFile('c:optim.log'); finally tmpLog.Free; end;

TStringList *log = new TStringList(NULL); try { MtxLP->Verbose = log; // log each step to Memo1.Lines MtxLP->Recalculate(); // save log to file log->SaveToFile("c:\optim.log"); } __finally { log->Free(); }