Autor Beitrag
JokerXP
Hält's aus hier
Beiträge: 5



BeitragVerfasst: Do 31.07.03 10:04 
Hi,

Ich möchte in einem bereits bestimmten Verzeichnis nach Dateien suchen.
Die Suche soll durch eine Eingabemaske charakterisiert werden. also z.B. *.txt oder eben beliebige andere Eingaben.
Diese Dateien sollen dann später nach strings durchsucht und diese dann ersetzt werden.
Mir fehlt jedoch noch der Ansatz für die Auswertung bzw. den Umgang mit der Eingabemaske.
Soweit bin ich bereits:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
//Verzeichnis öffnen
procedure TForm1.DCChoiceEdit1ButtonClick(Sender: TObject);
var
  verzeichnis : string;
begin
  SelectDirectory ('Test', '', verzeichnis);
  DCChoiceEdit1.text := verzeichnis;
end;

//OK-Button - Maske
procedure TForm1.Button1Click(Sender: TObject);
var
  Mask : string;
begin
  Mask := MaskEdit1.EditText;
  listbox1.items.add ('Suche nach folgender Maske: ' + Mask);
  
end;


Vielleicht kann mir jemand weiterhelfen.

mfg

joker

Moderiert von user profile iconKlabautermann: BBCode aktiviert.
matze
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 4613
Erhaltene Danke: 24

XP home, prof
Delphi 2009 Prof,
BeitragVerfasst: Do 31.07.03 11:51 

_________________
In the beginning was the word.
And the word was content-type: text/plain.
lambruco
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 100

Win 2000/2000 Server/XP
D6 Prof.
BeitragVerfasst: Mo 04.08.03 17:15 
Schau mal nach der Funktion MatchesMask().

Unit: Masks

function MatchesMask(const Filename, Mask: string
): Boolean;

_________________
Wer Rechtschreibfehler findet, kann Sie behalten