Работа с файлами

[Eugene_Stoun]

Добрый день! Прошу помочь мне в решении проблемы. На форме имеется ListBox в нем содержится путь и имя файла. Делаю правой кнопкой мыши клик на строке, появляется меню выбираю "Характеристики файла", но почемуто хотябы просто вместо имени в сообщении просто пусто. Вот код:

procedure TForm3.N2Click(Sender: TObject);

var

qw:TSearchRec;

a:string;

begin

a:=ListBox1.Items[ListBox1.ItemIndex];

a:=qw.Name;

ShowMessage(а);

[Serge_Bliznykov]

это неудачная шутка?
во-первых,
подумайте, что будет, если Вы напишете

x := 11;
x := 22;

то чему будет равен x и нужна ли первая строчка вообще?

во-вторых, чтобы брать что-нибудь из переменной (qw это переменная типа TSearchRec), нужно что-то в эту переменную положить. Где код заполнения структуры?

в-третьих, гуглите FindFirst / FindNext (именно они и заполняют данную структуру)

[Eugene_Stoun]

Спасибо за совет, я разобрался

[саша40]

Первое, нужно имееть TSearchRect.
Второе, нужно получить свойство Index у компонента.
Третье, получить имя файла(полный путь).
Четвертое, куда кидаем характеристики.