一、现象描述项目中同时使用ShortString和string两种字符串类型赋值时出现字符串被莫名截断超过255字符的部分丢失或出现乱码尤其是在Delphi D7及以下版本中问题更常见。典型场景将一个长字符串如300字符赋值给ShortString变量结果只保留前255个字符后续字符被截断且无任何报错提示。二、根因深度解析Delphi中有两种核心字符串类型两者区别巨大混用必然出问题ShortString老式字符串最大长度固定为255字符存储时第一个字节记录字符串长度后续存储字符超过255字符的部分会被自动截断且无任何提示string动态字符串Delphi默认字符串类型长度无上限仅受内存限制自动管理内存支持Unicode编码Delphi 2009及以上。问题根源将长string赋值给ShortString时Delphi会自动截断超出255字符的部分且不抛出任何异常导致数据丢失若将ShortString赋值给string虽不会截断但可能因编码问题出现乱码尤其是非英文内容。三、错误代码必踩示例delphiprocedure TForm1.Button1Click(Sender: TObject);varS1: ShortString; // 最大255字符S2: string; // 无长度限制begin// S2是长字符串300字符S2 : StringOfChar(A, 300);// ❌ 错误将长string赋值给ShortString自动截断S1 : S2;// 输出长度为255后续45个字符被截断无任何提示ShowMessage(S1长度 IntToStr(Length(S1))); // 输出255end;四、正确写法100%生效核心原则项目中**统一使用string类型**彻底摒弃ShortString若因兼容旧代码必须使用ShortString需提前判断字符串长度避免截断。delphiprocedure TForm1.Button1Click(Sender: TObject);varS1: ShortString;S2: string;beginS2 : StringOfChar(A, 300);// ✅ 正确写法1统一使用string避免ShortString// 注释掉ShortString全部用string// var S1: string;// S1 : S2;// ShowMessage(S1长度 IntToStr(Length(S1))); // 输出300// ✅ 正确写法2若必须用ShortString提前判断长度if Length(S2) 255 thenbeginS1 : S2;endelsebegin// 处理截断问题提示用户、截取前255字符等ShowMessage(字符串过长已截取前255字符);S1 : Copy(S2, 1, 255);end;end;五、避坑技巧1. 新项目完全不用ShortString所有字符串统一用string2. 旧项目若有ShortString逐步替换为string避免混用3. 若必须使用ShortString任何赋值操作前都要判断源字符串长度是否≤255避免无声截断。