memo içi arama.

[maqro]

s.a

memodaki bir yazının içinde. mesela "delphi" yazısını arayıp. o yazıya kadar olan kısımı nasıl silerim.

[Muhendiker]

A.s

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
Ara:Integer;
begin
Ara:=Pos('Delphi',Memo1.Text);// Pos(Aranacak_Metin,Kaynak_Metin) 
if Ara>0 then  
  begin
    Memo1.Text:=Copy(Memo1.Text,Ara,Length(Memo1.Text)-Ara);
  end
  else
  ShowMessage('Bulunamadı!!!');
end;

Kolay gelsin

[maqro]

hocam teşekkür ederim cafeden giriyorum deneme imkanım olmadı şuan.

ilerde yaparıdma çalışır konyu unuturum:) teşekkür etmedi adam demeyesin :p