function TMainFrm.GetMinData(StkSelStr, DataName: string;
pStkMinDataAry: PStkMinDataAry):boolean;
var
ErrString : string;
DataFile : TFileStream;
MinDataFat : TStkMinDataFat;
begin
result := false;
ErrString := 'GetMinData() ';
pStkMinDataAry.Counts := 0;
if not GetMinDataFat(StkSelStr, DataName, pStkMinDataAry) then
begin
ErrString := ErrString+'GetMinDataFat() Error£¡';
WriteErrorStr(gf_getexepath+HST_ERROR_REPORT_FILE, ErrString);
exit;
end;
if not GetMinDataAry(StkSelStr, DataName, pStkMinDataAry) then
begin
ErrString := ErrString+'GetMinDataAry() Error£¡';
WriteErrorStr(gf_getexepath+HST_ERROR_REPORT_FILE, ErrString);
exit;
end;
result := true;
end;