Forum: Die Delphi-IDE
by mkinzler,
7. Mai 2015
Wie meinst Du das? Pos müsste auch Umlaute finden oder meinst Du Alternativen ( ae für ä usw.)?
Forum: Die Delphi-IDE
by mkinzler,
29. Apr 2015
Er kann auch etwas "Fertiges" verwenden:
http://sourceforge.net/projects/dfmedit/files/dfmedit/
Forum: Die Delphi-IDE
by mkinzler,
24. Apr 2015
Du hast ja im FindFirst angegeben, dass alle Dateien gefunden werden sollen. MatchesMask überprüft nun ob der Dateiname zur Suchmaske passt.
Forum: Die Delphi-IDE
by mkinzler,
24. Apr 2015
Jetzt noch
if MatchesMask( Rec.Name, FileName) then
Listbox1.Items.Add(Path + Rec.Name);
Dann wird die Maske für dateien wieder beachtet.
Forum: Die Delphi-IDE
by mkinzler,
24. Apr 2015
Zu was die Zwischenspeicherung des Pfades in einer ComboBox? Wenn schon, warum dann kein Label oder Edit? (es wird ja immer in den 1. Eintrag geschrieben)
Forum: Die Delphi-IDE
by mkinzler,
24. Apr 2015
Bei mir funktioniert der Code
Forum: Die Delphi-IDE
by mkinzler,
24. Apr 2015
So funktioniert es
procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
Path: string;
begin
Path := IncludeTrailingBackSlash(PathName);
try
if FindFirst (Path + FileName, faAnyFile, Rec) = 0 then
begin
Forum: Die Delphi-IDE
by mkinzler,
24. Apr 2015
Das liegt aber eher an Deinem Aufruf auf die Unterordner:
Müsste
FileSearch(Path+Rec.Name, Filename); lauten.
Forum: Die Delphi-IDE
by mkinzler,
24. Apr 2015
Immer noch zuviel doppelt.
procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
Path : string;
begin
Path := IncludeTrailingBackSlash(PathName);
try
if FindFirst (Path + FileName, faAnyFile, Rec) = 0 then
begin
Forum: Die Delphi-IDE
by mkinzler,
24. Apr 2015
Du hast 2 fast identische Schleifen. Es sollte ja auch mit einer gehen.
Forum: Die Delphi-IDE
by mkinzler,
24. Apr 2015
Ich würde nur den Code der sich zwischen den beiden Versionen unterscheidet in der Fallunterscheidung getrennt verwenden.
In der 1. Bedingung fehlt das FindFirst()
if Checkbox1.Checked then reicht