In TMemo suchen, und Zeile angeben lassen

[Spessi]

Hi,
hoffe ich bin hier in der richtigen Sparte..
Hab das Problem, dass ich was in einer TMemo suchen muss (z.B. das Wort "Test", wenn der Inhalt der Memo "AbcTestCba" ist) und dazu noch die Zeile wissen muss, in der sich das gefunden Wort befindet. Hab im Forum schon gesucht und was mit Pos gefunden, aber ich glaube, dass ist nicht das, was ich benötige..

Hoffe ihr könnt mir helfen, danke..

[dahead]

du gehst jede Zeile des Memos mit einer For Schleife durch. Dann prüfst du das Vorhandsein via Pos. Falls gefunden, ist die Zeile deine Schleifen Variable.

[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^^

[Spessi]

danke für die schnelle hilfe, funktioniert wunderbar :)