Delphi Forum

Bu şekilde yapmak gerekiyormuş..İnsana kafayı yedirtir bu durumlar,
Uses kısmına activex i eklemeyi unutmayın.

Aynı hatayla karşılaşan arkadaşlar umarım sorunlarını çözerler.

Merhaba arkadaşlar Thread konusunu projemde kullanmaya karar vedim, çünkü uzun işlemler yapıyor ve bilgiseyarda başka işlem yapmasına engel oluyordu programım..

Yazdığım kod da
TestEkrani.Lines.LoadFromFile('c:\Exl Dosyaları' + '\' + inttostr(i) + '.txt');

Şekildeki fonksiyondan değer döndürüyor ...

Teşekkür ederim. Onda var biliyorum sadece Rx in var mı diye merak etmiştim..Artık jediden kullanırız bizde.

Merhaba arkadaşlar RxRichEdit 'in delphi 5 e kadar sürümü var acaba delphi 7 içinde var mı? Bilgisi olan arkadaşların yorumlarını bekliyorum? Teşekkür ederim.

Merhaba arkadaşlar...Veritabanımda Tablo1 adlı Alan var ve BLOB bir alan bu..

Bu alanın içerisinde txt uzantılı dosyanın verisi var...Ben sorgu ile bu alanın

içerisinde düzenleme yapmak istiyorum. Mesela alan içerisinde

'RAPORLA İLGİLİ BELGELER' yazısının geçtiği yerden sonrasını silmek istiyorum ...

Merhaba arkadaşlar...Veritabanımda Tablo1 adlı Alan var ve BLOB bir alan bu..

Bu alanın içerisinde txt uzantılı dosyanın verisi var...Ben sorgu ile bu alanın

içerisinde düzenleme yapmak istiyorum. Mesela alan içerisinde

'RAPORLA İLGİLİ BELGELER' yazısının geçtiği yerden sonrasını silmek ...

- Dosyaların isimlerine numara verdim...1.txt, 2.txt
- sonra bu txt dosyalarının bır dongu ıle varlıgını teyitledim
- Aynı dongu ıle bu dosylardan kactane oldugunu buldum:D

buldugum sonuc benım en son dosyamdı..

- birdahaki veritabanına atacagım dosyalar asla karısmayacak, bu txt dosyalarının ...

Ben farklı bir algoritma kullanarak çözdüm ama bu problem başka zamanda karşıma çıkabilirdi...ARMADILLO sen tam benim istediğim sonucu vermişsin, verdiğin kodu inceledim denemedim ama bu şekilde çalışacaktır...bir döngünün içerisinde bu SP çalıştıra bilir ve sorumdaki genellemeyi yapabilirim... Seri ...

select * from yeni1 where yeni1.deneme like 'i%'

i=1,2,3, ... ,n

Arkadaşar yeni1 diye bir tablom var ve deneme diye bu tabloaya ait bir alan var... Orada gördüğünüz ' i ' harfi ile oranın i ye bağlı değiştiğini anlatmaya çalıştım..mesela i=1 için

select * from yeni1 where yeni1.deneme like '1 ...

BU şekilde yaptım...Daha mantıklı bir yolu var mı?
var
MyList:TstringList;
begin
MyList :=TStringList.Create;
try
// yükleme
MyList.loadfromfile('c:\denemetext.txt');
// kaydetme
IBTable1.Insert;
IBTable1BLOB.Value := MyList.Text;
IBTable1.Post;
IBTable1.Refresh;
finally
MyList.Free ...

mkysoft Söylediğiniz şekilde aramalarımı yaptım ama istediğim sonuca ulaşamadım...Eminim çok kolaydır ama takıldık bir kere:D Yardımlarınızı bekliyorum

Arkadaşlar basit bir detayda takıldım...Bilgiseyarımda bulunan txt uzantılı dosyayı veritabanına nasıl kaydedebilirim:D Forumda aradım ama bulamadım.Yardımlarınız için şimdiden teşekkür ederim.
Veritabanı firebird.

Öncelikle generatorunuzu sıfırlayın...İbexbert den bunu yapabılırsınız...Sonra gen_ID nin 1 er li arttırdıgınızdan emin olun...Ozaman düzelecektir.

Generatoru sıfırladıkdan sonra f9 'a basın sonra triger nızı açıp F9 a basın hatanız düzelecektir...Yanlış anlamadıysam:D

Saol Muharrem abi, öğrenmek için güzel bir örnek.

procedure TForm1.Button1Click(Sender: TObject);
var
TitleName ,a: string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
bulunan:TSearchRec;
dosya:String;
WordApp : OleVariant;
Range ...