Чтение из папки и дальнейшее осреднение значений

type
  TCDFFile = class
   private
    AData: TStringList;
    function GetProperty(const Index: Integer): Variant;
    function GetParamValue(ParamName: String; ParamType: TFieldType = ftString): Variant;
   public
    ID: String;
    DllPath: String;
    constructor Create;
    function Load(FileName: String): Boolean;
    property Date: Variant index 0 read GetProperty;
    property Time: Variant index 1 read GetProperty;
    property Latitude: Variant index 2 read GetProperty;
    property Longitude: Variant index 3 read GetProperty;
    property Pressure: Variant index 4 read GetProperty;
    property Temperature: Variant index 5 read GetProperty;
    property Salinity: Variant index 6 read GetProperty;
  end;
 
function GetDosOutput(CommandLine: string; Work: string = 'C:\'): string;
var
  SA: TSecurityAttributes;
  SI: TStartupInfo;
  PI: TProcessInformation;
  StdOutPipeRead, StdOutPipeWrite: THandle;
  WasOK: Boolean;
  Buffer: array[0..255] of AnsiChar;
  BytesRead: Cardinal;
  WorkDir: string;
  Handle: Boolean;
begin
  Result := '';
  with SA do begin
    nLength := SizeOf(SA);
    bInheritHandle := True;
    lpSecurityDescriptor := nil;
  end;
  CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0);
  try
    with SI do
    begin
      FillChar(SI, SizeOf(SI), 0);
      cb := SizeOf(SI);
      dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
      wShowWindow := SW_HIDE;
      hStdInput := GetStdHandle(STD_INPUT_HANDLE); // don't redirect stdin
      hStdOutput := StdOutPipeWrite;
      hStdError := StdOutPipeWrite;
    end;
    WorkDir := Work;
    Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine),
                            nil, nil, True, 0, nil,
                            PChar(WorkDir), SI, PI);
    CloseHandle(StdOutPipeWrite);
    if Handle then
      try
        repeat
          WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
          if BytesRead > 0 then
          begin
            Buffer[BytesRead] := #0;
            Result := Result + Buffer;
          end;
        until not WasOK or (BytesRead = 0);
        WaitForSingleObject(PI.hProcess, INFINITE);
      finally
        CloseHandle(PI.hThread);
        CloseHandle(PI.hProcess);
      end;
  finally
    CloseHandle(StdOutPipeRead);
  end;
end;
 
{ TCDFFile }
 
constructor TCDFFile.Create;
begin
 AData := TStringList.Create;
end;
 
function TCDFFile.Load(FileName: String): Boolean;
begin
 try
  Result := True;
  AData.Text := GetDosOutput('ncdump.exe ' + FileName, DllPath);
  if Copy(AData.Text, 1, 6) <> 'netcdf' then raise Exception.Create('Неизвестный формат файла');
  ID := Copy(AData.Text, Pos('\', AData.Text)+1, Pos('{', AData.Text)-Pos('\', AData.Text)-2);
  AData.Text := Copy(AData.Text, Pos('data:', AData.Text) + 5, Length(AData.Text));
 except
  Result := False;
 end;
end;
 
function TCDFFile.GetParamValue(ParamName: String; ParamType: TFieldType): Variant;
var
  BPos,EPos,i: Integer;
  SL: TStringList;
begin
 BPos := Pos(ParamName, AData.Text, 1);
 if BPos = 0 then Exit;
 BPos := BPos + Length(ParamName) + Length(' =') + 1;
 EPos := Pos(';', AData.Text, BPos) - 1;
 Result := Copy(AData.Text, BPos, EPos - BPos);
 case ParamType of
   ftDate: begin
           Result := Copy('00000000',1,8-Length(Result))+Result;
           Result := Copy(Result,7,2)+'.'+Copy(Result,5,2)+'.'+Copy(Result,1,4);
           Result := StrToDate(Result);
           end;
   ftTime: begin
           Result := Copy('000000',1,6-Length(Result))+Result;
           Result := Copy(Result,1,2)+':'+Copy(Result,3,2)+':'+Copy(Result,5,2);
           Result := StrToTime(Result);
           end;
   ftFloat: begin
            Result := StringReplace(Result,'.',',',[]);
            Result := StrToFloat(Result);
            end;
   ftArray: begin
            while Pos('  ', Result) > 0
            do begin
               Result := StringReplace(Result,#32#32,#32,[rfReplaceAll]);
               Result := StringReplace(Result,#13#10,'',[rfReplaceAll]);
               end;
            SL := TStringList.Create;
            SL.StrictDelimiter := True;
            SL.CommaText := Result;
            Result := VarArrayCreate([0,SL.Count-1], varSingle);
            for i := 0 to SL.Count-1
            do Result[i] := StringReplace(SL[i],'.',',',[]);
            SL.Free;
            end;
 end;
end;
 
function TCDFFile.GetProperty(const Index: Integer): Variant;
var FS: TFormatSettings;
begin
 FS := TFormatSettings.Create;
 Result := null;
 case Index
 of 0: Result := GetParamValue('woce_date', ftDate);
    1: Result := GetParamValue('woce_time', ftTime);
    2: Result := GetParamValue('latitude', ftFloat);
    3: Result := GetParamValue('longitude', ftFloat);
    4: Result := GetParamValue('pressure', ftArray);
    5: Result := GetParamValue('temperature', ftArray);
    6: Result := GetParamValue('salinity', ftArray);
 end;
end;

var
  CDFFile: TCDFFile;
...
CDFFile := TCDFFile.Create;
CDFFile.DllPath := DllPath;
ResultCount := VarArrayHighBound(CDFFile.Pressure, 1);
if CDFFile.Pressure <> null
then for n := 0 to ResultCount - 1
       do // получаем значения давления из CDFFile.Pressure[n];
if CDFFile.Temperature <> null
then for n := 0 to ResultCount - 1
       do // получаем значения температуры из CDFFile.Temperature[n];
if CDFFile.Salinity <> null
then for n := 0 to ResultCount - 1
       do // получаем значения уровня шума из CDFFile.Salinity[n];