Kolay gelsin Müritler belki sizin için ufak benim için büyük sorum var şu linkte bir dngü yapılmış http://alquistconsulting.blogspot.com/2006/02/c-fill-treeview-with-sql-data.html delphi Rad Studio da treeview blümünde bunu yapabiliyoruz ama benim kodlarım çalışmıyor bununla uğraşan yapan arkadaslarımız var mı bir sorayım dedim bunu gibi altalta kategori oluştura bilir miyiz yardımlarınızı bekliyorum kodum alt tarafta procedure TForm11. FormShow ; var i:TListItem; begin TreeViewGuncelle(Treeview1); form8. adoquery2. SQL. Clear; form8. adoquery2. SQL. Text:='Select from kategori'; form8. adoquery2. Open; while not form8. adoquery2. Eof do begin form8. adoquery2. Next; end; form8. adoquery2. SQL. Clear; end; procedure TreeViewGuncelle(Treeview1:TTreeView); var n, n2:TTreeNode; begin TreeView1. Items. Clear; form8. ADOQuery1. SQL. Text:='select from kategori where InKategoriIdMain=0'; form8. ADOQuery1. Open; n:=nil; while not form8. ADOQuery1. Eof do begin n:=treeview1. Items. Add(treeview1. Selected, form8. ADOQuery1. FieldValues ); n. SelectedIndex:=form8. ADOQuery1. FieldValues ; form8. ADOQuery2. SQL. Clear; form8. adoquery2. SQL. Text:='select from kategori where InKategoriIdMain='+form8. ADOQuery1. FieldByName . AsString; form8. ADOQuery2. Open; while not form8. ADOQuery2. Eof do begin n2:=Treeview1. Items. AddChild(n, form8. ADOQuery2. FieldValues ); n. SelectedIndex:=form8. ADOQuery2. FieldValues ; form8. ADOQuery2. Next; end; form8. ADOQuery1. Next; end; treeview1. Selected:=n; end; respects 4G Bilişim Mehmet Sait DAŞ Software Programmer www.4gbilisim.com www.facebook.com/4gbilisim

eyvallah çok teşekkür ederim Allah razı olsun İnancımı Tamamen Kaybetmektense Birşeylere İnanıp Yanılmayı Tercih Ederim

eyvallah çok teşekkür ederim Allah razı olsun Şeyh lan o :\ mahalle bakkalı değil karakutu tarafından 23/Mar/13 01:03 tarihinde düzenlenmiştir Mevzu derin | Papikolas Planet

merabaler ; delphi ile masaüstünse bulunan a. txt dosyasının içindeki rneğin Ali yazan yerleri Ayşe ile değiştirmek istiyorum ve eğer Ali yoksa a. txt nin en altına Ali kelimesi bulunamadı yazsın istiyorum. Bunu nasıl yapmam gerekiyor bilgisi olan var mı? ilgilenenlere şimdiden teşekkürler İnancımı Tamamen Kaybetmektense Birşeylere İnanıp Yanılmayı Tercih Ederim

procedure TForm1. Button1Click ; var ss:TStrings; begin ss:=TStringlist. create; try ss. LoadFromFile ; if( Containstext then // Pos yerine caseinsensitive olsun diye bunu kullandim, usesa strutils ekle bu fonksion icin ss. Text:=stringreplace else ss. Add ; ss. SaveToFile ; finally ss. free; end; end; Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!