IDtRecordsetConsumer.Clear

Синтаксис

Clear;

Описание

Метод Clear осуществляет очистку приемника данных в соответствии с алгоритмом пользователя. Данный метод должен быть переопределен в пользовательском классе.

Пример

Class MyConsumer: Object, IDtRecordsetConsumer

Public Sub Put(Value: Array);

Var

TextFile: IFileInfo;

TextW: ITextWriter;

i, j: Integer;

Begin

TextFile := New FileInfo.Attach("c:\Out.txt");

If TextFile.Exists Then

TextW := TextFile.AppendText;

Else

TextFile.Open(FileOpenMode.Create, FileShare.Exclusive);

TextW := TextFile.AppendText;

End If;

For j := Value.GetLowerBound(2) To Value.GetUpperBound(2) Do

For i := Value.GetLowerBound(1) To Value.GetUpperBound(1) Do

If i = 0 Then

TextW.WriteString(Value[i, j] + " ");

Else

TextW.WriteLnDouble(Value[i, j]);

End If;

End For;

End For;

End Sub Put;

 

Public Sub Clear;

Var

TextFile: IFileInfo;

Begin

TextFile := New FileInfo.Attach("c:\Out.txt");

TextFile.Open(FileOpenMode.Create, FileShare.DenyWrite);

End Sub Clear;

End Class MyConsumer;

Данный пример является макросом, содержащим реализацию метода, осуществляющего экспорт данных по пользовательскому алгоритму. Для работы алгоритма предполагается поступление в качестве параметра массива, содержащего два столбца данных. Первый столбец содержит символьные данные, второй - вещественные числа. При экспорте будет производиться вывод данных в текстовый файл "c:\Out.txt". Метод Clear будет осуществлять перезапись данного файла.

См. также:

IDtRecordsetConsumer