Forum
Aktif konular
Üyeler
Kurallar
Arama
Delphide Text Dosyasında Arama Yapma Delphide Text Dosyasında Arama Yapma
-
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
-
procedure TForm1.Button1Click(Sender: TObject); var ss:TStrings; begin ss:=TStringlist.create; try ss.LoadFromFile('c:\a.txt'); if( Containstext(ss.Text,'Ali')) then // Pos yerine caseinsensitive olsun diye bunu kullandim, usesa strutils ekle bu fonksion icin ss.Text:=stringreplace(ss.Text, 'Ali' ,'Ayse' ,[rfReplaceAll , rfIgnoreCase]) else ss.Add('Ali sozcugu bulunamadi'); ss.SaveToFile('c:\a.txt'); finally ss.free; end; end; -
eyvallah çok teşekkür ederim Allah razı olsun
-
ForbiddenKing bunu yazdı
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 -
Kolay gelsin Müritler belki sizin için ufak benim için büyük sorum var şu linkte bir döngü yapılmış
http://alquistconsulting.blogspot.com/2006/02/c-fill-treeview-with-sql-data.html
delphi Rad Studio da treeview bölü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(Sender: TObject);
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['StKategoriAd']);
n.SelectedIndex:=form8.ADOQuery1.FieldValues['InKategoriId'];
form8.ADOQuery2.SQL.Clear;
form8.adoquery2.SQL.Text:='select* from kategori where InKategoriIdMain='+form8.ADOQuery1.FieldByName('InKategoriId').AsString;
form8.ADOQuery2.Open;
while not form8.ADOQuery2.Eof do
begin
n2:=Treeview1.Items.AddChild(n,form8.ADOQuery2.FieldValues['StKategoriAd']);
n.SelectedIndex:=form8.ADOQuery2.FieldValues['InKategoriId'];
form8.ADOQuery2.Next;
end;
form8.ADOQuery1.Next;
end;
treeview1.Selected:=n;
end;
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla