types.via

来自「一个用VB写的很好的编译器,功能超好,不过就是代码有点多,是进一步学习编译的好」· VIA 代码 · 共 34 行

// Types.lnl

application PE GUI;

import MessageBox alias MessageBoxA lib "USER32.DLL",4;

type person {
    dword health;
    string name[50];
}

person kinex;
person bill;

frame ShowTypes();
    string buffer[50];

    kinex.health = 100;     kinex.name = "Robert Stock";
    bill.health = 10;       bill.name = "Bill Gates";

    Format(buffer, 
        "Person1.Name\t=\t%s\nPerson1.Health\t=\t%d", 
        kinex.name,kinex.health);
    MessageBox(0,buffer,"Person1",0);

    Format(buffer,
        "Person2.Name\t=\t%s\nPerson2.Health\t=\t%d",
        bill.name,bill.health);
    MessageBox(0,buffer,"Person2",0);
end;

entry
    ShowTypes();
end.