In TMemo suchen, und Zeile angeben lassen

[Aenogym]

hi spessi,

du könntest zum beispiel mit einer for-schleife und pos() suchen:

Delphi-Quellcode:

var i: integer;
    iPosition: integer;
begin
  iPosition := -1;

  for i:=0 to memo1.lines.count-1 do
  begin
    if pos('nadel_im_heuhaufen', memo1.lines[i]) <> -1 then
    begin
      iPosition := i;
      break;
    end;
  end;

  if iPosition <> -1 then
    showmessage('Die Nadel wurde in Zeile '+intToStr(i)+' gefunden!');
end;

aeno

edit: genau so, dahead^^