Tekststrind

Tekst strenge i hvad?

SubStr := \'def\';
Str := \'abcdefghi\';
if Pos(SubStr, Str) <> 0 Then
  writeln(\'It\'\'s a sub string\');

Skal programmet søge i memo1 eller tekst filer eller edit felter etc.

Stoney

Undskyld jeg kan godt se at jeg har formuleret spørgsmålet forkert, men det skal være ligesom det i windows hvor man skriver Tekststring og mappe og så finder den alle dem med tekststringen i.

Vil du søge efter filnavne i et bibliotek ?

Stoney

nej efter en tekst string i et bibliotek

I et bibliotek? Vil du kigge i en fil, eller vil du finde et navn?

Function IsInFile(SubStr, FileName : String) : Boolean;
Var
  SL : TStringList;
Begin
  Result := False;
  SL := TStringList.Create;
  Try
    SL.LoadFromFile(FileName),
    For Cnt := 0 to SL.Count-1 do
    Begin
      If Pos(SubStr, SL[Cnt]) <> 0 Then
      Begin
        Result := True;
        exit;
      end;
    end;
  Finally
    SL.Free;
end;
   

http://borrisholt.com/eksperten/FileSearchDemo.zip

Jens B