Library TestForError;
{$EXTENSION 'wdx'}
Uses
SysUtils;
{=================================}
Function ContentGetSupportedField(FieldIndex: Integer; FieldName: PChar; Units: PChar; MaxLen: Integer): Integer; StdCall;
Begin
If FieldIndex > 100 Then
Result := 0
Else
Begin
If FieldIndex = 0 Then StrPCopy(FieldName, 'Строка необработанных данных');
If FieldIndex = 1 Then StrPCopy(FieldName, 'Отсортированный массив данных');
If FieldIndex > 1 Then StrPCopy(FieldName, 'Усреднение значений на ' + IntToStr(FieldIndex - 1));
Result := 8;
End;
End;
{=================================}
Function ContentGetValue(FilePath: PChar; FieldIndex, UnitIndex: Integer; FieldValue: PChar; MaxLen, Flags: Integer): Integer; StdCall;
Var
HashString: String = '';
Begin
Result := 8;
HashString := '0003060U101L1R202F2O';
If ExtractFileExt(FilePath) = '.txt' Then HashString := '0003060X101L1O232F2R';
StrPCopy(FieldValue, HashString);
End;
{=================================}
Exports
ContentGetValue,
ContentGetSupportedField;
{=================================}
End.
|