Wörter in einer Datei finden

[chrisw]

So könnte man das machen ! (Sicher nicht das Optimum)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const SearchString = 'Version=';
      filename     = 'c:\mytextfile.txt';

var MyTextFileContent : TStringList;
    i                 : Integer;
    tempStr           : String;
begin
  MyTextFileContent :=  TStringList.Create;
  try
    MyTextFileContent.LoadFromFile(filename);
  except
    Showmessage('Motz');
    MyTextFileContent.Free;
    exit;
  end;
  for i := 0 to MyTextFileContent.Count -1 do
    if pos(SearchString,MyTextFileContent[i]) <> 0 then
    begin
      tempStr := MyTextFileContent[i];
      delete(tempStr,1,pos(SearchString,MyTextFileContent[i])+ length(SearchString)-1);
      //VariableX := tempStr;
      showmessage('gefunden in Zeile ' + Inttostr(i +1));
      MyTextFileContent.Free;
      exit;
    end;
  MyTextFileContent.Free;
end;