Forum: Sonstige Fragen zu Delphi
Delphi
by APP,
25. Okt 2003
hallo horst,
ACHTUNG:
Ich habe gerade erfahren, dass POS in D5 Casesensitive ist,
daher solltest Du bei Bedarf
IF POS(AnsiLowerCase(aFilter), AnsiLowerCase(SearchR.Name)) <> 0 THEN
schreiben (alles wird in Kleinbuchstaben gewandelt und dann verglichen).
Forum: Sonstige Fragen zu Delphi
Delphi
by APP,
25. Okt 2003
Hallo horst,
Wenn Du die Funktion mehrmals aufrufst, dann gibts auch Ergebnisse für mehrere Ordner.
:?:
Meinst Du ein StringGrid?
Ich habs mal schnell umgebaut (Benötig zusätzlich ein StringGrid):
PROCEDURE TForm1.Button6Click(Sender: TObject);
Forum: Sonstige Fragen zu Delphi
Delphi
by APP,
25. Okt 2003
Hallo horst,
meinst Du so?
PROCEDURE TForm1.Button6Click(Sender: TObject);
PROCEDURE DirList(CONST Path: STRING; FileList: TStrings);
VAR
SearchR : TSearchRec;
BEGIN
// Bestimmte Dateien suchen -> *.TXT
IF FindFirst(Path + '*.TXT', faAnyFile, SearchR) = 0 THEN