Анықтамалық ақпараттық жүйесін құру
жүктеу/скачать 192.89 Kb.
|
- Бұл бет үшін навигация:
- Page 99 Ф - ОБ -001/033
| Page 98
Ф-ОБ-001/033 99 Word.AppShow; end; ////////////////////////////////////////////////////////// Procedure TMSWord.InsertText(Text: string); begin Word.Insert(Text); end; ////////////////////////////////////////////////////////// Procedure TMSWord.New; begin Word.FileNew; Word.Filepagesetup(2,1,60,60,60,60); end; ////////////////////////////////////////////////////////// Procedure TMSWord.Find(a:string); begin word.paraup(500,0); Word.EditFind(a); end; Procedure TMSWord.Replace(a,b:string); begin word.paraup(500,0); Word.EditReplace(a,b,0,0,0,0,0,1,0,1,0); end; ////////////////////////////////////////////////////////// Procedure TMSWord.InsertCenterText(Text: string); begin Word.CenterPara; Word.Insert(Text); Word.LeftPara; end; ////////////////////////////////////////////////////////// Procedure TMSWord.InsertPicture(FileName: string); begin Word.InsertPicture(FileName); end; ////////////////////////////////////////////////////////// Procedure TMSWord.InsertTable(Columns, Attributes: integer); begin Word.TableInsertTable(0,Columns,2,50,0,Attributes); end; //////////////////////////////////////////////////////////
Ф-ОБ-001/033 100 Procedure TMSWord.InsertTableHead( Width: array of integer; Names: array of string); var i: integer; begin Word.TableColumnWidth(Width[0]); Word.Insert(Names[0]); for I := 1 to High(Names) do begin Word.CharRight; Word.TableColumnWidth(Width[i]); Word.Insert(Names[i]); end; Word.EndOfColumn; end; ////////////////////////////////////////////////////////// procedure TMSWord.InsertTableLine(Names: array of string); var i: integer; begin Word.TableInsertRow; Word.Insert(Names[0]); for I := 1 to High(Names) do begin Word.CharRight; Word.Insert(Names[i]); end; Word.EndOfColumn; end; ////////////////////////////////////////////////////////// procedure TMSWord.EndOfTable; begin Word.TableDeleteRow; Word.Insert(chr(13)); end; ////////////////////////////////////////////////////////// Procedure TMSWord.Close; begin // Word.FileSave; Word.AppClose; end; ////////////////////////////////////////////////////////// Procedure TMSWord.Save;
жүктеу/скачать 192.89 Kb. Достарыңызбен бөлісу:
|