IDtRecordsetConsumer.Put

Copy example

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;
        TextW.Encoding := CodePage.UTF8;
        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;
        TextW.Flush;
    End Sub Put;

    Public Sub Clear;
    Var
        TextFile: IFileInfo;
    Begin
        TextFile := New FileInfo.Attach("c:\Out.txt");
        TextFile.Open(FileOpenMode.Create, FileShare.DenyWrite);
        Dispose TextFile;
    End Sub Clear;
End Class MyConsumer;