stringrid füllen mit suchergebnis

[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.