TOpenCLMatrix.ValuesToStrings Method

Overload List

#	Signature	Description
1	procedure ValuesToStrings(dstList: TStrings; ListIndex: Integer; Row: Integer; Col: Integer; RowCount: Integer; ColCount: Integer; Delimiter: string; const ReFormat: string; const ImFormat: string);	nvert calling matrix elements, starting with [Row,Col] and converting Len elements to strings.
2	procedure ValuesToStrings(dstList: TStrings; const Delimiter: string; const ReFormat: string; const ImFormat: string);	Converts the content of the matrix Values array to a list of strings.

Overload 1: procedure ValuesToStrings(dstList: TStrings; ListIndex: Integer; Row: Integer; Col: Integer; RowCount: Integer; ColCount: Integer; Delimiter: string; const ReFormat: string; const ImFormat: string);

nvert calling matrix elements, starting with [Row,Col] and converting Len elements to strings.

#	Name	Type
1	dstList	TStrings
2	ListIndex	Integer
3	Row	Integer
4	Col	Integer
5	RowCount	Integer
6	ColCount	Integer
7	Delimiter	string
8	ReFormat	string
9	ImFormat	string

Result: stored in self (calling object)

Remarks:

Vormating real parts with ReFormat, imaginary parts with ImFormat, using the text delimiter Delimiter and store them in aList starting at ListIndex. If aList is not large enough, the method will use the Add method of aList object.

Overload 2: procedure ValuesToStrings(dstList: TStrings; const Delimiter: string; const ReFormat: string; const ImFormat: string);

Converts the content of the matrix Values array to a list of strings.

#	Name	Type
1	dstList	TStrings
2	Delimiter	string
3	ReFormat	string
4	ImFormat	string

Result: stored in self (calling object)

Remarks:

Convert all elements of the calling matrix to strings with formating real parts with ReFormat, imaginary parts with ImFormat, using the text delimiter Delimiter and store them in aList, by using the Add method of TStrings object.

Examples

procedure TForm1.Button1Click(Sender: TObject);
var a,b: TOpenCLMatrix;
begin
    CreateIt(a,b);
    try
        a.SetIt(2,2,False,[1,2,3,4]);
        a.Cos;
        b.Size(a);
        b.SetVal(1);
        a.Add(b);
        Richedit1.Clear;
        Memo1.Clear;
        a.ValuesToStrings(Richedit1.Lines);
        b.ValuesToStrings(Richedit1.Lines);
        a.ValuesToStrings(Memo1.Lines);
        b.ValuesToStrings(Memo1.Lines);
        Memo1.Lines.SaveToFile('C:\Test.txt');
        Memo1.Lines.LoadFromFile('C:\Test.txt');
        a.StringsToValues(Memo1.Lines);
    finally
        FreeIt(a,b);
    end;
end;