Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
5. Aug 2005
So, hab es nun auch mal geschaft meine kleine Funktion nochmals zu überarbeiten.
Und ich hab mich nach langem Hin und Her nicht dazu entschieden, den Directory-Parameter zu entfernen.
(ein/zwei der Gründe hatte ich ja schon erwähnt)
Aber es ist jetzt möglich den Dateinamen samt Pfadangabe an FileName zu übergeben (Directory muß dann allerding leer bleiben).
Nun hoffe ich nur noch, daß...
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
29. Jul 2005
Im Grunde genommem hast du ja Recht, wobei es dann ein
CheckFilename(ExtractFilename(FileName), , ExtractPathname(FileName))
auch machen würde.
Aber wenn ich es schon zulasse, das ein Pfad in Dateiname übergeben werden darf, dann will ich auch wenigsten den übergebenen Pfad genau überprüfen...
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
29. Jul 2005
Das ist eigentlich 'ne interne Angelegenheit denn so kann man den Dateinamen einzeln prüfen und z.B. verhindern, das er eine Pfadangabe enthält, also dass im Dateinamen keine ":" und/oder "\" enthalten sind.
Außerdem ist dieses eine Kombination derartiger Funktionen aus meinen Programmen und wirde halt so erstellt, dass sie mit diesesn Programmen zusammenarbeitet.
Im Grunde ist "diese"...
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
29. Jul 2005
Gut, dann werd' ich versuchen es noch etwas zu verbessern.
Allerdings haben die Codes der Anderen mit 'test.txt.' auch ihre Probleme.
Wobei 'test.txt.' als 8.3-Dateiname bei mir nicht durchgehen dürfte ^^
Und das mit dem PosEx vergesse ich manchmal ... da ich es aus 'ner eigenen Codesammlung importiere und weil es in D7 auch nochmal existiert hatte ich es dementsprechend geändert.
...
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
29. Jul 2005
Zum Beitrag "Dateiname auf Gültigkeit prüfen"
So, und hier ist mal meine Version -.-''
Type TCFNameMode = Set of (
cnmDOSCompatible, // Tests for file modifier characters ("+", ";", "=" ...).
cnm8Point3Names, // Tests for short file names (8.3).
cnmQuoteEnabled); // File name may be included into quotation marks (").
Function CheckFilename(FileName: AnsiString; Mode:...
