![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Имею на форме ListView1, в котором получаю список файлов
Код:
procedure TForm1.FormCreate(Sender: TObject); var ListItem: TListItem; sr: tsearchrec; begin if FindFirst('*.txt', faAnyFile - faDirectory - faVolumeId, sr) = 0 then begin ListItem := ListView1.Items.Add; ListItem.Caption := sr.name; while FindNext(sr) = 0 do begin ListItem := ListView1.Items.Add; ListItem.Caption := sr.name; end; FindClose(sr); end; end; кликаю по имени файла, таким образом выбирая его, а вот как получить имя выбранного файла? чтобы, затем, приравнять к переменной. и второй вопрос немного не потеме, как вывести в ListView файлы без расширений, т.е. только имена файлов? спасибо Последний раз редактировалось Kristofer, 09.10.2009 в 17:08. |
#2
|
|||
|
|||
![]() головой об асфальт...
не знаю че делать, перерыл все... |
#3
|
||||
|
||||
![]() Цитата:
Код:
var s:string; begin if (ListView1.ItemIndex >= 0) then s := ListView1.Items[ListView1.ItemIndex].Caption; ShowMessage(s); end; Цитата:
Код:
procedure TForm1.FormCreate(Sender: TObject); var ListItem: TListItem; sr: tsearchrec; begin if FindFirst('*.txt', faAnyFile - faDirectory - faVolumeId, sr) = 0 then begin repeat ListItem := ListView1.Items.Add; ListItem.Caption := Copy(sr.name,1,Length(sr.Name)-Length(ExtractFileExt(sr.Name))); until FindNext(sr) <> 0; FindClose(sr); end; end; Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#4
|
||||
|
||||
![]() Цитата:
Код:
FilePath := ExtractFilePath(Application.ExeName). Ну и соответственно полный путь к файлам у вас получается как FilePath + sr.name Цитата:
Код:
FileName := Copy(sr.name,1,Pos('.',sr.name)-1); Опоздал... ![]() Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
|||
|
|||
![]() Пацаны! в очередной раз падаю на колени!
Мое уважение и благодарность, все работает! |