Btgunluk.com

procedure TForm1.btnDosyaSecClick(Sender: TObject); var   Excel, kitap, sayfa: variant;   i,j,k, yer: integer;   tut: string; begin   //Excel nesnesi oluştur   Excel := CreateOleObject('Excel.Application');   //Excel kitabı ekranda görülmesin   Excel.visible:=false;   try     if fileexists(MmoLog.Lines[0]) then //Adı belirtilen dosya varsa     begin       //adı verilen kitabı aç       kitap:=Excel.Workbooks.Open(MmoLog.Lines[0]);       //birinci sayfayı seç       sayfa:= kitap.worksheets[1];       mmoLog.Clear;       //Verilen aralıktaki tüm hücrelere bakmak için döngü       for j:=strtoint(edtSutunBaslangic.text) to strtoint(edtSutunBitis.text) do       for i:=strtoint(edtSatirBaslangic.text) to strtoint(edtSatirBitis.text) do       begin         k:=1;         tut:='';         //Sayfada adresi verilen hücredeki değeri al         tut:=sayfa.Cells[i, j].Value;         yer:= DizidekiYeriniBul(tut);         if (yer>0) and (tut<>'') then         begin           tut:=sayfa.Cells[i+k, j].Value;           mmoLog.Lines.Add(bilgi[1,yer]+': '+tut);           bilgi[2,yer]:=tut;           repeat             //bulunan sütun başlığının altındaki 2. satırdan itibaren,             //boş olana kadar diğer satırlara da bak. Bilgi varsa al.             inc(k);             tut:=sayfa.Cells[i+k, j].Value;             if trim(tut)='' then break             else             begin               mmoLog.Lines.text:=mmoLog.Lines.text+' '+tut;               bilgi[2,j]:=bilgi[2,j]+' '+tut;             end;           until trim(tut)='';         end;       end;       ShowMessage('İşlem bitti');     end     else ShowMessage('Dosya bulunamadı!');   finally     // Excel dosyası kapatılıyor.     if not VarIsEmpty(Excel) then     begin         Excel.DisplayAlerts:= False;  //Excel mesajlarını görünteleme         Excel.Quit;         Excel := Unassigned;     end;   end; end;