Ʌüsal Konu tarihi: 12 Şubat 2012 Paylaş Konu tarihi: 12 Şubat 2012 Forma 1 ədəd Memo 1 ədə Button 3 ədəd Textbox 1 ədəd Label əlavəl edin. Button klik edin və aşağıdakı kodu daxil edin var edet, say : Integer; begin edet := 0; for say := 0 to Memo1.Lines.Count - 1 do if Pos(Edit1.Text , memo1.Lines.Strings[say]) > 0 then inc(edet); Label1.Caption := IntToStr(edet)+ \' - Ədəd tapıldı\'; 3.jpg Alıntı - Laptop ve Desktop Anakartlarin temiri - BIOS yazilmasi - Sifreli SuperUser BIOS-larin silinmesi - Kicik chiplerin deyisidrilmesi - BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s) Link to comment Share on other sites More sharing options...
farid.93 Mesaj tarihi: 12 Şubat 2012 Paylaş Mesaj tarihi: 12 Şubat 2012 tewekkur Alıntı Link to comment Share on other sites More sharing options...
zeus Mesaj tarihi: 12 Şubat 2012 Paylaş Mesaj tarihi: 12 Şubat 2012 Çox sağol Alıntı Link to comment Share on other sites More sharing options...
Recommended Posts
Sohbete katıl
Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.