呵呵,我的机子上有这么一个函数。uses DUtils;// Left N characterfunction LeftStr(const S: String; n: Integer): String;// Right N characterfunction RightStr(const S: String; n: Integer): String;// Get a SubStrfunction SubStr(const S: String; Start, Len: Integer): String;