VectorInt.ValuesToStrings Method

Overload List

#	Signature	Description
1	procedure ValuesToStrings(const dstList: TStrings; const Align: TFixedTextAlign; const Headers: Boolean; const ColumnWidth: Integer);	Converts the content of the Values array of the calling vector to a list of strings.
2	procedure ValuesToStrings(const dstList: TStrings; ListIndex: Integer; Index: Integer; Len: Integer; const Align: TFixedTextAlign; const Headers: Boolean; const ColumnWidth: Integer);	Convert elements from Index to Index+Len-1 of the calling vector to strings.

Overload 1: procedure ValuesToStrings(const dstList: TStrings; const Align: TFixedTextAlign; const Headers: Boolean; const ColumnWidth: Integer);

Converts the content of the Values array of the calling vector to a list of strings.

#	Name	Type
1	dstList	TStrings
2	Align	TFixedTextAlign
3	Headers	Boolean
4	ColumnWidth	Integer

Result: stored in self (calling object)

Remarks:

Converts all elements of the calling vector to strings with specified formating and stores them in dstList, by using the Add method of TStrings object. Values are appended to existing content of dstList. Set Equidistant to True, if you are using fixed width font and need to have the text right aligned.

Performance note:
This routine will be exceedingly slow, if TRichEdit.Lines or TMemo.Lines are passed as a parameter for dstList. Use TStringList or StringList types and then call TMemo.Lines.AddStrings(yourList) for best results.

Examples

procedure TForm1.Button1Click(Sender: TObject);
var a,b: TVecInt;
begin
    CreateIt(a,b);
    try
        a.SetIt([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;

See Also: VectorInt.StringsToValues

Overload 2: procedure ValuesToStrings(const dstList: TStrings; ListIndex: Integer; Index: Integer; Len: Integer; const Align: TFixedTextAlign; const Headers: Boolean; const ColumnWidth: Integer);

Convert elements from Index to Index+Len-1 of the calling vector to strings.

#	Name	Type	Description
1	dstList	TStrings
2	ListIndex	Integer
3	Index	Integer	start index
4	Len	Integer	element count
5	Align	TFixedTextAlign
6	Headers	Boolean
7	ColumnWidth	Integer

Result: stored in self (calling object)

Remarks:

Store values in dstList starting at ListIndex. If dstList is not large enough, the method will use the add method of dstList object. Set Equidistant to True, if you are using fixed width font and need to have the text right aligned.