autom. Erweiterung beim Savedialog...

[Markus]

Hallo,

ich habe bei einem Savedialog mehrere Filter. Wie kann ich nun einstellen, dass, wenn der Benutzer nur den Dateinamen (ohne Erweiterung) eingibt, die Datei mit dem ausgewählten Dateiformat (Filter) gespeichert wird? Bei DefaultExt kann ich doch nur ein Format eingeben.

[MrKnogge]

Moin Markus

Delphi-Quellcode:

if ExtractFileExt(SaveDialog.FileName) = '' then
  case SaveDialog1.FilterIndex of
    1: DateiName := ChangeFileExt(SaveDialog.FileName,'.txt');
    2: DateiName := ChangeFileExt(SaveDialog.FileName,'.doc');
  end;

[Edit]Hochkomma vergessen :roll: [/Edit]

[edit=Sharky]Doppelposting auf wunsch gelöscht ;-) Mfg, Sharky[/edit]

[Markus]

Danke, genau das was ich suchte :thuimb:

[Störtebeker]

Mal ne dumme frage: unter welcher eigenschaft muss ich

Zitat:

Delphi-Quellcode:

if ExtractFileExt(SaveDialog.FileName) = '' then 
  case SaveDialog1.FilterIndex of 
    1: DateiName := ChangeFileExt(SaveDialog.FileName,'.txt'); 
    2: DateiName := ChangeFileExt(SaveDialog.FileName,'.doc'); 
  end;

einsetzen? Geht ebenfalls um einen SaveDialog. Mit dem Dateiendungen, .rtf, .txt, .html, .htm

Delphi-Quellcode:

if ExtractFileExt(SaveDialog.FileName) = '' then 
  case SaveDialog1.FilterIndex of 
    1: DateiName := ChangeFileExt(SaveDialog.FileName,'.rtf'); 
    2: DateiName := ChangeFileExt(SaveDialog.FileName,'.txt');
    3: DateiName := ChangeFileExt(SaveDialog.FileName,'.html');
    4: DateiName := ChangeFileExt(SaveDialog.FileName,'.htm'); 
  end;

müsste dann ja so aussehen. Aber unter welcher eigenschaft im OI?

[Neutral General]

Einfach hinter Savedialog.Execute. ;)

[Störtebeker]

meinst du so:

Delphi-Quellcode:

procedure TForm2.Speichern1Click(Sender: TObject);
begin
if SaveDialog1. Execute then
SynEdit1.Lines.SaveToFile(SaveDialog1.FileName);
if ExtractFileExt(SaveDialog1.FileName) = '' then
  case SaveDialog1.FilterIndex of 
    1: DateiName := ChangeFileExt(SaveDialog1.FileName,'.rtf');
    2: DateiName := ChangeFileExt(SaveDialog1.FileName,'.txt'); 
    3: DateiName := ChangeFileExt(SaveDialog1.FileName,'.html');
    4: DateiName := ChangeFileExt(SaveDialog1.FileName,'.htm');

end;

[DeddyH]

So erscheint mir das logischer:

Delphi-Quellcode:

procedure TForm2.Speichern1Click(Sender: TObject);
var Dateiname: string;
begin
  if SaveDialog1. Execute then
  begin
    if ExtractFileExt(SaveDialog1.FileName) = '' then
      case SaveDialog1.FilterIndex of
        1: DateiName := ChangeFileExt(SaveDialog1.FileName,'.rtf');
        2: DateiName := ChangeFileExt(SaveDialog1.FileName,'.txt');
        3: DateiName := ChangeFileExt(SaveDialog1.FileName,'.html');
        4: DateiName := ChangeFileExt(SaveDialog1.FileName,'.htm');
      end
    else
      Dateiname := SaveDialog1.FileName;
    SynEdit1.Lines.SaveToFile(Dateiname);
  end;
end;

[Störtebeker]

ok, das funzt. Danke an euch alle.