Topic: РАбота с файлами

Здраствуйте, по советуйте как лучше вывести все изображения (картинки) из папки в окно используя кнопки навигации.

Re: РАбота с файлами

Приветствую.


В принципе можно вывести картинки в компонент TableGrid.
Здесь можете найти пример
http://myvisualdatabase.com/forum/misc. … download=1


Получить все файлы из папки можно с помощью функции GetFilesList


О каких кнопках навигации идет речь?

Dmitry.

Re: РАбота с файлами

Пришлите пример использования функции GetFilesList для получения всех файлов из папки/ Спасибо/

Re: РАбота с файлами

Немного изменил процедуру чтения файлов из каталога:

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;

Где отследить исключение если указанного каталога еще не существует?

5 (edited by CDB 2020-09-21 09:22:41)

Re: РАбота с файлами

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

On a clear disk you can seek forever