Memo Nesnesinin istenilen Satirina imceci getirme

[kara_kule06]

Slm Arkadaşlar.

Bir adet memo sesnem ve ve 240 satırdan oluşuyor. Butona tıkladığımda imleci memo nesnesinin istediğim satırına nasıl götürebilirim. Yani o satir seçili olacak.

Kolay Gelsin...

[kadirkurtoglu]

memoda bildiğim kadarıyla satır işaretleme yok. bunun için Listbox bileşeni kullan

Kod: Tümünü seç

listbox1.ItemIndex := ilgili satır no;

ilgili satırı işaretler...

[kara_kule06]

memoda bildiğim kadarıyla satır işaretleme yok. bunun için Listbox bileşeni kullan

İşte bu kötü.



Teşekkürler Kolay Gelsin

[aLonE CoDeR]

Apilerle yapabilirsin.LINEINDEX şeklinde forumda arayabilirsin.

Kolay gelsin.

[cihan]

Kod: Tümünü seç

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

kullanımı

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.SetFocus;
//edit1 den satır numarasini gir
memosatirsec(Memo1,strtoint(edit1.Text)-1) ;
end;

[kara_kule06]

Herkese Teşekkürler.



Kolay gelsin

[Commandx]

Çözülmüştür

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;