memo nesnesinde bulunan sozcugun satirinin secilmesi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
droxee
Üye
Mesajlar: 86
Kayıt: 15 May 2009 04:29

memo nesnesinde bulunan sozcugun satirinin secilmesi

Mesaj gönderen droxee »

Merhabalar kolay gelsin.
Delphi 7 de geliştirdiğim uygulamada formumda bir memo, bir label, bir edit ve bir buton nesneleri var projemde çözemediğim tek sorunum memo içinde arama ile ilgili
1.Aranacak metinin büyük küçük harf duyarlılığını kaldırmayı,
2.Aranıp bulunan metini içeren satırdaki tüm karakterleri edite aktaran kodda
problemler yaşıyorum. Buton kodum şuan bu birçok şey deniyorum konu hakkında bilgisi olan ? :cry:

Kod: Tümünü seç

procedure TFrm_Dosya.BtnClick(Sender: TObject);
var
st: string;
i: integer;
begin
st := Lbl_Sayi.Caption;//Aranacak metin
for i := 0 to Memo1.Lines.Count - 1 do
begin
// Edit1.Text := copy(Memo1.Text, pos(st, Memo1.Text), length(st));
if pos(st, Memo1.Lines[i]) > 0 then
begin
Edt_Sayi.Text := copy(Memo1.Lines[i],);//, pos(st, Memo1.Lines[i]), length(st));
if trim(Edt_Sayi.Text) <> '' then
break;
end;
end;
end; 
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: memo nesnesinde bulunan sozcugun satirinin secilmesi

Mesaj gönderen ertank »

Merhaba, Memo bileşeni içindeki metin örnekleri ve aranan ifade örnekleri paylaşabilir misiniz?
Kullanıcı avatarı
droxee
Üye
Mesajlar: 86
Kayıt: 15 May 2009 04:29

Re: memo nesnesinde bulunan sozcugun satirinin secilmesi

Mesaj gönderen droxee »

Lbl_Sayi.Caption da yazan kelime o da resmi yazı da bulunan 'SAYI :' kelimesi
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: memo nesnesinde bulunan sozcugun satirinin secilmesi

Mesaj gönderen ertank »

droxee yazdı: 25 Eyl 2018 04:39 Lbl_Sayi.Caption da yazan kelime o da resmi yazı da bulunan 'SAYI :' kelimesi
Resmi yazıyı da paylaşmanız mümkün mü?
Kullanıcı avatarı
droxee
Üye
Mesajlar: 86
Kayıt: 15 May 2009 04:29

Re: memo nesnesinde bulunan sozcugun satirinin secilmesi

Mesaj gönderen droxee »

Kod: Tümünü seç

Sayı : 62940678-951.99-E.815
Konu : Spor Müsabakalarının Güvenliği
Belediye Başkanlığına
İlgi : İl Yazı İşleri Müdürlüğünün 06.09.2018 tarihli ve 21008 sayılı yazısı.
İçişleri Bakanlığı İller İdaresi Genel Müdürlüğünün 'Spor Müsabakalarının Güvenliği'
konulu ilgi yazısı ilişikte gönderilmiş olup, belirtilen hususlar ile ilgili tüm tedbirlerin
titizlikle alınması ve uygulamada herhangi bir aksaklığa meydan verilmemesi hususunda;
Bilgi ve Gereğini rica ederim
gibi bir örnek verebilirim benim kodum yazı içindeki 'Sayı :' sözcüğünü buluyor fakat o satırdaki tüm veriyi almalıyım ve büyük küçük harf duyarlılığı olmamalı 'SAYI :' şeklinde de olsa veriyi bulmalıyım.
Kullanıcı avatarı
loaded
Üye
Mesajlar: 122
Kayıt: 12 Eki 2010 09:45
Konum: Konya
İletişim:

Re: memo nesnesinde bulunan sozcugun satirinin secilmesi

Mesaj gönderen loaded »

Aşağıdaki kod, umarım işinizi görür.

Kod: Tümünü seç

function memo_icerisinde_ara(const aranacak_memo:TMemo;aranacak_metin:String):String;
var
  i,ik:integer;
  rc:array[0..6] of String=('ğ','ü','ş','i','ö','ç','ı');
  rnc:array[0..6] of String=('Ğ','Ü','Ş','İ','Ö','Ç','I');
  sms,sm:String;
begin
 sm:=aranacak_metin; for ik:=low(rc) to high(rc) do sm:=StringReplace(sm,rc[ik],rnc[ik],[rfReplaceAll]);sm:=UpperCase(sm);
 for i:=0 to aranacak_memo.Lines.Count-1  do
  begin
    sms:=aranacak_memo.Lines.Strings[i];
    for ik:=low(rc) to high(rc) do sms:=StringReplace(sms,rc[ik],rnc[ik],[rfReplaceAll]);
    sms:=UpperCase(sms);
      If Pos(sm,sms)>0 Then
      begin
      showmessage(inttostr(i+1)+ '. Satırda Bulundu' + #10#13 +aranacak_memo.Lines.Strings[i]); 
      end;
  end;
end;
//memo_icerisinde_ara(Memo1,'saYI');  
Kalk ve işe yarar bir şey yap! Çünkü Allah (c.c.) yeniden başlayanların yardımcısıdır.
Kullanıcı avatarı
droxee
Üye
Mesajlar: 86
Kayıt: 15 May 2009 04:29

Re: memo nesnesinde bulunan sozcugun satirinin secilmesi

Mesaj gönderen droxee »

Yanıt verdiğiniz için teşekkür ederim fakat -'cannot initialize local variables' şeklinde bir hata alıyorum değiştirerek programıma uyarlamaya çalıştım olmadı ayrıca satırdaki veriyi seçtirmiyor?
Kullanıcı avatarı
droxee
Üye
Mesajlar: 86
Kayıt: 15 May 2009 04:29

Re: memo nesnesinde bulunan sozcugun satirinin secilmesi

Mesaj gönderen droxee »

çözdüm ihtiyacı olacak arkadaşlar için kod budur yanıt veren arkadaşlara teşekkürler

Kod: Tümünü seç

var
st: string;
i: integer;
begin
st := <aranacak_metin>
for i := 0 to Memo1.Lines.Count - 1 do
begin
if pos(st, Memo1.Lines[i]) > 0 then
begin
Edt_Sayi.Text := copy(Memo1.Lines[i], pos(st, Memo1.Lines[i]), length(Memo1.Lines[i]));
if trim(Edt_Sayi.Text) <> '' then
break;
end;
end;
end; 
Cevapla