Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: StringGriddeki Verilerin Word Dökümanına Aktarmak
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

StringGriddeki Verilerin Word Dökümanına Aktarmak

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
turknetyazilim Açılır Menü Göster
Moderator Group
Moderator Group
Simge

Kayıt Tarihi: 18.Ocak.2008
Bulundugu Yer: Balıkesir
Online: Sitede Değil
Gönderilenler: 214
  Alıntı turknetyazilim Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: StringGriddeki Verilerin Word Dökümanına Aktarmak
    Gönderim Zamanı: 07.Kasim.2008 Saat 11:32

uses

  ComObj;

procedure TForm1.Button1Click(Sender: TObject);

var

  WordApp, NewDoc, WordTable: OLEVariant;

  iRows, iCols, iGridRows, jGridCols: Integer;

begin

  try

    // Create a Word Instance

    // Word Instanz erzeugen

    WordApp := CreateOleObject('Word.Application');

  except

    // Error...

    // Fehler....

    Exit;

  end;

 

  // Show Word

  // Word anzeigen

  WordApp.Visible := True;

 

  // Add a new Doc

  // Neues Dok einfügen

  NewDoc := WordApp.Documents.Add;

 

  // Get number of columns, rows

  // Spalten, Reihen ermitteln

  iCols := StringGrid1.ColCount;

  iRows := StringGrid1.RowCount;

 

  // Add a Table

  // Tabelle einfügen

  WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);

 

  // Fill up the word table with the Stringgrid contents

  // Tabelle ausfüllen mit Stringgrid Daten

  for iGridRows := 1 to iRows do

    for jGridCols := 1 to iCols do

      WordTable.Cell(iGridRows, jGridCols).Range.Text :=

        StringGrid1.Cells[jGridCols - 1, iGridRows - 1];

 

  // Here you might want to Save the Doc, quit Word...

  // Hier evtl Word Doc speichern, beenden...

 

  // ...

  

  // Cleanup...

  WordApp := Unassigned;

  NewDoc := Unassigned;

  WordTable := Unassigned;

end;

Not : Kod Alıntıdır.

Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,109 Saniyede Yüklendi. [power by : WebWiz]