Forum > Pas2JS
Not supported: variant record
cdbc:
hey
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---type tCPU = (CPU_6502, CPU_65C02, CPU_65816); tComputer = (___c64, ___c4p, ___a8, ___raw, ___neo, ___x16); TTarget = Record name : string[32]; id: tComputer; cpu: tCPU; eol: byte; zpage, buf, codeorigin : word; header : array[0..15] of ansichar; //<-- or ~ string[16]; end; /bc
peter.dell:
It is really intended to be an array of strings. Here's an example of how it is filled:
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---target.header[0] := 'opt h-f+';target.header[1] := 'org $801';target.header[2] := 'org [a($801)],$801';target.header[3] := 'basic_start(START)';target.header[4] := ''; // asm65;target.header[5] := 'org $900';target.header[6] := ''; // asm65;target.header[7] := 'END';
Navigation
[0] Message Index
[*] Previous page