Επισυνάπτει έναν Πίνακα BIFF8 (Excel ListObject) σε μια περιοχή κελιών, επιστρέφοντας το νέο αντικείμενο
TXLSTable ώστε να μπορούν να ρυθμιστούν πρόσθετες ιδιότητες (
StyleName, σημαίες εναλλαγής γραμμών,
TotalsRowShown) πριν την αποθήκευση. (Διαθέσιμο από την v2.33.0.)
Σύνταξη
function AddTable(
const AName, ARange: WideString;
AColumns: TStrings):
TXLSTable;
| AName |
WideString. Το όνομα πίνακα structured-reference που εμφανίζεται στο Name Box του Excel, π.χ. 'SalesTable'. Γίνεται τόσο Name όσο και DisplayName στο επιστρεφόμενο αντικείμενο |
| ARange |
WideString. Η περιοχή κελιών που καλύπτει το Table σε σημειογραφία A1, π.χ. 'A1:D10'. Η πρώτη γραμμή της περιοχής αντιμετωπίζεται ως γραμμή κεφαλίδας |
| AColumns |
TStrings. Κείμενο κεφαλίδας ανά στήλη. Πρέπει να περιέχει ακριβώς τόσες εγγραφές όσες και το πλάτος της περιοχής |
Παρατηρήσεις
Ο νέος πίνακας προστίθεται στη συλλογή
Tables του φύλλου εργασίας. Η
StyleName προεπιλέγεται σε
'TableStyleMedium2' και το
ShowRowStripes σε True
Αυτό το παράδειγμα γράφει ένα τετράστηλο εύρος περιοχών πωλήσεων δεσμευμένο ως Πίνακας στο A1:D10
Παράδειγμα
var
cols: TStringList;
begin
cols := TStringList.Create;
try
cols.Add('Region');
cols.Add('Product');
cols.Add('Quarter');
cols.Add('Revenue');
Sheet.AddTable('SalesTable', 'A1:D10', cols);
finally
cols.Free;
end;
Δείτε επίσης