Einzelnen Beitrag anzeigen

Benutzerbild von Störtebeker
Störtebeker

Registriert seit: 9. Jul 2007
398 Beiträge
 
#4

Re: autom. Erweiterung beim Savedialog...

  Alt 31. Jul 2007, 12:52
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?
"And he piled upon the whale´s white hump - a sum of all the rage and hate felt by his whole race.
If his chest had been a cannon, he would have shot his heart upon it."
  Mit Zitat antworten Zitat