memo nesnesinde bulunan sozcugun satirinin secilmesi

[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 ?

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]

Merhaba, Memo bileşeni içindeki metin örnekleri ve aranan ifade örnekleri paylaşabilir misiniz?

[droxee]

Lbl_Sayi.Caption da yazan kelime o da resmi yazı da bulunan 'SAYI :' kelimesi

[ertank]

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ü?

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

[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');  

[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?

[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;