Delphi-Quellcode:
repeat
if opnAdresse.execute then
begin
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;
end;
until ExtractFileExt(opnAdress.FileName) = '.txt';
Allerdings mich würde ein immer wieder aufpoppende Dialog ziemlioch nerven.
