Dateiendung prüfen

[Gehstock]

mit

Delphi-Quellcode:

S := ExtractFileExt(ansilowercase(frmmain.OpenTextFileDialog1.FileName));
GetExt(s);

Delphi-Quellcode:

procedure GetExt(s : String);
begin
    if S = '.pas' then SetHigh(0);  //Delphi
  if S = '.dpr' then SetHigh(0);  //Delphi Project
  if S = '.dproi' then SetHigh(0);  //Delphi Project
  if S = '.bdsproi' then SetHigh(0);  //Delphi Project
  if S = '.bdsgroup' then SetHigh(0);  //Delphi Project group
  if S = '.pp' then SetHigh(0);  //Delphi
  if S = '.dpk' then SetHigh(0);  //Delphi
  if S = '.dfm' then SetHigh(98);  //Delphi Form
  if S = '.dfx' then SetHigh(98);  //Delphi Form
  if S = '.txt' then SetHigh(99); //text
  if S = '.bas' then SetHigh(5);  //VB 6
  if S = '.frm' then SetHigh(5);  //VB 6  Form
  if S = '.vb' then SetHigh(5);  //VB 2005
  if S = '.c' then SetHigh(2);  //C++
  if S = '.cpp' then SetHigh(2);  //C++
  if S = '.h' then SetHigh(2);  //C++
  if S = '.hpp' then SetHigh(2);  //C++
  if S = '.cs' then SetHigh(9);  //C#
  if S = '.asm' then SetHigh(8);  //ASM
  if S = '.bat' then SetHigh(13);  //Bat
  if S = '.cmd' then SetHigh(13);  //Bat
  if S = '.py' then SetHigh(14);  //Python
  if S = '.ini' then SetHigh(15);  //ini
  if S = '.java' then SetHigh(11);  //java
  if S = '.iss' then SetHigh(16);  //inno
  if S = '.pl' then SetHigh(17);  //perl
  if S = '.pm' then SetHigh(17);  //perl
  if S = '.prl' then SetHigh(17);  //perl
  if S = '.cgi' then SetHigh(17);  //perl
  if S = '.htm' then SetHigh(18);  //HTML
  if S = '.html' then SetHigh(18);  //HTML
  if S = '.php' then SetHigh(19);  //PHP
  if S = '.php3' then SetHigh(19);  //PHP
  if S = '.phtml' then SetHigh(19);  //PHP
  if S = '.php3' then SetHigh(19);  //PHP
  if S = '.rbw' then SetHigh(20);  //Ruby
  if S = '.rb' then SetHigh(20);  //Ruby
  if S = '.css' then SetHigh(21);  //C# Script
  if S = '.xml' then SetHigh(22);  //xml
  if S = '.xsd' then SetHigh(22);  //xml
  if S = '.xsl' then SetHigh(22);  //xml
  if S = '.xslt' then SetHigh(22);  //xml
  if S = '.dtd' then SetHigh(22);  //xml
end;