AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Dateierweiterung erzwingen [Problem gelöst]
Thema durchsuchen
Ansicht
Themen-Optionen

Dateierweiterung erzwingen [Problem gelöst]

Ein Thema von synex · begonnen am 20. Sep 2003 · letzter Beitrag vom 20. Sep 2003
Antwort Antwort
synex

Registriert seit: 14. Apr 2003
147 Beiträge
 
Delphi 6 Personal
 
#1

Dateierweiterung erzwingen [Problem gelöst]

  Alt 20. Sep 2003, 14:42
Hi Leute!

wie kann ich bei einem SaveDialog eine Dateierweiterung erzwingen?
Ich habe als Filter schon *.txt eingesetzt, aber wenn man als Dateiname nur z.B. abc eingibt, speichert er die Datei unter abc und nicht abc.txt
Ist bestimmt ne kleine Einstellung, aber ich kenn sie leider nicht.

MfG synex
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Dateierweiterung erzwingen

  Alt 20. Sep 2003, 14:49
Kuck mal im Objektinspektor. wenn dior was unbeaknnt vor kommt, Cursor rein und F1 drücken.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Alexander

Registriert seit: 28. Aug 2002
Ort: Oldenburg
3.513 Beiträge
 
Turbo Delphi für .NET
 
#3

Re: Dateierweiterung erzwingen

  Alt 20. Sep 2003, 14:54
Sonst kuck doch mit ExtractFileExt ob's eine hat und wenn nicht dann, fügste eine hinzu...
Alexander
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Dateierweiterung erzwingen

  Alt 20. Sep 2003, 15:04
Moin Synex,

schau Dir doch mal die Eigenschaft DefaultExt an.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
synex

Registriert seit: 14. Apr 2003
147 Beiträge
 
Delphi 6 Personal
 
#5

Re: Dateierweiterung erzwingen

  Alt 20. Sep 2003, 15:06
Also ich habe es so gemacht:

Delphi-Quellcode:
try
extractfileext(savedialog1.FileName)
except
savedialog1.filename:=savedialog1.FileName+'.txt';
end;
Aber es funktioniert nicht. Die Datei heißt trotzdem 'abc'.
Im Objektinspektor habe ich nichts entsprechendes gefunden.
Was mach ich falsch?
  Mit Zitat antworten Zitat
synex

Registriert seit: 14. Apr 2003
147 Beiträge
 
Delphi 6 Personal
 
#6

Re: Dateierweiterung erzwingen

  Alt 20. Sep 2003, 15:08
Zitat von Christian Seehase:
Moin Synex,

schau Dir doch mal die Eigenschaft DefaultExt an.
Ach ich sebbel natürlich damit gehts!
Danke!
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.606 Beiträge
 
#7

Re: Dateierweiterung erzwingen

  Alt 20. Sep 2003, 15:11
Zitat von synex:
Also ich habe es so gemacht:
[..]
Was mach ich falsch?
Ganz einfach: Du prüfst nicht nach, ob die Endung leer ist.

Delphi-Quellcode:
if extractfileext(savedialog1.FileName) <> '.txtthen
begin
   // hier dann die richtige Endung zuweisen
end;
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer
Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
  Mit Zitat antworten Zitat
synex

Registriert seit: 14. Apr 2003
147 Beiträge
 
Delphi 6 Personal
 
#8

Re: Dateierweiterung erzwingen [Problem gelöst]

  Alt 20. Sep 2003, 16:16
Danke Phoenix, aber ich machs jetzt durch DefaultExt.
mfg synex
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz