Overload List
| # | Signature | Description |
|---|---|---|
| 1 | procedure ValuesToStrings(const dstList: TStrings; const ListIndex: Integer; const Row: Integer; const Col: Integer; const RowCount: Integer; const ColCount: Integer; const Delimiter: string; const Align: TFixedTextAlign; const Headers: Boolean; const ColumnWidth: Integer); | Convert calling matrix elements, starting with [Row,Col] and up to [Row+RowCount-1,Col+ColCount-1] elements to strings. |
| 2 | procedure ValuesToStrings(const dstList: TStrings; const Delimiter: string; const Align: TFixedTextAlign; const Headers: Boolean; const ColumnWidth: Integer); | Converts the content of the matrix Values array to a list of strings. |
Overload 1: procedure ValuesToStrings(const dstList: TStrings; const ListIndex: Integer; const Row: Integer; const Col: Integer; const RowCount: Integer; const ColCount: Integer; const Delimiter: string; const Align: TFixedTextAlign; const Headers: Boolean; const ColumnWidth: Integer);
Convert calling matrix elements, starting with [Row,Col] and up to [Row+RowCount-1,Col+ColCount-1] elements to strings.
| # | Name | Type | Description |
|---|---|---|---|
| 1 | dstList | TStrings | |
| 2 | ListIndex | Integer | |
| 3 | Row | Integer | |
| 4 | Col | Integer | |
| 5 | RowCount | Integer | |
| 6 | ColCount | Integer | |
| 7 | Delimiter | string | |
| 8 | Align | TFixedTextAlign | |
| 9 | Headers | Boolean | |
| 10 | ColumnWidth | Integer |
Result: stored in self (calling object)
Use text Delimiter for columns and store the resulting strings in aList starting at ListIndex. If aList is not large enough, the method will use the Add method of aList object. Existing items will be overwritten. Set Align to have columns aligned left or right when using fixed width font (like Courier New). Specifiy Headers to be "true", if row and column labels are to be printed.
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.
Overload 2: procedure ValuesToStrings(const dstList: TStrings; const Delimiter: string; const Align: TFixedTextAlign; const Headers: Boolean; const ColumnWidth: Integer);
Converts the content of the matrix Values array to a list of strings.
| # | Name | Type | Description |
|---|---|---|---|
| 1 | dstList | TStrings | |
| 2 | Delimiter | string | |
| 3 | Align | TFixedTextAlign | |
| 4 | Headers | Boolean | |
| 5 | ColumnWidth | Integer |
Result: stored in self (calling object)
Convert all elements of the calling matrix to strings with text delimiter Delimiter and store them in aList, by using the Add method of TStrings object. Set Align to have columns aligned left or right when using fixed width font (like Courier New). Specifiy Headers to be "true", if row and column labels are to be printed.
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.
procedure TForm1.Button1Click(Sender: TObject);
var a,b: TMtxInt;
begin
CreateIt(a,b);
try
a.SetIt(2,2,[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;