摘要:function GetLeft(sText, sepStr: string): string; var p: Integer; begin p := Pos(sepStr, sText); if p = 0 then Exit(''); Result := Copy(sText, 1, p - 1); end; function GetRight(sText, sepStr...
阅读全文
02 2018 档案
摘要:function GetLeft(sText, sepStr: string): string; var p: Integer; begin p := Pos(sepStr, sText); if p = 0 then Exit(''); Result := Copy(sText, 1, p - 1); end; function GetRight(sText, sepStr...
阅读全文
|