摘要： function CenterStr(Src: string; Before, After: string): string;var Pos1, Pos2: WORD;begin Pos1 := Pos(Before, Src); Pos2 := Pos(After, Src); if (Pos1 = 0) or (Pos2 = 0) then //如果src中没有B串和A串 begin Result := ''; Exit; end; Pos1 := Pos1 + Length(Before); //句1.B串起始位+B串的长度 if Pos2 - Pos1 = 0 then 阅读全文

摘要： 方法一、利用 WinInet 单元中的函数：uses WinInet; function GetWebPage(const Url: string):string; var Session, HttpFile:HINTERNET; szSizeBuffer:Pointer; dwLengthSizeBuffer:DWord; dwReserved:DWord; dwFileSize:DWord; dwBytesRead:DWord; Contents:PChar; begin Session:=InternetOpen(’’,0,niL,niL,0); HttpFile:=... 阅读全文

摘要： 1.流泪的时候不做任何决定2.不反复思考同一个问题3.不害怕做错什么4.有负面情绪是正常的5.一切的烦恼都是自找的6.说过的话一定要做到7.不要去害怕做一件事8.无论是对是错，你需要一个准则9.不要把心底的话全掏出来10.沉默有无限种含义 阅读全文