TListView delphi

[kefir4ik]

Здраствуйте
вот пытаюсь написать простой файловый менеджер
есть объект TListView с двумя колонками, в первой имя файла, во второй его тип
со второй колнкой небольшая проблемка:

if fileExists(filename)
       then files.Items[i].SubItems.Text:='файл'
       else files.Items[i].SubItems.Text:='каталог';

у меня определяет только файлы почему то, вторую колонку, где нужно написать "каталог" он оставляет пустой

и еще не знаю как сделать так, чтобы по двойному щелчку он либо открывал файл, либо переходил в выдленый каталог, здесь создал процедуру даблклик, но что туда писать не знаю

[ex.cluz]

А вы сам СабИтем добавляете? Вижу, что нет.

Как это сделать? Вот так:

if fileExists(filename)
       then files.Items[i].SubItems.Add('файл')
       else files.Items[i].SubItems.Add('каталог');

А вообще, тогда уж лучше весь путь писать или размер файла...

по двойному щелчку он либо открывал файл, либо переходил в выдленый каталог,

ShellExecute погуглите (или по форуму поищите).

[kefir4ik]

[QUOTE=ex.cluz;614109]А вы сам СабИтем добавляете? Вижу, что нет.

Как это сделать? Вот так:

if fileExists(filename)
       then files.Items[i].SubItems.Add('файл')
       else files.Items[i].SubItems.Add('каталог');

все равно то же самое выдает
то есть у меня вот так получается:

|Имя католога   |       |
|Имя католога   |       |
|Имя католога   |       |
|Имя католога   |       |
|Имя файла       |файл|

ShellExecute
ок, спасибо, для открытия файлов подойдет, а вот переход по каталогам я думаю через TListView организовать, примерно так:
если это файл то открыть, иначе новый каталог=текущий каталог+имя выделеного каталога и вызвать процедуру, которая выведет новый списокфайлов и каталогов на экран
проблема в том, что я не знаю как по щелчку мышью сохранить содержимое выделеной ячейки в некую переменую, чтобы потом работать с ней

[kefir4ik]

Сообщение от ex.cluz

А вы сам СабИтем добавляете? Вижу, что нет.

Как это сделать? Вот так:

if fileExists(filename)
       then files.Items[i].SubItems.Add('файл')
       else files.Items[i].SubItems.Add('каталог');

проблема похоже не в этом, в этой процедуре точно такая же фигня происходит:

if fileExists(filename)
   then form1.Edit1.Text:=filename
   else begin
        form1.obrez(filename);
        form1.dirplus(dir,filename);
        form1.outputfiles(dir);
        end;

похоже при fileExists=true все нормально идет, а если значение равно false, то программа выполняет следующую команду, вот из за чего такое может быть?