ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/FileClasses/TXAN.pas

Comparing oup/current/FileClasses/TXAN.pas (file contents):
Revision 214 by alloc, Tue Jun 12 17:35:56 2007 UTC vs.
Revision 215 by alloc, Tue Jun 12 20:31:54 2007 UTC

#	Line 7 | Line 7 | uses
7
8		type
9		TFile_TXAN = class(TFile)
10	–	protected
11	–	procedure InitDatLinks; override;
12	–	procedure InitRawList; override;
10		public
11		procedure InitDataFields; override;
12		end;
#	Line 55 | Line 52 | begin
52		end;
53
54
58	–	procedure TFile_TXAN.InitDatLinks;
59	–	var
60	–	links: Integer;
61	–	i: Integer;
62	–	begin
63	–	ConManager.Connection[FConnectionID].LoadDatFilePart(FFileID, $1C, SizeOf(links), @links);
64	–	SetLength(FDatLinks, links);
65	–	for i := 0 to links - 1 do
66	–	begin
67	–	FDatLinks[i].SrcOffset := $20 + $4 * i;
68	–	FDatLinks[i].DestID := GetDatLinkValue(FFileStream, FDatLinks[i].SrcOffset);
69	–	FDatLinks[i].PosDestExts := 'TXMP';
70	–	end;
71	–	end;
72	–
73	–
74	–	procedure TFile_TXAN.InitRawList;
75	–	begin
76	–	SetLength(FRawParts, 0);
77	–	end;
78	–
55		end.
56

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)