寻求解决Turbo Pascal 255字符串长度限制的单元或框架

1. Turbo Pascal下的超长字符串替代单元 #

Turbo Pascal原生ShortString的255字符长度限制确实可以通过第三方单元绕过，早期有不少专门实现超长字符串的开源单元，这类单元通常用动态内存块或数组模拟长字符串，封装了拼接、读取、内存管理等操作，用法和普通字符串类似。

对应你给出的示例，改用这类单元的代码大致如下：

uses LongStrUtils; { 假设这是第三方长字符串单元 }

var
  MySingleChar: Char;
  LongStr: LongString; { 单元定义的长字符串类型 }
  i, TargetLength: Integer;
begin
  MySingleChar := 'X';
  LongStr := '';
  for i := 0 to TargetLength do
  begin
    LongStr := LongStr + MySingleChar;
  end;
  { 读取内容直接访问变量即可，比如输出：Writeln(LongStr); }
end.

2. 无第三方依赖的自制方案 #

如果不想用外部单元，也可以自己实现：

• 动态数组模拟：用array of Char或array of Byte存储字符，手动编写拼接函数——每次拼接时重新分配数组空间，复制原内容和新字符进去，实现类似长字符串的效果。
• 分段文件写入：你提到的逐字节写入如果改成批量操作，耗时会大幅降低。比如先把字符缓存到一个255长度的ShortString中，满了就用BlockWrite一次性写入文件，最后处理剩余内容，比单字节写入效率高很多。

3. Delphi/FreePascal的原生长字符串支持 #

Delphi从Delphi 2开始原生支持LongString（最大长度2GB），FreePascal则支持AnsiString/UnicodeString，这些类型完全不需要额外单元，直接就能替代ShortString解决长度问题。示例代码：

var
  LongStr: AnsiString;
  i: Integer;
begin
  LongStr := '';
  for i := 1 to 10000 do
  begin
    LongStr := LongStr + 'X';
  end;
  Writeln(Length(LongStr)); { 输出10000 }
end.

如果可以迁移到这两个环境，这是最省心的解决方案。

内容的提问来源于stack exchange，提问作者Born34