Jump to content
Forum Windows-az.com

Memoda axtarış etmək


Ʌüsal

Recommended Posts

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ı\';

 

- 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

Proqramlar telegramda

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ç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...