2022-12-23 123 0

//去除 TStringList 重复项procedure RemoveDuplicates(const AStrs: TStringList);var Buf: TStringList; Idx: Integer;begin AStrs.Sort; Buf := TStringList.Create; try Buf.Sorted := True; Buf.Duplicates := dupIgnore; Buf.BeginUpd

2022-12-23 59 0

// 取 UTC/TFileTime 时间function GetUTCTickCount: Int64;var UtcFt: _FILETIME;begin // 精确到 100ns = 千万分之一秒 // 返回与 GetTickCount 一样的毫秒 GetSystemTimeAsFileTime(UtcFt); Result := (Int64(UtcFt) div 10000); // 1,000,000,0end;function GetUTCTickCountEh(Seed:

2022-12-23 61 0

uses Winapi.PsAPI;function GetProcMemoryUsed: Cardinal;var Info: PPROCESS_MEMORY_COUNTERS; ProcHandle: HWND;begin // 查询当前进程的内存使用大小 Result := 0; ProcHandle := 0; Info := New(PPROCESS_MEMORY_COUNTERS); Info^.cb := SizeOf(_PROCESS_MEMORY_COUNTERS);

2022-12-23 73 0

function MyCreateDir(const Path: String): Boolean;begin // 建目录 if DirectoryExists(Path) then Result := True else Result := ForceDirectories(Path);end;

2022-12-23 59 0

procedure ClearSysMemory;begin // 清理内存，减少内存占有量（移至缓存） if Win32Platform = VER_PLATFORM_WIN32_NT then SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);end;

2022-12-23 27 0

function EndStr(const S: String; const Count: Integer): String;var I: Integer; Index: Integer;begin Result := ''; for I := 1 to Count do begin Index := Length(S)-I+1; if Index > 0 then Result := S[Index] + Result; end;end;proc

2022-12-23 33 0

procedure FilteredBlankLines(Strings: TStrings);var i: Integer;beginfor I := Strings.count - 1 downto 0 dobegin if Trim(Strings[I]) = '' then Strings.Delete(I);end;end;

2022-12-23 49 0

网上很多把HTML转换成纯文本格式的方法很多思路都是用正则表达式或者分析html代码替换的方法。本文是利用IE完成转换，即利用IHTMLDocument2接口。DenonDenonDenon 转换结果：uses MSHTML;function HtmlToText(HtmlText: WideString): WideString;var V: OleVariant; Document: IHTMLDocument2;begin Result := HtmlText; if HtmlText =