<!DOCTYPE html> <html> <head> <title></title> <script> function upload(input){ //支持chrome IE10 if (window.FileReader){ var file = input.files[0]; filename = file.name.split(".")[0]; var reader = new FileReader…
//1.打开目录和打开txt文件 procedure TMainForm.bbtnOpenLoClick(Sender: TObject); var sLogName: string; begin sLogName := Pub_EXEPath + '\日志\' + FormatDateTime('yyyy-mm-dd',date())+'.txt'; if not FileExists(sLogName) then begin MessageBox(0, '今日无错误日志!', '提示', M…