FileExtension herausbekommen

[yankee]

Ich schreibe gerade einen HTML-Editor mit 'ner SynEidt. Ist aber eigentlich egal.
ich habe also eien opendialog. Und wenn der User eine php-Datei geöffnet hat, soll eben was anderes passieren, als bei einer HTML- Datei, also wie bekomme ich die Endung heraus?

[Nightshade]

Delphi-Quellcode:

  ext := ExtractFileExt(opendialog1.filename);

[yankee]

Sorry, dass ich so blöd frage, aber was ist hieran jetzt falsch:

Delphi-Quellcode:

case ExtractFileExt(opendialog1.filename) of
            htm,html:synedit1.Highlighter :=SynHTMSyn1;
            css     :synedit1.Highlighter :=SynCSSSyn1;
            php     :synedit1.Highlighter :=SynPHPSyn1;
        end;

[MathiasSimmack]

Zitat:

Zitat von yankee

Sorry, dass ich so blöd frage, aber was ist hieran jetzt falsch:

2 Dinge: a) du hast die Anführungszeichen vergessen. b) kann man "case" nicht mit Strings benutzen.

[yankee]

Danke, es funzt jetzt...

[fkerber]

Hi!

Verräts du uns auch, wie du es gemacht hast?
Hat bestimmt nochmal jemand das Problem.

Ciao fkerber

[rebugger]

das einfachste wäre wohl mit

Delphi-Quellcode:

if ... then
  ...
else if ... then
  ...
...

[yankee]

Aber gerne Doch!

Delphi-Quellcode:

procedure DateiLaden;
var ext:string;
begin
    if opendialog1.Execute then
    begin
        ext :=ExtractFileExt(opendialog1.filename);
        synedit1.Lines.LoadFromFile(opendialog1.FileName);
        if (ext='.htm') OR (ext='.html') then synedit1.Highlighter :=SynHTMLSyn1;
        if ext='.css' then synedit1.Highlighter :=SynCSSSyn1;
        if ext='.php' then synedit1.Highlighter :=SynPHPSyn1;
        ext :='';
    end;
end;

[Mirilin]

:hi:

Schau Dir vielleicht sonst, falls Du es noch nicht getan hast, die Komponente MultiSyn (weiss den Namen nicht mehr genau, da ich SynEdit zuzeit nicht installiert habe) an.
In einem HTML dokument hat man ja vielleicht auch mal CSS oder PHP ...

Einen Link als Geschenk


mfg Tobias

[Christian Seehase]

Moin Yankee,

Du müsstest noch, z.B. mit AnsiLowerCase, sicherstellen, das Extension auch wirklich in kleinen Buchstaben zum Vergleich vorliegt.

[yankee]

oh, ja Danke!