[Kristofer]

Имею на форме 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]

головой об асфальт...
не знаю че делать, перерыл все...

[Rokuell]

как получить имя выбранного файла?
чтобы, затем, приравнять к переменной

Код:

var s:string;
begin
 if (ListView1.ItemIndex >= 0) then
  s := ListView1.Items[ListView1.ItemIndex].Caption;
 ShowMessage(s);
end;

как вывести в ListView файлы без расширений, т.е. только имена файлов?

Код:

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;

[Страдалецъ]

кликаю по имени файла, таким образом выбирая его, а вот как получить имя выбранного файла?

Видимо затык связан с тем, что вы в FindFirst не путь с маской задаете, а просто маску, в итоге у вас берется каталог из которого запускается программа. Получить этот путь можно так:

Код:

FilePath := ExtractFilePath(Application.ExeName).

Ну и соответственно полный путь к файлам у вас получается как FilePath + sr.name

и второй вопрос немного не потеме, как вывести в ListView файлы без расширений, т.е. только имена файлов?

Можно так:

Код:

FileName := Copy(sr.name,1,Pos('.',sr.name)-1);

Опоздал...

[Kristofer]

Пацаны! в очередной раз падаю на колени!
Мое уважение и благодарность, все работает!