Søge i en tekst fil....

Jeg har spurgt om det her 2 gange før tror jeg men har ALDRIG fået det til at virke.. Hvordan laver man en helt enkel søgning i en tekst fil , et memo, en Listbox, en richedit osv.. Det er lige meget hvilken af de ovenstående der skal søges i.
Søgningen skal kunne finde dele af en linie og så fremhæve hele linien eller gemme linien i en string eller lignenende..
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Kode 

procedure Search(SearchFor: String; SIn: TStrings; var SOut: TStringList);
var
  I, J: Integer;
begin
  for I := 0 to SIn.Count - 1 do begin
    J := Pos(SearchFor, SIn.Strings[I]);
    if J <> 0 then
      SOut.Add(SIn.Strings[I]);
  end;
end;

Jeg har spurgt om det her 2 gange før tror jeg men har ALDRIG fået det til at virke.. Hvordan laver man en helt enkel søgning i en tekst fil , et memo, en Listbox, en richedit osv.. Det er lige meget hvilken af de ovenstående der skal søges i.
Søgningen skal kunne finde dele af en linie og så fremhæve hele linien eller gemme linien i en string eller lignenende..
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Kode 

procedure Search(SearchFor: String; SIn: TStrings; var SOut: TStringList);
var
  I, J: Integer;
begin
  for I := 0 to SIn.Count - 1 do begin
    J := Pos(SearchFor, SIn.Strings[I]);
    if J <> 0 then
      SOut.Add(SIn.Strings[I]);
  end;
end;

Dette kan bruges.

Bruges sådan her:
Search('ordet', Memo1.Lines, EnTStringListHer);

Så vil den retunere alle linjer med 'ordet' i til TStringListen du har angivet...

MH.

The-Freak

Livet er for kort til at kede sig.

Kode 

procedure TForm1.Button1Click(Sender: TObject);
   CONST
    Sentinel = '|';
var
  I, J: Integer;
  SearchFor: string;
  SIn: TStrings;
begin
SIn:= Listbox1.Items;
Searchfor:= Edit1.text;
  for I := 0 to Listbox1.Count - 1 do begin
    J := Pos(SearchFor, SIn.Strings[I]);
    if J <> 0 then
      Listbox2.Items.Add(SIn.Strings[I]);
  end;
end;