|
11-21-2006, 03:45 AM
|
#1 (permalink) |
|
Banned
 
|
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; |
|
    
|
 |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | UslanmaM | Cevaplar | Son Mesaj |
| Bekaretini Kaybetmiş Kız Dialog | adminkral | Mizah | 1 | 12-30-2006 10:24 PM |
| Germans find radiation linked to Litvinenko contact (Reuters) | USLANMAM | World News | 0 | 12-09-2006 04:40 PM |
| Germans find radiation linked to Litvinenko contact (Reuters) | USLANMAM | World News | 0 | 12-09-2006 02:50 PM |
| Study says bees can find explosives (AP) | USLANMAM | National News | 0 | 12-08-2006 09:20 PM |
| Meeting with the department of religious affairs is a message for dialog | USLANMAM | National News | 0 | 11-17-2006 02:40 AM |
Normal
