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
http://blog.csdn.net/earbao/article/details/12883857