CompilerFinder

procedure TdevCompiler.FindSets;
var
    compilername : AnsiString;
begin
    // Assume 64bit compilers are put in the MinGW64 folder
    if DirectoryExists(devDirs.Exec + 'MinGW64\') then begin

        compilername := GetInfoOfCompiler(devDirs.Exec + 'MinGW64\bin\');
        if compilername = '' then
            compilername := 'MinGW64';

        AddSet(compilername + ' 64-bit Release','MinGW64');
        AddSet(compilername + ' 64-bit Debug','MinGW64');
        AddSet(compilername + ' 64-bit Profiling','MinGW64');
        AddSet(compilername + ' 32-bit Release','MinGW64');
        AddSet(compilername + ' 32-bit Debug','MinGW64');
        AddSet(compilername + ' 32-bit Profiling','MinGW64');
    end;
    if DirectoryExists(devDirs.Exec + 'MinGW32\') then begin

        compilername := GetInfoOfCompiler(devDirs.Exec + 'MinGW32\bin\');
        if compilername = '' then
            compilername := 'MinGW32';

        AddSet(compilername + ' 32-bit Release','MinGW32');
        AddSet(compilername + ' 32-bit Debug','MinGW32');
        AddSet(compilername + ' 32-bit Profiling','MinGW32');
    end;
end;