würde evtl eine TListbox gehen, oder brauchst du die Zeilen editierbar? dort gehst du die Zeilen durch und brauchst nur den itemindex zu setzen.
evtl. hilft dir das:
http://www.swissdelphicenter.ch/de/showcode.php?id=439
daraus hab ich mal diese Funktion gebastelt:
Delphi-Quellcode:
procedure selectline(memo:TMemo;line:integer);
begin
memo.SelStart := memo.Perform(EM_LINEINDEX, line-1, 0);
memo.Perform(EM_SCROLLCARET, 0, 0);
memo.sellength:=length(Memo.lines.strings[line-1]);
memo.SetFocus;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
selectLine(memo1,2);
end;
HTH Frank