Hab ich gemacht mit dem Filter, aber das bringt doch nichts.
Mann muss nur im Dateifeld * eingeben und schon kann man wieder alle Dateien öffnen.
Jetzt habe ich es so:
Code:
repeat opnAdress.execute;
if ExtractFileExt(opnAdress.FileName) = '.txt' then
begin
FileName := extractfilename(opnAdress.FileName);
FileDirectory := extractfilepath(opnAdress.FileName);
end
else begin
showmessage('"'+ opnAdress.FileName + '"' + ' ist leider keine gültige txt-Datei!');
end
until ExtractFileExt(opnAdress.FileName) = '.txt';
Funktioniert auch soweit, das Problem ist bloß, dass der OpenDialog auch wieder kommt, wenn man auf Abbrechen klickt
Und wie ist das mit dem Arbeitsverzeichnis?
mfg bogomip