Need Scar Divi 3.01
This could do in the includes, I've been using it for a while, it saves all debug text away, i use it to debug if my computer is shut off or i clear debug on accident or just so it's hardcopied
Code://-----------------------------------------------------------------// //-- Scar Standard Resource Library --// //-- » save all text --// //-----------------------------------------------------------------// // * procedure SaveText(Location:string); // * by King Vash //****************************************************************************// {******************************************************************************* By: King Vash Description: Save's SRL Randoms Report and all text in degub box to a text file in the folder defined in location (don't include a final "\") Location: the location to save file *******************************************************************************} procedure SaveText(Location:string); var Time, CurrentDebugText: String; Hour, Mins, Sec, MSec: Word; Filenumber: Integer; Begin CurrentDebugText := GetDebugText; DecodeTime(Now, Hour, Mins, Sec, MSec); Time:= (IntToStr(Hour) + ' ' + IntToStr(Mins) + ' ' + IntToStr(Sec)) location :=(location + '\' + 'debug on ' + Time +'.txt'); writeln(location); wait(10000); Filenumber := RewriteFile(Location, False) if Filenumber <= -1 then begin status('openfile at ' + location + ' failed'); end else begin ClearDebug; writeln(CurrentDebugText); // get srl report next if (not WriteFileString(Filenumber, CurrentSRL)) then writeln('Save text failed');' if (not WriteFileString(Filenumber, CurrentDebugtext)) then writeln('Save text failed again'); CloseFile(Filenumber); end; end;



Reply With Quote






