| 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; |