mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 22:07:56 +02:00
11 lines
223 B
ObjectPascal
11 lines
223 B
ObjectPascal
{ %fail }
|
|
|
|
program text;
|
|
|
|
type TSQLDBTypes = (mysql40,mysql41,mysql50,postgresql,interbase,odbc,oracle);
|
|
const MySQLdbTypes = [mysql40,mysql41,mysql50];
|
|
|
|
begin
|
|
if (SQLDbType in TSQLDBTypes) then writeln('strange');
|
|
end.
|