--ORACLE FUNCTION IN PACKAGE
function geef_sql
  (        p_owner            varchar2
  ,        p_table_name       varchar2
  ,        p_srid             varchar2
  ,        p_export_geometrie varchar2) return clob
  is
    --
    cursor c1
    is
    select decode(data_type, 'VARCHAR2', '||''|$$'' || gvi_exp2sqlldr.strip(' || column_name ||  ') || ''$$'' '
                           , 'CHAR',     '||''|$$'' || gvi_exp2sqlldr.strip(' || column_name ||  ') || ''$$'' '
                           , 'NUMBER',   '||''|'' || to_char(' || column_name || ') '
                           , 'DATE',     '||''|'' || to_char(' || column_name || ', ''YYYY-MM-DD HH24:MI:SS'' ) '
                  ) as attribuut
    from   all_tab_columns
    where  table_name = upper(p_table_name)
    and    owner = upper(p_owner)
    and    data_type not in ('SDO_GEOMETRY', 'CLOB')
    order by column_id;
    --
    cursor c2
    is
    select ', ' || column_name as attribuut
    from   all_tab_columns
    where  table_name = upper(p_table_name)
    and    owner = upper(p_owner)
    and    data_type = 'CLOB'
    order by column_id;
    --
    cursor c3
    is
    select ', gvi_exp2sqlldr.geef_geometrie_clob(' || nvl(p_srid, 'NULL') || ',' || column_name || ')  ' as attribuut
    from   all_tab_columns
    where  table_name = upper(p_table_name)
    and    owner = upper(p_owner)
    and    data_type = 'SDO_GEOMETRY'
    order by column_id;
    --
    cursor c4
    is
    select ', gvi_exp2sqlldr.geef_geometrie_wkt(' || nvl(p_srid, 'NULL') || ',' || column_name || ')  ' as attribuut
    from   all_tab_columns
    where  table_name = upper(p_table_name)
    and    owner = upper(p_owner)
    and    data_type = 'SDO_GEOMETRY'
    order by column_id;
    --
    l_sql  clob;
    --
  begin
    --

    for r1 in c1 loop
      l_sql := l_sql || r1.attribuut;
    end loop;
    --
    for r2 in c2 loop
      l_sql := l_sql || r2.attribuut || ' as CLOB_' || c2%rowcount;
    end loop;
    --

    if (upper(p_export_geometrie) = 'WKT') then

    -- exporteren als wkt
    for r4 in c4 loop
      l_sql := l_sql || r4.attribuut || ' as GEOMETRIE_' || c4%rowcount;
    end loop;

    else

    -- exporteren als sqlldr
    for r3 in c3 loop
      l_sql := l_sql || r3.attribuut || ' as GEOMETRIE_' || c3%rowcount;
    end loop;

    end if;
    --
    l_sql := 'select null ' || l_sql || ' from ' || p_owner || '.' || p_table_name;
    --
    return(l_sql);
    --
  end;

// delphi code
var
  l_sql: String;
begin
......
l_sql := OraclePackage1.CallStringFunction('geef_sql',  ['p_owner', g_owner, 'p_table_name', p_tabelnaam, 'p_srid', g_srid, 'p_export_geometrie', g_export_geometrie ]);