Drkb Online - hogyan lehet létrehozni egy táblázatot egy szót - vagyis
Funkció CreateTable (numrows, NumColumns: integer;
var index: integer): logikai;
var sel_: variáns;
kezdődik
CreateTable: = true;
megpróbál
sel _: = W.selection;
W.ActiveDocument.Tables.Add (Tartomány: = sel_.Range, numrows: = numrows,
NumColumns: = NumColumns);
index: = W.ActiveDocument. Tables.Count;
kivéve
CreateTable: = false;
végén;
Vége;
Először az üzemeltető meghatározza a kiemelés vagy a kurzor pozícióját, egy második üzemeltető létrehoz egy táblázatot, és visszaadja a harmadik számú táblát a dokumentum vagy a sorszám az újonnan létrehozott táblázatot, amely felhasználható további funkciók eléréséhez ebben a táblázatban.
A függvény létrehoz egy táblázatot bármilyen méretű, de egy korrekt ábrázolása adatok meghatározására van szükség egy bizonyos méretet a sorok és oszlopok. Ahhoz, hogy a méret az asztal vagy a sort (oszlop), hogy hozzáférjenek az ilyen tulajdonságok tábla oszlopok és sorok gyűjtemények (a listát a sorok és oszlopok), amelyen keresztül hozzáférhet egy adott sor vagy (u) oszlop sejteket és paraméterek (sor, oszlop). Ehhez használjuk ActiveDocument.Tables.Item tárgy (asztal), ahol az asztalnál - az asztal számát a dokumentumban. Készítsen egy függvényt, amely meghatározza a szélessége és magassága a táblázat összes sejteket.
Funkció SetSizeTable (táblázat: integer; RowsHeight,
ColumnsWidth: real): logikai;
kezdődik
SetSizeTable: = true;
megpróbál
W.ActiveDocument.Tables.Item (táblázat) .Columns.Width: = ColumnsWidth;
W.ActiveDocument.Tables.Item (táblázat). Rows.Height: = RowsHeight;
kivéve
SetSizeTable: = false;
végén;
Vége;
Hasonlóképpen, tudjuk határozni a magassága minden sorban vagy (ii) a szélessége bármely oszlop választani. Ahhoz, hogy a cella mérete, és a sorok gyűjteménye, oszlopok objektum táblája. Ahhoz, hogy kihasználják ezeket a funkciókat a mi alkalmazás hozza létre az alábbi funkciót.
Funkció SetHeightRowTable (táblázat, Row: integer;
RowHeight: real): logikai;
kezdődik
SetHeightRowTable: = true;
megpróbál
W.ActiveDocument.Tables.Item (táblázat) .Rows.item (Row) .Height: = RowHeight;
kivéve
SetHeightRowTable: = false;
végén;
Vége;
Funkció SetWidthColumnTable (táblázat, oszlop: integer;
ColumnWidth: real): logikai;
kezdődik
SetWidthColumnTable: = true;
megpróbál
W.ActiveDocument.Tables.Item (táblázat) .Columns.
Tétel (oszlop) .Width: = ColumnWidth;
kivéve
SetWidthColumnTable: = false;
végén;
Vége;
Talán nem csak a méret a táblázatban, hanem meghatározza (olvasni) a méretei a sejtek az asztalra. Ehhez használja ugyanazt a gyűjteménye tárgyak és tulajdonságait az asztalra, mint a SetSizeTable funkció, de kevés változás a hazai szolgáltatók, oly módon, hogy a visszatérő változók RowsHeight és ColumnsWidth rögzíti értékeit a sorok és oszlopok a táblázat méretét.
Funkció GetSizeTable (táblázat: integer; var RowsHeight,
ColumnsWidth: real): logikai;
kezdődik
GetSizeTable: = true;
megpróbál
ColumnsWidth: = W.ActiveDocument. Tables.Item (táblázat) .Columns.Width;
RowsHeight: = W.ActiveDocument. Tables.Item (táblázat) .Rows.Height;
kivéve
GetSizeTable: = false;
végén;
Vége;
Azt is figyelembe kell venni, és a méret a sorban vagy oszlopban a kiválasztási, ez elegendő ahhoz, hogy használja a sorok gyűjtemény, Oszlopok táblázat (Tables.Item (táblázat)) az objektum.
A következő lépés a kialakulása egy munkafüzet-dokumentum határozza meg a belépési szöveges információ a kiválasztott cellába. Az egyik módja annak, hogy rekord eléréséhez Szöveg mezőben a cellában, de ebben az esetben a szöveg van írva nem közvetlenül, hanem a tartomány objektumot a táblázat cella. SetTextToTable funkció elvégzi a felvételt.
Funkció SetTextToTable (táblázat: integer; Sor, Oszlop: integer;
szöveg: string): logikai;
kezdődik
SetTextToTable: = true;
megpróbál
W.ActiveDocument.Tables.Item (táblázat) .Columns.Item (oszlop).
Cells.Item (Row) .Range.Text: = text;
kivéve
SetTextToTable: = false;
végén;
Vége;
És az utolsó fellépés, amit végre kell hajtania az asztalra, hogy hozzon létre egy egyszerű táblázatkezelő dokumentumok, társulása sejteket. Ehhez használja a módszert objektum Merge Cell (cella). Az első cella társítás funkciója, a kezelő visszatér a mutatót az objektum - a végső sejt (CEL). A második operátor egyesíti az eredeti sejt ROW1, Column1 véges cellatáblázatot, amelynek koordinátáit a már meghatározott és ROW2, COLUMN2.
Funkció SetMergeCellsTable (táblázat: integer; ROW1,
Column1, ROW2, COLUMN2: integer): logikai;
var Cel: variáns;
kezdődik
SetMergeCellsTable: = true;
megpróbál
Cel: = W.ActiveDocument.Tables.I TEM (táblázat) .Cell (ROW2, COLUMN2);
W.ActiveDocument.Tables.Item (táblázat). Cell (ROW1, Column1) .Merge (Cel);
kivéve
SetMergeCellsTable: = false;
végén;
Vége;
Mi jár a végső szakaszban - a dokumentum elkészítésében.
Ehhez az összes megadott e részét a funkciót a cikk egyesítjük az előzőleg létrehozott és beköltözik az újonnan létrehozott könyvtár eljárások és függvények. Például, akkor MyWord.pas fájlt a felületen részén ismertetésre kerülő fejlécében minden funkciót, és a végrehajtási szakaszban - függvények maguk (a továbbiakban fogja használni ezt a könyvtárat). Ne felejtsük el, hogy helyezzen be egy sor végrehajtása után használja ComObj; var W: variáns;.
Hozzon létre egy új projektet egy szoftver modul, amely hivatkozik a mi könyvtár használja MyWord;. A nyomtatványon helyet a gombra, és nyomja meg a rutin, adja meg az alábbi kódot.