function StringLeft(AText: String; ACount: Integer): String;var Index, i, j : Integer; str : string;begin str :=AText; i := ACount; if i < Length(str) then //是够剪切长度 begin Index := Ord(str); //读取长度最后一个字节的ASCII码 if Index > 127 then Result :=Copy(str,1,i-1) //是汉字就向前取一位，减少一个字节的长度 else Result :=Copy(str,1,i); end else Result := str;end;这个函数搞定了！ 和 stlont 说的原理说的一样
