358 |
|
function Impt(Connection: TDataAccess; FileID: Integer): TDatLinkList; |
359 |
|
const |
360 |
|
types: array[0..0] of String[4] = |
361 |
< |
('*'); |
361 |
> |
('Impt'); |
362 |
|
var |
363 |
|
i: Integer; |
364 |
|
begin |
425 |
|
|
426 |
|
function M3GM(Connection: TDataAccess; FileID: Integer): TDatLinkList; |
427 |
|
const |
428 |
< |
types: array[0..7] of String[4] = |
429 |
< |
('PNTA', 'VCRA', 'VCRA', 'TXCA', 'IDXA', 'IDXA', 'TXMP', '*'); |
428 |
> |
types: array[0..6] of String[4] = |
429 |
> |
('PNTA', 'VCRA', 'VCRA', 'TXCA', 'IDXA', 'IDXA', 'TXMP'); |
430 |
|
var |
431 |
|
i: Integer; |
432 |
|
begin |
433 |
|
SetLength(Result, 8); |
434 |
< |
for i := 0 to 7 do |
434 |
> |
for i := 0 to 6 do |
435 |
|
begin |
436 |
|
Result[i].SrcOffset := $0C + i*4; |
437 |
|
Result[i].DestID := -1; |
443 |
|
function Mtrl(Connection: TDataAccess; FileID: Integer): TDatLinkList; |
444 |
|
const |
445 |
|
types: array[0..0] of String[4] = |
446 |
< |
('*'); |
446 |
> |
('Mtrl'); |
447 |
|
var |
448 |
|
i: Integer; |
449 |
|
begin |
586 |
|
SetLength(Result, 1); |
587 |
|
Result[0].SrcOffset := $8; |
588 |
|
Result[0].DestID := -1; |
589 |
< |
Result[0].PosDestExts := '*'; |
589 |
> |
Result[0].PosDestExts := 'ONCV'; |
590 |
|
end; |
591 |
|
|
592 |
|
|
729 |
|
SetLength(Result, 1); |
730 |
|
Result[0].SrcOffset := $50; |
731 |
|
Result[0].DestID := -1; |
732 |
< |
Result[0].PosDestExts := '*'; |
732 |
> |
Result[0].PosDestExts := 'TXMP'; |
733 |
|
end; |
734 |
|
|
735 |
|
|
747 |
|
begin |
748 |
|
Result[i].SrcOffset := $20 + i*8 + 4; |
749 |
|
Result[i].DestID := -1; |
750 |
< |
Result[i].PosDestExts := '*'; |
750 |
> |
Result[i].PosDestExts := 'PSpc'; |
751 |
|
end; |
752 |
|
end; |
753 |
|
end; |
1103 |
|
SetLength(Result, 2); |
1104 |
|
Result[0].SrcOffset := $94; |
1105 |
|
Result[0].DestID := -1; |
1106 |
< |
Result[0].PosDestExts := '*'; |
1106 |
> |
Result[0].PosDestExts := 'TXAN'; |
1107 |
|
Result[1].SrcOffset := $98; |
1108 |
|
Result[1].DestID := -1; |
1109 |
|
Result[1].PosDestExts := 'TXMP'; |
1133 |
|
begin |
1134 |
|
Result[i].SrcOffset := $20 + i*8 + 4; |
1135 |
|
Result[i].DestID := -1; |
1136 |
< |
Result[i].PosDestExts := '*'; |
1136 |
> |
Result[i].PosDestExts := 'PSpc'; |
1137 |
|
end; |
1138 |
|
end; |
1139 |
|
end; |