Entwickler-Ecke
Internet / Netzwerk - Dateierweiterungen von runtergeladenen Dateien
Millo - Mo 16.09.02 17:05
Titel: Dateierweiterungen von runtergeladenen Dateien
Moin
Ich wollt mal wissen wie man die Dateierweiterungen von Dateien die ich aus dem Netz geladen hab auslesen kann bzw. wie ich die Dateierweiterung von Datei Lesen kann wenn ich z.b. die Url hab
b.brecht - Mo 16.09.02 18:17
Also ich schätze du mein Dateinamenerweiterungen, sprich ".txt" , ".exe"...
Also, habe mal'ne Funktion geschrieben (vielleicht zu viel unsinniges drin, geht aber *G*):
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| function GetTyp(datei:String):String;
var i:Integer; ok:Boolean; Temp:String;
begin
ok:=false;
Result:='';
Temp:='';
for i:=length(datei) downto 1 do
if (ok=false) and (datei[i]<>'.') then Temp:=Temp+datei[i]
else if datei[i]='.' then ok:=true;
for i:=length(Temp) downto 1 do
Result:=Result+Temp[i];
end; |
DeCodeGuru - Mo 16.09.02 18:28
Hi,
es geht auch einfacher :) :
Quelltext
1:
2:
3:
4:
5:
6:
| var
extension: String;
begin
extension := ExtractFileExt('Hallo.txt');
ShowMessage(extension);
end; |
b.brecht - Mo 16.09.02 18:30
Ich wusste doch, dass eine Delphifunktion gibt, *NEIN*
Millo - Mo 16.09.02 20:13
THX
hätte ich auch drauf kommen können!?! :oops:
DeCodeGuru - Mo 16.09.02 20:36
Hin und wieder, liegt die Lösung doch verdammt nahe :mrgreen:
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!