DELPHI での 例。 OUTLABEL := DriveName + ':' + DirName + '\XXXX00.TTO' ; ASSIGNFILE(OUTPUT ,OUTLABEL ) ; REWRITE (OUTPUT) ; WRITELN (OUTPUT , '[Profile]' ) ; WRITELN (OUTPUT , 'TRTOPC' ) ; WRITELN (OUTPUT , 'Description=' ) ; WRITELN (OUTPUT , 'FROM ' + PARAM01 + '/' + PARAM02 ) ; WRITELN (OUTPUT , 'SELECT *' ) ; WRITELN (OUTPUT , 'WHERE' ) ; WRITELN (OUTPUT , 'ORDER BY' ) ;
|