Memo İçinde Kelime Arama

[Guybrush]

Merhaba. Memo bileşeni içinde yazılı olan bir karakter katarını aratmak istiyorum. Örneğin edit içine aratmak istediğim kelimeyi yazıp butona bastığımda o kelime memo içinde bulunup üzeri çizilmiş olacak. Buna benzer bir şey için nasıl bir kod yazmalıyım. Yardımcı olursanız sevinirim...

[ikut]

Merhaba. Memo bileşeni içinde yazılı olan bir karakter katarını aratmak istiyorum. Örneğin edit içine aratmak istediğim kelimeyi yazıp butona bastığımda o kelime memo içinde bulunup üzeri çizilmiş olacak. Buna benzer bir şey için nasıl bir kod yazmalıyım. Yardımcı olursanız sevinirim...

Merhaba

Dahaiyi yöntemde var ama kısaca

Kod: Tümünü seç

For i := 0 to memo1.lines.count do 
begin
a:Memo1.lines8i];
If Pos(edit1.text,a)> 0 

tamamdır

[sabanakman]

Test etmedim ama bir dene

Kod: Tümünü seç

i:=Pos(Edit1.Text,Memo1.Lines.Text);
if i>0 then begin
  Memo1.SelStart:=i;
  Memo1.SelLength:=Length(Edit1.Text);
end else Memo1.SelLength:=0;

[Trial_Cooder]

Kod: Tümünü seç

var
  st: string;
  i: integer;
begin
  st := 'aranan kelime';
  for i := 0 to memoOutput.Lines.Count - 1 do
  begin
//    Edit1.Text := copy(memoOutput.Text, pos(st, memoOutput.Text), length(st));
    if pos(st, memoOutput.Lines[i]) > 0 then
    begin
      Edit1.Text := copy(memoOutput.Lines[i], pos(st, memoOutput.Lines[i]), length(st));
      if trim(Edit1.Text) <> '' then
        break;
    end;
  end;

[Guybrush]

Teşekkür ederim.

[sdksdk111]

Peki Yazıyı değiştirme işelmi nasıl yaparız ?
Aradığımız kelime Asd diyelim tüm asdleri xsd yapmak için nasıl bir yöntem kullanırız

[fedora]

@sabanakman bu bahsettiginiz sistemde internet üzerindeki bir txt i nasıl cekebiliriz?

[Commandx]

Kod: Tümünü seç

USES
STRUTILS;
procedure memosatirsec(memo : TCustomMemo;satir:integer) ;
begin
   with memo do
   begin
     SelStart := Perform(EM_LINEINDEX, satir, 0) ;
     SelLength := Length(Lines[satir]) ;
   end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  st: string;
  i: integer;
begin
  st := EDIT1.Text; // ARANILAN TEXT
  for i := 0 to memo1.Lines.Count - 1 do
  begin
    if pos(st, memo1.Lines[i]) > 0 then
    begin
memo1.SetFocus;
memosatirsec(Memo1,(I) );
      if trim(Edit1.Text) <> '' then
        break;
    end;
  end;
end;