Dateiformat erkennen [Gelöst]

[draGo]

Huhu DP :)

ich hänge mal wieder an einem Problem fest...
Und zwar benutze ich

Delphi-Quellcode:

if paramcount > 0 then
begin
   Eingabe.Lines.LoadFromFile(paramstr(1));
end;

um meinen Editor mit der Datei starten zu lassen.
Da der Editor aber Syntax Highlighting unterstützt, wird eine .html (Beispiel) Datei ohne Syntax Highlighting gestartet, da er die Dateiendung nicht erkennt.

Nun wüsste ich gerne wie ich herausfinden kann was für eine Dateiendung die Datei hat.
Danke für eure Hilfe :)
(Hoffe ich habe das nicht so umständlich erklärt ^^)

[Daniel G]

ExtractFileExt dürfte die Funktion sein, die du benötigst. Sie liefert dir aus einem Pfad die Dateiendung.

[3_of_8]

ExtractFileExt
Achtung, enthält auch den Punkt! Wenn du den entfernen willst, benutze folgende Funktion:

Delphi-Quellcode:

function ExtractFileExtension(FilePath: String): String;
begin
Result:=ExtractFileExt(FilePath);
Result:=Copy(Result, 1, length(Result));
end;

Übrigens, SysUtils ist vollgestopft mit solchen Extract-Funktionen. Da kannst du Dateinamen und -pfade zerpflücken, wie du lustig bist. In der Hilfe einfach mal die SysUtils durchschauen, da findest du, was du brauchst.

[draGo]

Hey ihr beiden,

geht ja ruckzuck hier :D
Danke euch, funktioniert perfekt :)

mfG
draGo

[Hawkeye219]

Zitat:

Zitat von 3_of_8

Delphi-Quellcode:

Result:=Copy(Result, 1, length(Result));

Manuel, wenn du dir diese Zeile noch einmal genau anschaust, dann wirst du bemerken, daß sie eigentlich nichts macht...

Gruß Hawkeye

[Flare]

Zitat:

Zitat von 3_of_8

Delphi-Quellcode:

function ExtractFileExtension(FilePath: String): String;
begin
Result:=ExtractFileExt(FilePath);
Result:=Copy(Result, 1, length(Result));
end;

Muss es nicht

Delphi-Quellcode:

Result:=Copy(Result, 2, length(Result)); // 2 statt 1

heißen? Immerhin beginnt doch ein Delphi-String bei 1, nicht bei 0!

//Edit:
Wow :mrgreen: Ich bin eben auch (zum 1. mal) in den Genuss gekommen mal keinen roten Kasten gehabt zu haben


Flare

[3_of_8]

Argh.

Jaja, ich weiß das. Ich hab zuerst 1 geschrieben, dann kopiert, auf 2 ausgebessert, kopiert, gelöscht, Delphi-Tags gesetzt, eingefügt

Und das zweite Kopieren scheint wohl nicht geklappt zu haben.