摘要：function TForm5.is_samestr(str: string): Boolean; var total:integer; i:integer; a:string; begin total :=Length(str); Result:=true; for i := 1 to total 阅读全文

摘要：Delphi程序在运行着，有时想获取一些程序运行的值的话，可以用下面的输出日志的函数来实现 、 procedure WriteLog(sContent: string); //写入日志 var tFile: TextFile; filename: string; logDir:string; beg 阅读全文