delphi 封装函数集

1、

// 根据字符串，拆分字符串，相当于vb中的split函数
function SplitString(const Source, ch: string): TStringList;
var
  temp: String;
  i: Integer;
begin
  Result := TStringList.Create;
  // 如果是空自符串则返回空列表
  if Source = '' then
    exit;
  temp := Source;
  i := pos(ch, Source);
  while i <> 0 do
  begin
    Result.add(copy(temp, 0, i - 1));
    Delete(temp, 1, i + length(ch) - 1);
    i := pos(ch, temp);
  end;
  Result.add(temp);
end;

function isSupportFileTypes(ext: string;iniFilePath:string): Boolean;
var
  supportFileTypes: TStringList;
  i: Integer;
  myini:TIniFile;
  config:string;
begin
  Result := False;
  //iniFilePath要绝对路径
  myini:=TIniFile.Create(iniFilePath);
  supportFileTypes := TStringList.Create;
  config:=myini.ReadString('supportExtractFileType','config','');
  supportFileTypes:=SplitString(config,'|');
  // zip apk rar dll exe等不支持抽取文本信息
  for i := 0 to supportFileTypes.Count - 1 do
  begin
    if Trim(supportFileTypes[i]) = LowerCase(ext) then
    begin
      Result := True;
      //ShowMessage('true');
      Break;
    end;
  end;
  supportFileTypes.Free;
  myini.Free;

end;

2、

function TFrmMain.GetHtmlByWebBrowser(const WebBrowser: TWebBrowser;
  URL: string): string;
var
  ms: TMemoryStream;
  MyStrList: TStringList;
begin
  Try
    WebBrowser.Navigate(URL);
  Except

  End;
  while WebBrowser.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;
  While not Assigned(WebBrowser.Document) do
    Application.ProcessMessages;
  ms := TMemoryStream.Create;
  MyStrList := TStringList.Create;
  (WebBrowser2.Document as IPersistStreamInit)
  .Save(TStreamAdapter.Create(ms), True);
  ms.Position := 0;
  MyStrList.LoadFromStream(ms, TEncoding.UTF8);
  Result := MyStrList.Text;
end;

3、

function UnicodeToMBCS( // 将Unicode编码字符串转换成多字节字符串
  mCodePage: UINT; // 对照表页码
  mUnicode: WideString // Unicode编码字符串
  ): string; // 返回处理后的字符串
var
  L: Integer;
begin
  L := WideCharToMultiByte(mCodePage, 0, PWideChar(mUnicode), -1, nil, 0, nil,
    nil);
  SetLength(Result, L);
  if L <= 0 then
    Exit;
  WideCharToMultiByte(mCodePage, 0, PWideChar(mUnicode), -1, @Result[1], L,
    nil, nil);
end;

function MBCSToUnicode( // 将多字节字符串转换成Unicode编码字符串
  mCodePage: UINT; // 对照表页码
  mMBCS: string // 多字节字符串
  ): WideString; // 返回处理后的字符串
var
  L: Integer;
begin
  L := MultiByteToWideChar(mCodePage, 0, PAnsiChar(mMBCS), -1, nil, 0);
  SetLength(Result, L);
  if L <= 0 then
    Exit;
  MultiByteToWideChar(mCodePage, 0, PAnsiChar(mMBCS), -1, @Result[1], L);
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  str,str2:string;
begin
  str:=UnicodeToMBCS(CP_UTF8,'你好你是猪test');
  ShowMessage(str);
  str2:=MBCSToUnicode(CP_UTF8,str);
  ShowMessage(str2);
end;

4、提升进程权限：

 procedure TForm1.GetPrivilege;
var
  NewState:       TTokenPrivileges;
  lpLuid:         Int64;
  ReturnLength:   DWord;
  ToKenHandle:    Cardinal;
begin
  OpenProcessToken(GetCurrentProcess,
                   TOKEN_ADJUST_PRIVILEGES
                   OR TOKEN_ALL_ACCESS
                   OR STANDARD_RIGHTS_REQUIRED
                   OR TOKEN_QUERY,ToKenHandle);
  LookupPrivilegeValue(nil,'SeShutdownPrivilege',lpLuid);
  NewState.PrivilegeCount:=1;
  NewState.Privileges[0].Luid:=lpLuid;
  NewState.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
  ReturnLength:=0;
  AdjustTokenPrivileges(ToKenHandle,False,NewState,0,nil,ReturnLength);
end;

5 、stringbuilder

procedure TForm2.Button1Click(Sender: TObject);
var
  sb: TStringBuilder;
begin

  sb := TStringBuilder.Create;
  sb.Append('test');
  sb.AppendLine;//换行
  sb.AppendFormat('%s %d', ['Delphi', 2009]);
  sb.AppendLine;//换行
  sb.AppendLine('[2015-05-04 09:00:03||android0033333][2015-05-04 08:55:28||android003][2015-05-04 08:54:33||android002][2015-05-04 08:53:50||android01][2015-05-04 08:38:02||android]');

  // sb.AppendLine('[2015-6-2 09:19:41||test][2015-6-2 09:21:12||fuck]');
  sb.Replace('[', '');
  sb.Replace(']', '');
  ShowMessage(sb.ToString);
  sb.Free;

end;

6、delphi 字符串操作函数
查找位置函数
[调用格式]:pos(s1,s2);Integer;
[功能]：返回字符串s1在字符串s2中首次出现的位置，若s2中不存在s1，则返回0。
[说明]:  若s1在s2当中,则必须满足s1的所有字符都在s2中，即s1是s2哦子串。
[例如]:  x:=pos('bx','adcd');   //x的值为2
合并字符串过程
[调用格式]
Appendstr(var l;const s2);
[功能]:相同于执行s1:='s1+s2';
[说明]:本过程比语句"s1:=s1+s2";执行效率高
 


截取子字符串函数
[调用格式]： Copy(str, m, n): String;
[功能]：在字符串str 中截取从第 m 个字符开始长度为n 的子字符串，并作为函数的返回值。
[说明]：若m大于s 的长度，则返回一个空串；若从第m 个字符到s 的结尾不足n 个字符，则返回其间的所有字符。
[例如]：
Source code ( By http://www.fishc.com )   
s1:= Copy( ‘IloveFishc！', 6, 5 ); // s1 的值为‘Fishc'
s2:= Copy( ‘小甲鱼爱美眉！’, 4, 5 ); // s2 的值？
s3:= Copy( ‘IloveFishc！’, 1, 1 ); 
s4:= Copy( ‘IloveFishc！’, 0, 1);
注意：s3 和 s4 其实是一样的！
 


删除子字符串过程
[调用格式]：Delete( str, m, n );
[功能]：在字符串str 中删除从第m个字符开始长度为n的子字符串。
[说明]：
如果m大于str 的长度，则不删除任何字符； 
如果从第m 个字符开始到str 的末尾不足n个字符，则删除其间的所有字符； 
如果n小于等于0，则不删除任何字符。 
 


插入子字符串过程
[调用格式]：Insert( str1, str, k );
[功能]：将字符串str1插入到字符串str 中的第k个字符处。


function UpperCase(const S: string): string;          //转大写
function LowerCase(const S: string): string;          //转小写
StringReplace 
SetLength
CopyMemory
GetMem
Move