Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
26. Okt 2003
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.
(SearchR.Attr <> faDirectory)
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
26. Okt 2003
Moin Horst,
das kannst eigentlich nur Du wissen, zumal so wie Du es beschrieben hast, müsste es so genügen:
procedure ZuMemoFallsKiterienerfuellt(const pfad, BestimmteDatei,
SuchTextInDerDatei: string);
begin
if Str1IstInStr2(BestimmteDatei,pfad)
and istInderDatei(SuchTextInDerDatei,pfad) then begin
Form1.StringGrid1.Cells := pfad;
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
26. Okt 2003
Moin Horst,
wenn ich mir das mal genauer ansehe:
Kann auch nicht, denn es soll aus der StringListe gefüllt werden, die in dem Codeschnipsel nur erzeugt, aber nicht gefüllt wird, und somit einen Count von 0 hat, was dazu führt, dass die Schleife von 0 bis -1 geht, und somit übersprungen wird.
Sträflicher Weise wird die StringListe nicht einmal freigegeben ;-)
Irgendwie fehlt da wohl ein...
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
26. Okt 2003
Moin Horst,
Ähhh... und was funktioniert nicht?
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
26. Okt 2003
Moin Horst,
na ja, statt es in eine Zelle zu schreiben
Form1.StringGrid1.Cells := ('"'+pfad + '" enthält den Text "' + SuchTextInDerDatei);
musst Du es in zwei Zellen schreiben
// erste Spalte
Form1.StringGrid1.Cells := pfad;
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
26. Okt 2003
Moin Horst,
schau Dir doch noch mal die Eigenschaft Cells genau an.
Hier werden doch als Parameter ja Spalte und Zeile angegeben.
Du brauchst also für jede Spalte eine Zuweisung, und kannst es nicht, wie beim Memo, mit einer erledigen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
26. Okt 2003
Moin Horst,
irgendwie ist mir Dein Problem nicht klar.
Soweit ich das verstanden habe, solltest Du Dir mal ExtractFilePath, ExtractFileName, LastDelimiter und Copy anschauen.