Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Dateifilterung und GROSS/kleinschreibung (https://www.delphipraxis.net/101326-dateifilterung-und-gross-kleinschreibung.html)

matashen 11. Okt 2007 13:52


Dateifilterung und GROSS/kleinschreibung
 
Hallo zusammen,

hab hier ein kleines Problem wo ich einfach nich drauf komm wie ichs lösen soll.

Also...
hab einen Opendialog und viele verschieden Dateien die damit ausgewählt werden können.
Wenn ich dann aber die angewählte Datei verarbeiten will muss ich erstmal die Dateiendung extrahieren um dann die entsprechende Methode starten zu können.

sieht so aus

Delphi-Quellcode:
...
a:=extractfileext(currentfile);
...
Dann kommt die Verzweigung auf die verschiedenen Endungen also z.B.

Delphi-Quellcode:
...
 if (a='.png') then begin;
...
Aber, hier wird jetzt so wie ich das getestet habe ja auch Groß und Kleinschreibung beachtet da ich dies ja exakt überprüfe.

heir also die Frage gibt es die Möglichkeit den Opendialog zu zwingen die Dateiendung oder kompletter Filename in gross bzw. kleinschreibung weiterzu geben damit ich hier nicht diesen Blödsinn machen muss

Blödsinn:
Delphi-Quellcode:
...
 if (a='.png') or (a='.PNG') or (a='.PnG') or (a='.PNg') or (a='.pNG') then begin;
...
Gruß Matthias

PS: Sollte ich in der falschen Rubrik sein, bitte verschieben

DelphiKlaus 11. Okt 2007 13:55

Re: Dateifilterung und GROSS/kleinschreibung
 
Hey,

mach doch einfach

Delphi-Quellcode:
if lowercase (a) = '.png' then
Viele Grüße

Klaus

Hansa 11. Okt 2007 13:57

Re: Dateifilterung und GROSS/kleinschreibung
 
Schreibe eine
Delphi-Quellcode:
Function Gross (st: string);
und verwende die zum vergleichen. Bzw. das Delphi-eigene Äquivalent.

matashen 11. Okt 2007 14:00

Re: Dateifilterung und GROSS/kleinschreibung
 
Uffff, das ging ja schnell :dp:
kaum holt mein ne Pepsi ausm Automaten, schon kommt Antwort :-D

Also Lowercase......man wie einfach

Dank an alle!

DeddyH 11. Okt 2007 14:03

Re: Dateifilterung und GROSS/kleinschreibung
 
Der Vollständigkeit halber werfe ich noch ein StrIComp als weitere Möglichkeit in den Raum.

Hawkeye219 11. Okt 2007 14:04

Re: Dateifilterung und GROSS/kleinschreibung
 
Hallo Matthias,

für einen Einzelvergleich bietet sich noch die Funktion Delphi-Referenz durchsuchenSameText an, bei einem Mehrfachvergleich könntest du auf die Funktion Delphi-Referenz durchsuchenAnsiIndexText aus der Unit StrUtils zurückgreifen.

Gruß Hawkeye

Hansa 11. Okt 2007 14:20

Re: Dateifilterung und GROSS/kleinschreibung
 
Dann macht mal das hier :

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  showmessage (uppercase ('qwertzäöüß'));
end;
Und jetzt ?

DeddyH 11. Okt 2007 14:24

Re: Dateifilterung und GROSS/kleinschreibung
 
Dann mach das mal mit AnsiUppercase.

Muetze1 11. Okt 2007 14:26

Re: Dateifilterung und GROSS/kleinschreibung
 
Und ich werfe hier noch folgende 2 ein: Delphi-Referenz durchsuchenSameFileName() und Delphi-Referenz durchsuchenAnsiCompareFileName(), welche auch mit reinen Dateiendungen zurecht kommen.

DeddyH 11. Okt 2007 14:29

Re: Dateifilterung und GROSS/kleinschreibung
 
Ich denke, das ist nun aber genug Auswahl, oder? ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:45 Uhr.
Seite 1 von 2  1 2      

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