FileExtension herausbekommen

[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;