谁能提供我一些取 Delphi 子串的函数?在线等候

Copy() //!uses StrUtils; //for Delphi6function LeftStr(const AText: string; const ACount: Integer): string;
function RightStr(const AText: string; const ACount: Integer): string;
function MidStr(const AText: string; const AStart, ACount: Integer): string;