Example: |
The following example shows how to load the meta data without knowing details in advance:
program LoadMetaTest;
var
Md : TMetaData;
FName : string;
Version : integer;
NCols : integer;
NRows : integer;
NLayers : integer;
NTSlots : integer;
begin
Md := TMetaData.Create(nil);
FName := SelectFile (GetILabDir(idWork),'*.ilab','Please select a file');
Md.ReadMetaHeader (FName, Version, NCols, NRows, NLayers, NTSlots);
Md.ResizeContainers (NCols, NRows, NLayers, NTSlots);
Md.Load (FName);
Md.Free;
end.
|