Find dialog ile arama

22.09.2007, 17:44

Form1: TForm1;
aranan:string;
implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
aranan:=edit1.Text;
FindDialog1.FindText:=aranan;
end;
procedure TForm1.FindDialog1Find(Sender: TObject);
var
arama:string;
begin
with Memo1.Lines do
arama:=aranan;
if arama='' then
ShowMessage('Bulunamadı');
end;

**hawki** · 07.11.2007, 01:54

eyvallah eline sağlık

**fatih38** · 08.11.2007, 01:53

cok yararli bilgi saol

22.09.2007, 17:44	#1
burak25 Guest	Find dialog ile arama Form1: TForm1; aranan:string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin aranan:=edit1.Text; FindDialog1.FindText:=aranan; end; procedure TForm1.FindDialog1Find(Sender: TObject); var arama:string; begin with Memo1.Lines do arama:=aranan; if arama='' then ShowMessage('Bulunamadı'); end;

07.11.2007, 01:54	#2
hawki Ilkokul 1. Sinif	Cevap: Find dialog ile arama eyvallah eline sağlık

08.11.2007, 01:53	#3
fatih38 Anaokulu	Cevap: Find dialog ile arama cok yararli bilgi saol

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder

Find dialog ile arama

Cevap: Find dialog ile arama

Cevap: Find dialog ile arama