Path de bulunan dosyaların isimlerine göre databasede onayla

[delphist]

S.a. Arkadaşlar. c:\resimler klasörü diye bir klasörüm var ve bu klasördeki dosya isimlerine göre stok kartalırm var database de ve database de resmi var şeklinde bir alanım var. Stoktaki ürün isimlerine göre döngüye sokup klasörde o stok kartındaki isimle dosya var ise resmi var alanını E şeklinde update yapmak istiyorum. Bunu nasıl yapabilirim. Klasördeki dosya isimlerine bulmak var mı yok mu olayı...Yardımlarınızı bekliorum. Teşekkürler

[ender_arslanturk]

Merhaba

Benim örneğim basit kaçabilir ama yinede bir örnek

Kod: Tümünü seç

i:integer;
begin
   For i:=0 to Query1.RecordCount-1 Do
   begin
            Query1.Edit;
            try
                  Image1.Picture.LoadFromFile('C:\Resimler\'+Query1Urunadi.Text+'.Bmp');
                  Query1ResimVarmi.Text:='E';
            except
                  Query1ResimVarmi.Text:='H';
            end;
            Query1.Post;
   end;
end;

Kolay gelsin...

[delphist]

Hocam ben dosyayı isim olarak buldurmam ve var mı yok mu görmem lazım. Bu arada resim yazmışım özür dilerim teknik resim olduğu için aklımda kalmış pdf dosyaların uzantısı...Teşekkürler

[fduman]

bkz. Delphi Help "FileExist"

[delphist]

Bu kadar kısa olurda bu kadar açıklayıcı olurmu..Çok teşekkür ederim. Allah razı olsun kardeşim...Teşekkür ediyorum yardımın için...