Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
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 будет осуществлять перезапись данного файла.
См. также: