Benim geliştirmekte olduğum uygulama içersinde belirtilen bir excel dosyası içerisinde arama ve aranan kelimenin bulunması halinde bulunan satırdaki diğer hücreleri bir memo değişkenine aktarmak istiyorum.
Freeware Delphi Components & Utilities (http://www.angusj.com/delphi/) adresinden temin ettiğim Search Components - Version 2.1 isimli bileşen ile belirliten excel dosyası içersinde arama yaptırabiliyorum, ama sonuçlar var yok şeklinde geliyor var ise kaç tane olduğunu görebiliyorum. benim yapmak istediğimse bulduğu satırdaki diğer bilgileri de okumak.
Bu işlem için kullandığım kod aşagıdadır
Kod: Tümünü seç
var
i,cnt: integer;
begin
//excel dosyasını seç
if not OpenDialog1.execute then
exit;
FileSearch.Filename:=OpenDialog1.filename;
//aranacak ifadeyi gir
FileSearch.pattern:=InputBox('Search for ...','',FileSearch.pattern);
if FileSearch.pattern='' then
exit;
//do the search ...
cnt:=0;
//bulunan ilk kayda git
i:=FileSearch.Findfirst;
// dosya sonuna kadar ara
while i<>POSITION_EOF do
begin
inc(cnt);
i:=FileSearch.FindNext;
end;
//sonucu aktar
memo1.clear;
memo1.Lines.add(format('Searching the file "%s" ...', [OpenDialog1.filename]));
memo1.Lines.add(format('%d occurrences of "%s" found', [cnt,FileSearch.pattern]));
STOK_KODU
STOK_ADI
STOK_ACIKLAMASI
Stok koduna göre arayacak, bulduğu stok konunun adını ve açıklamasını bir memo nesnesine aktaracak
Yardımlarınız için şimdiden teşekkür ederim.
