Class
TMtxLP
MtxLP.Verbose := Memo1.Lines; // log each step to Memo1.Lines Memo1.Lines.Clear; MtxLP.Recalculate; // save log to file Memo1.Lines.SaveToFile('c:\optim.log');
MtxLP->Verbose = Memo1.Lines; // log each step to Memo1.Lines Memo1->Lines->Clear(); MtxLP->Recalculate(); Memo1->Lines->SaveToFile("c:\\optim.log");
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(); }
TStringList log = new TStringList(); MtxLP.Verbose = log; MtxLP.Recalculate(); richTextBox1.Text = log.Text; // copy text to RichTextBox
| Copyright 2008 Dew Research |