Filter in OpenDialog setzen

[DieDolly]

Die Klammern weglassen.

So wäre es besser
OpenDialog1.Filter := 'Alle Dateitypen|*.*|Ausführbare Dateien|*.exe; *.com;|Textdateien|*.txt;|ZIP-Dateien|*.zip';

[Reiter0303]

vielen dank...
geht leider nicht auch wenn ich die klammern weg lasse

hab da stehen

OpenDialog1.Filter := 'Datei | *.ipk';

das sind ja keine zip,oder ausführbare dateien, ich probiere das aber nochmal mit dem zip
habs jetzt nochmal probiert auch die zip dateien bleiben ausgegraut

OpenDialog1.Filter := 'Datei | *.ipk;|ZIP-Dateien|*.zip';

Code:

procedure TForm1.Button20Click(Sender: TObject);
var
Datei:  String;
begin
OpenDialog1.Filter := 'Datei | *.ipk;|ZIP-Dateien|*.zip';
if OpenDialog1.Execute then 
begin
      Datei := OpenDialog1.FileName;
      idFTP1.Put(OpenDialog1.FileName,'/tmp/' + ExtractFileName(OpenDialog1.FileName), True);
   end
else
   ShowMessage('nix ausgewählt...');

end;

so sieht jetzt der code aus

[Reiter0303]

so zur info...
so funktioniert es

OpenDialog1.Filter :='Datei(*.ipk)|*.ipk';

[DieDolly]

Versteif dich nicht zu sehr auf die Klammern.
Das hier funktioniert genau so gut. Die Klammer in diesem Falle ist vollkommen unwichtig.
OpenDialog1.Filter :='Datei|*.ipk';

Zitat:

geht leider nicht auch wenn ich die klammern weg lasse

Zitat:

OpenDialog1.Filter := ('Datei | Datei.'txt');

Das kann ja auch nicht funktionieren!

Ganz wichtig ist auch mal die Fehlermeldungen zu lesen die der Compiler ausspuckt. Funktioniert nicht ist soweit ich weiß keine Fehlermeldung.

[Reiter0303]

da kam keine fehlermeldung im compiler
hat er durch compiliert

[DieDolly]

OpenDialog1.Filter := ('Datei | Datei.'txt');

Das da kann er eigentlich nicht durchcompilieren.
Der Code ist so falsch, dass selbst der BBCode-Converter des Forums nicht damit zurecht kommt.

[Delphi.Narium]

Auch das
OpenDialog1.Filter := 'Datei|*.ipk|ZIP-Dateien|*.zip'; sollte funktionieren.

Aufbau des Filters:

Eine Beschreibung
dann ein senkrechter Strich
dann ein Dateimuster

Also Datei|*.ext

Soll der Filter mehrere Dateiendungen haben dann

Eine Beschreibung
dann ein senkrechter Strich
dann ein Dateimuster
dann ein Semikolon
dann ein Dateimuster
dann ein Semikolon
dann ein Dateimuster
...

Also Programme|*.cmd;*.exe;*.bat;*.com

Will man mehrere Filter haben, so baue man diese einzeln nach obigem Muster auf und trenne sie jeweils durch einen senkrechten Strich.

Also Programme|*.cmd;*.exe;*.bat;*.com|Datei|*.ipk|ZIP-Dateien|*.zip

Oder auch
OpenDialog1.Filter := 'Programme (*.cmd;*.exe;*.bat;*.com)|*.cmd;*.exe;*.bat;*.com|Datei (*.ipk)|*.ipk|ZIP-Dateien (*.zip)|*.zip';
wenn der Anwender im Filter sehen soll, welche Dateiendungen ausgewählt werden. Die Klammen kann man auch weglassen oder durch Eckige ... ersetzen, so wie es einem gerade gefällt.

Es ginge aber auch
OpenDialog1.Filter := '*.cmd;*.exe;*.bat;*.com|*.cmd;*.exe;*.bat;*.com|*.ipk|*.ipk|*.zip|*.zip'; mit annähernd maximaler Verwirrung beim Lesen im Quelltext.

Der Compiler erkennt keine Syntaxfehler in den Filtern.

[KodeZwerg]

Zitat von Reiter0303:

hab da stehen

OpenDialog1.Filter := 'Datei | *.ipk';
OpenDialog1.Filter := 'Datei | *.ipk;|ZIP-Dateien|*.zip';

Ich glaube da sind ungewollt gesetzte Leerzeichen ein Problem.

[Reiter0303]

hallo kodezwerg
ja genau das war wohl das problem
mit den leer zeichen
jetzt gehts ja...

[EWeiss]

Ich würde mir ne const anlegen..

bsp.

Delphi-Quellcode:

const
  VIDEOEXT = 'VIDEOEXT|*.avi;*.qt;*.mov;*.mpg;*.mpeg;*.m1v;*.asf;*.wma;*.wmv;*.flv;*.mp4;*.m4v;*.mkv;' +
  '*.dat;*.rm;*.3gp;*.ogm;*.ogv;|VIDEO_TS.IFO|VIDEO_TS.IFO;|Bluray File|index.bdmv;|Bluray Playlist|*.mpls';

Und dann VIDEOEXT als Filter übergeben.

OpenDialog1.Filter := VIDEOEXT; // oder was auch immer

gruss