stringrid füllen mit suchergebnis

[horst]

Zitat:

Irgendwie fehlt da wohl ein bisschen was Entscheidendes

ach nee...
das was fehlt weiss ich doch selber...nur wie ich das machen muss weiss ich nicht, deshalb poste ich doch hier. :-D
ich verstehe auch nicht, das stand doch auch schon alles in meinem ersten beitrag.

[horst]

wie soll ich in dem zusammenhang die stringliste füllen?

[Christian Seehase]

Moin Horst,

das kannst eigentlich nur Du wissen, zumal so wie Du es beschrieben hast, müsste es so genügen:

Delphi-Quellcode:

procedure ZuMemoFallsKiterienerfuellt(const pfad, BestimmteDatei, 
                                      SuchTextInDerDatei: string); 
begin 
  if Str1IstInStr2(BestimmteDatei,pfad) 
    and istInderDatei(SuchTextInDerDatei,pfad) then begin 
    Form1.StringGrid1.Cells[0, Form1.StringGrid1.RowCount+1] := pfad;
    Form1.StringGrid1.Cells[1, Form1.StringGrid1.RowCount+1] := BestimmteDatei;
    Form1.StringGrid1.RowCount := Form1.StringGrid1.RowCount+1;
  end;
end;

Voraussetzung RowCount wird zu Beginn auf 1 gesetzt.

[horst]

:balloon: das ist es...
ich muss nur noch den pfad aus aus (Pfad) rauskriegen (so das nur noch der ordnername da steht)
und im zweiten stringgrid1.cells steht nur die dateiendung...
das ist alles, vielen dank für deine hilfe
ich will mir ein programm machen mit dem ich sourcecode-beispiele für verschiedene programmiersprachen/scripte abspeichern kann.

[APP]

Hallo Horst,

gestern hatte ich Dir eine Komplettlösung für fast das gleiche Problem geliefert, und

Zitat:

Zitat von horst

ich muss nur noch den pfad aus aus (Pfad) rauskriegen (so das nur noch der ordnername da steht)

das war eigentlich auch schon dabei. :warn:

[horst]

ich weiss das auch, nur für mich ist es nicht ganz so leicht die zusammenhänge herauszufinden
bzw. diese anzupassen.

du meinst das, gell?

Delphi-Quellcode:

IF FindFirst(Path + '*.TXT', faAnyFile, SearchR) = 0 THEN 
         REPEAT 
            IF (SearchR.Attr <> faDirectory) THEN 
               BEGIN 
                  // nach einem Wort im Dateinamen suchen 
                  // pos ist CaseInsensitive! 
                  IF POS('x', SearchR.Name) <> 0 THEN 
                        FileList.Add(ChangeFileExt(SearchR.Name, '')); // [EDIT] ohne Extension[/EDIT]

:oops:

[Christian Seehase]

Moin Horst,

zwei Dinge fallen mir an dem Codeschnipsel auf:

1.
pos ist case sensitiv
Inzwischen haben wir zu dem Thema schon einen ganzen Thread

2.

Delphi-Quellcode:

(SearchR.Attr <> faDirectory)

sollte besser so abgefragt werden:

Delphi-Quellcode:

(SearchR.Attr and faDirectory) = 0

da TSearchRec.Attr eine Bitmaske enthält. Sollte ausser faDirectory darin noch ein anderes Bit gesetzt sein, so wäre der Wert auch bei einem Directory ungleich faDirectory.

[horst]

hattee es auch schon geändert, vielen dank ;)