Delphi记录中case of机制解析及转C#后文件读取异常排查

核心逻辑：Delphi无标签变体记录的本质 #

你贴的Delphi代码是无标签的变体记录，这里的case smallint of是Delphi的语法特性，关键两点要明确：

1. smallint仅用来定义判别式的类型，这个类型的变量不会存储在记录结构里，也不会写入.DIR文件。
2. 所有变体的字段共享同一块内存空间——也就是说，变体1的a、变体2的b+c、变体3的d+e+f，都是从记录的起始地址开始占用内存，只是对同一段二进制数据的不同解析方式。

case条件的决定因素 #

选择哪个变体解析数据不是由记录或文件中的值决定的，而是由原Delphi程序的业务逻辑控制：

• 原程序在读取该记录前，必然有配套逻辑判断使用哪个变体——比如文件中存在单独的类型标识字段（比如一个1/2/3的smallint值）、按固定顺序循环读取不同变体，或是根据上下文状态选择。
• 简言之：.DIR文件只存储记录的二进制数据（比如变体1存2字节，变体2存对应char+smallint的字节），但不存储“用哪个变体解析”的标识，这个判断逻辑在原Delphi代码中。

转C#后读取错误的解决办法 #

读取值全错的核心是C# struct的默认内存布局与Delphi变体记录不匹配，解决步骤如下：

1. 还原原程序的变体选择逻辑：找到原Delphi代码中读取myrecord的部分，明确程序判断使用变体1/2/3的依据——这是正确解析的前提。
2. 按内存重叠规则定义C# struct：必须使用[StructLayout(LayoutKind.Explicit)]让所有变体字段共享起始内存，同时用[FieldOffset(0)]指定字段偏移，还要匹配Delphi的类型和对齐规则：
   • Delphi的smallint对应C#的short
   • Delphi的char若为AnsiChar（单字节）对应C#的byte，若为WideChar（双字节Unicode）对应C#的char
   • 若原Delphi记录是packed（紧凑布局），C#需添加Pack=1参数

示例C# struct（假设Delphi使用AnsiChar且记录为紧凑布局）：

[StructLayout(LayoutKind.Explicit, Pack = 1)]
public struct MyRecord
{
    // 变体1
    [FieldOffset(0)]
    public short a;

    // 变体2
    [FieldOffset(0)]
    public byte b;
    [FieldOffset(1)]
    public short c;

    // 变体3
    [FieldOffset(0)]
    public short d;
    [FieldOffset(2)]
    public byte e;
    [FieldOffset(3)]
    public short f;
}

3. 匹配二进制读取方式：用C#的BinaryReader读取时，确保字节序（Windows下Delphi与C#均为小端，无需转换），按记录实际大小读取字节数组后，用Marshal.PtrToStructure转换为struct。

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