摘要：
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... 阅读全文
|
摘要：
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... 阅读全文
|