saol Suk1y3n kardes şu delphiyi bana da ögretebilinmi...

DBgird alanlarındaki verileri Excel E aktarma işlemi Kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, comobj, Grids, ComCtrls, ExtCtrls, Buttons; type TForm1 = class OpenDialog1: TOpenDialog; StringGrid1: TStringGrid; Label1: TLabel; Edit1: TEdit; UpDown1: TUpDown; Label2: TLabel; Label3: TLabel; Bevel1: TBevel; BitBtn1: TBitBtn; procedure UpDown1Click ; procedure BitBtn1Click ; private public end; var Form1: TForm1; implementation procedure sh1 ; Var Xlapp1, Sheet:Variant ; MaxRow, MaxCol, X, Y:integer ; str:string; begin Str:=trim(form1. OpenDialog1. FileName); XLApp1 := createoleobject ; //Microsoft Excel 4.0 worksheet XLApp1. Workbooks. open ; form1. UpDown1. Max:=strtoint(XLApp1. WorkSheets. count); form1. Label3. Caption:= XLApp1. WorkSheets. count; Sheet := XLApp1. WorkSheets ; MaxRow := Sheet. Usedrange. EntireRow. count ; MaxCol := sheet. Usedrange. EntireColumn. count; form1. StringGrid1. RowCount:=maxRow+1; form1. StringGrid1. ColCount:=maxCol+1; for x:=1 to maxCol do for y:=1 to maxRow do form1. stringgrid1. Cells :=sheet. cells. item . value; XLApp1. Workbooks. close; end; procedure TForm1. UpDown1Click ; begin sh1(strtoint(edit1. Text)); end; procedure TForm1. BitBtn1Click ; begin if opendialog1. Execute then begin stringgrid1. Visible:=true; edit1. Enabled:=true; edit1. Text:='1'; label1. Enabled:=true; label2. Enabled:=true; label3. Enabled:=true; updown1. Enabled:=true; sh1(1); end; end; end. -

bu bölümde delphi ile yardım istendiginde herkes susuyor...

çok saol kardes forma TOGRENCILISTESI tanımlama hatası veriyor neden kardes...

Kodları Düzeltim...