Рекурсивный метод удаления файлов и вложенных папок по заданному пути: function KillDir (Dir: AnsiString): boolean; var   Sr: SysUtils.TSearchRec; begin {$I-}   if (Dir <> '') and...

Для импорта Excel из файла в таблицу: uses ComObj; function Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean; const xlCellTypeLastCell = $0000000B; var XLApp, Sheet:...

Для отображения русского языка при пропускании его через недоделанный Zeos в zConnection нужно добавить: ZConnection1.Properties.Append('codepage=cp1251'); P.S. Забыл как в Turbo Pascal ставить...