Mehrere Dateien nach String durchsuchen

[foxy]

hmmm thx ich versuch das glei mal ich habs bischer bissal anders gemacht

Code:

s:=UpperCase(DrivecomboBox1.Drive);
     EditDatei.Text:=s+':\*.txt';
     If FindFirst(EditDatei.Text,faAnyfile,searchrec)=0 then begin
        Display;
     end
     else begin
       ShowMessage('Nichts gefunden');
       EditCharge.Clear;
       exit;
     end;
     AssignFile(f,EditDatei.text);
    {$i-}
        Reset(f) ;
    {$i+}
    if IOResult <>0 then
    begin
      ShowMessage ('Fehler: Datei kann nicht geöffnet werden');
      EditCharge.Clear;
      exit;
    end;
  end;

so hab ich das gemacht aber ich versuch das andere dann ma ... mein bsp ging bei eienr datei wunderbar ... ich versuchs einfach

[sakura]

Viel Erfolg.

Zur besseren Übersicht, solltest Du aber Dateisuche, Stringsucheund Ergebnissanzeige von einander trennen. <- Erfahrungssache.

...:cat:...

[foxy]

ja das iss au noch so was ... ich habe fast alles in eine unit gepackt und die wird mir langsam bissal gros mit 1200 zeilen wie kann ich das ich z.b. wenn ich auf ein button drücke auf ne andere unit verweise ... also nur das diese im hintergrund arbeitet implementation einbinden iss klar aber der befehl

ich habe das versucht mit

Delphi-Quellcode:

Unit drucken;

aber das geht wohl nich so richtig ;)

[sakura]

Mal ein kurzes Bsp.

Delphi-Quellcode:

// UNIT uHallo.pas
[color=#ff0022]unit uHallo;[/color]
interface

procedure ShowHallo(Message: AnsiString);

implementation

procedure ShowHallo(Message: AnsiString);
begin
  // message dlg
  ...
end;

end.

// ENDE uHallo.pas
....

....


// Dein Form

unit Form1;

interface

  type TForm1 = class(TForm)
    procedure Button1OnClick(Sender: TObject);
  private
    ...
  public
  end;

implementation
 
[color=#ff0019]uses
  uHallo;[/color]

procedure TForm1.Button1OnClick(Sender: TObject);
begin
  ShowHallo('Du hast Button1 gedrückt!');
end;

end.

Für weitere Fragen sind wir natürlich jederzeit da :)

[wwerner]

Delphi-Quellcode:

EditDatei.Text:=s+':\*.txt'; 
If FindFirst(EditDatei.Text,faAnyfile,searchrec)=0 
  then 
    begin 
      Display; //Was ist das?
    end 
  else 
    begin 
      ShowMessage('Nichts gefunden'); 
      EditCharge.Clear; 
      exit; 
   end; 
AssignFile(f,EditDatei.text); // EditDatei.text ist z.B c:\*.txt das kann man nicht öffen

[foxy]

Schön mal jemand zu finden der mal direkt antwortet :hello:

aber bei deinem quellcode geht soweit alles hab denke ich auch alles richtig eingefügt nur der findet an der stelle

Delphi-Quellcode:

repeat
    if SR.Attributes and faDirectory = 0 then
      Search(Pfad + SR.Name);
  until FindNext(SR) <> 0;

das serach nicht wie muss ich das deklarieren??

sorry ich hab wirklich noch null plan :oops: [/quote][/center]

[sakura]

Der Name Search ist nur ein Beispiel.

Diese Routine ist dann Deine Lösung, um zu überprüfen, ob der gesuchte String in der Datei eigentlich vorkommt.

[foxy]

hmm wenns keine umstände macht kannst du die einzelnen schritte erklären das ich das auch richtig in mein programm einbaue?ß

[sakura]

Mit FindFiles hast Du jetzt die Routine, welche nach allen Dateien in einem Verzeichnis sucht, welche Deiner Maske entsprechen.

FindFiles ruft jetzt die Routine Search auf, welche für eine bestimmte Datei überprüft, ob der gesuchte String darin vorkommt.

Delphi-Quellcode:

// unvollendetes Beispiel mit suche nach FText
procedure Search(aFileName: String);
begin
  with TStringList.Create do
  try
    LoadFromFile(aFileName);
    if Pos(FText, Text) > 0 then
      ShowMessage('Der Text wurde in der Datei ' + aFileName + ' gefunden.');
  finally
    Free;
  end;
end;

Das ist jetzt nur ein grobes Gerüst, sollte Dir aber weiterhelfen ;)

[Daniel B]

Hallo wwerner,

Zitat:

Zitat von wwerner

Hi, Ich habe nicht von den Richtlineien in diesem Forum geschreiben, sondern von der allgemeinen Netikette

Und weisst Du auch das die Netiquette, Crossposting aus Newsgroup kommt und sich nicht in dem Sinne auf Foren übertragen lässt? Warum machst Du nicht gleich ein F'up 2p :?: :!: :?: Wenn Du schon auf diese Regeln stehst :?:

Grüsse, Daniel :hi: