Topic: РАбота с файлами
Здраствуйте, по советуйте как лучше вывести все изображения (картинки) из папки в окно используя кнопки навигации.
My Visual Database → Russian → РАбота с файлами
Здраствуйте, по советуйте как лучше вывести все изображения (картинки) из папки в окно используя кнопки навигации.
Приветствую.
В принципе можно вывести картинки в компонент TableGrid.
Здесь можете найти пример
http://myvisualdatabase.com/forum/misc. … download=1
Получить все файлы из папки можно с помощью функции GetFilesList
О каких кнопках навигации идет речь?
Пришлите пример использования функции GetFilesList для получения всех файлов из папки/ Спасибо/
Немного изменил процедуру чтения файлов из каталога:
procedure FillGridFiles(Grid: TdbStringGridEx; path: string);
var
sl: TStringList;
i,c: integer;
NxTextColumn: TNxTextColumn;
begin
sl := TStringList.Create;
sl.Text := GetFilesList(path);
// создаем две колонки с помощью пустого SQL запроса
Grid.dbSQL:='SELECT null,null';
// задаем названия колонок
Grid.dbListFieldsNames :='Листы,Путь';
// выполняем пустой SQL запрос
Grid.dbSQLExecute;
Grid.DeleteRow(0);
c := sl.Count-1;
for i := 0 to c do
begin
Grid.AddRow;
Grid.Cells[0, i] := 'Лист ' + IntToStr(i+1);
Grid.Cells[1, i] := sl[i];
end;
Grid.Columns[1].Visible:= False;
sl.Free;
end;
Где отследить исключение если указанного каталога еще не существует?
I think you could test for the directory first;
Я думаю, вы могли бы сначала проверить каталог;
DirectoryExists(const Directory: string):boolean
begin
sl := TStringList.Create;
if DirectoryExists('имя каталога') := true;
sl.Text := GetFilesList(path);
остальная часть вашего кода выше
else
show message('Каталог ошибок не существует');
end;
end;
Using Google translate
My Visual Database → Russian → РАбота с файлами
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi