帮我将这个转换为Delphi好吗？

Question

帮我将这个转换为Delphi好吗？本人C++超级菜。typedef void __stdcall (*fun_AddResult)(char pDataStr[10][255],double pDataDouble[100]);
extern "C" void __declspec(dllimport)  __stdcall FanSelect(
    void *pSeriesNames,//系列名称 *   (typedef struct{char Data[255];} ;)
    fun_AddResult pAddResult//函数指针,用于回传数据
    ); 

Answer 1

type
  TAryAryStr = array[0..9, 0..254] of Char;
  TAryDouble = array[0..99] of Double;
  TAryChar   = array[0..254] of Char;  TData = record
    Data: TAryChar;
  end;
  PData = ^TData;
  
  TAddResult = procedure(DataStr: TAryAryStr; DataDouble: TAryDouble);
  procedure FanSelect(SeriesNames: PData; Result: TAddResult);

Answer 2

type
  TAryChar   = array[0..254] of Char;
  TAryAryChar = array[0..9, 0..254] of Char;
  TAryDouble = array[0..99] of Double;
  
  TData = record
    Data: TAryChar;
  end;
  PData = ^TData;
  
  TAddResult = procedure(DataStr: TAryAryChar; DataDouble: TAryDouble);
  procedure FanSelect(SeriesNames: PData; Result: TAddResult);

Answer 3

完善一下：type
  TAryChar   = array[0..254] of Char;
  TAryAryChar = array[0..9, 0..254] of Char;
  TAryDouble = array[0..99] of Double;
  
  TData = record
    Data: TAryChar;
  end;
  PData = ^TData;
  
  TAddResult = procedure(DataStr: TAryAryChar; DataDouble: TAryDouble);
  procedure FanSelect(SeriesNames: PData; Result: TAddResult);
  stdcall;  external 'dllname.dll'  //静态调用

Answer 4

type 
  TCharArray=array [0..9] of array [0..254] of Char;
  PCharArray=^TCharArray;
  TDoubleArray=array [0..99] of Double;
  PDoubleArray=^TDoubleArray;
  fun_AddResult=procedure(pDataStr:PCharArray;pDataDouble:PDoubleArray);stdcall;
  procedure FanSelect(pSeriesNames:Pointer;pAddResult:fun_AddResult);cdecl;