摘要：procedure AppLog(msg: string); var f: textfile;begin try try AssignFile(f, ExtractFilePath(ParamStr(0)) + 'app.log'); if not fileexists(ExtractFilePath(ParamStr(0)) + 'app.log') then rewrite(f) else append(f); writeln(f, FormatDateTime('yyyy-MM-dd HH:mm:ss', No... 阅读全文

摘要：function GetImageFormat(AFileName: string): TImageFormat;var aStream: TMemoryStream; formatFlag: Word;begin aStream := TMemoryStream.Create; try aStream.LoadFromFile(AFileName); aStream.Position := 0; Result := ifUnKnown; if aStream.Size = 0 then Exit; aStream.ReadBuffer(formatFla... 阅读全文

摘要：2012年开始写博客，记录常用的技术知识点供大家交流。主要用到的开发环境是delphi2010.下面献上一段很好用的解析字符串的函数FastSplit。 1 function FastSplit(const S: string; const Delimiter: string = ','): TStrings; 2 var 3 i, j: integer; 4 begin 5 Result := TStringList.Create; 6 i := 1; 7 j := Pos(Delimiter, S); 8 while j > 0 do 9 begin10 ... 阅读全文