ListBox или ComboBox, выбор элмента, в Delphi7

[Николай ПН]

Есть проблемка. ПОдскажите как можно решить ее. Я ищу файлы с определенным именем по директории, вывожу либо в ListBox or ComboBox.(это все ясно, сделано). А вот тут начинается сама проблема. После чего пользователь может выбрать какой-либо конткретный файл или сразу несколько и открыть их?

[Z1000000]

Получай из списка имя(имена) файлов.
Если один пункт выбирается.

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

Если разрешен множественный выбор, то используй :
ListBox1.Selected[];

[Николай ПН]

Я ввел как вы написали, но мне пишет,

operator not applicable to this operand type

. У меня просто в ListBox выводиться полный путь к файту. Как можно решить эту проблемы, или хотябы подскажите где кроме справки можно почитать?*

[Ghost of Night]

Для открытия файла можно ShellExecute(); использовать.
В uses добавьте ShellApi;
Вот пример использования:

shellExecute(handle,nil,'имя_файла',nil,nil,SW_ShowNormal);

А выбрать файл можно так:

File_Name:=ListBox1.Items.Strings[ListBox1.ItemIndex];

[Николай ПН]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, ShellApi;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Memo1: TMemo;
    Chart1: TChart;
    Series1: TLineSeries;
    procedure GetAllFiles(mask: string);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.GetAllFiles(mask: string);
var
  search: TSearchRec;
  directory: string;
    F: textfile;
  A,S,D,H,G,N,k,s_new: real;
  st: string;
begin
directory:=ExtractFilePath(mask);
  if FindFirst(mask, faAnyFile, search)=0 then
    begin
      repeat
        Form1.ListBox1.Items.Add(directory+search.name);
//****************************************
shellExecute(handle,nil,'F',nil,nil,SW_ShowNormal);
F:=ListBox1.Items.Strings[Listbox1.ItemIndex];
  assignfile(F, mask);
  reset(F);
    while not EOF(f) do
    begin
      readln(f,st);
      read(F,A,S,D,H,G,N);
      //memo1.Lines.Add(floattostr(S));
      if g<>0 then
      series1.AddXY(s,ln(g)*0.43753);
    end;
  closeFile(F);
      Until FindNext(search)<>0;
    end;
  if FindFirst(Directory+'*.*', faDirectory,search)=0 then
    begin
      repeat
        if((search.Attr and faDirectory)=faDirectory) and(search.name[1]<>'.') then
        GetAllFiles(Directory+search.name+'\'+ExtractFileName(mask));
      until FindNext(search)<>0;
      FindClose(search);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  directory: string;
  mask: string;
begin
  Listbox1.Items.Clear;
  directory:='D:\Delphi\';
  mask:='TPG300_64_5F4.txt';
  GetAllFiles(Directory+mask);
end;

end.

Но что-то все равно не то....может я что-то не так делаю? Я с этим вообще впервые сталкиваюсь, дуб дубом тут

[Ghost of Night]

shellExecute(handle,nil,'F',nil,nil ,SW_ShowNormal);

здесь вы пытаетесь открыть символ 'F', Здесь должен быть путь к файлу и его имя -

ListBox1.Items.Strings[Listbox1.ItemIndex];

F:=ListBox1.Items.Strings[Listbox1.ItemIndex];

А здесь переменной определяющей тип файла, вы присваиваете путь к этому файлу.
Этого делать не нужно.

assignfile(F, mask);

Здесь, вместо mask должно быть имя файла и путь к нему - это и есть

ListBox1.Items.Strings[Listbox1.ItemIndex];

[Николай ПН]

Сообщение от Ghost of Night

здесь вы пытаетесь открыть символ 'F', Здесь должен быть путь к файлу и его имя -


А здесь переменной определяющей тип файла, вы присваиваете путь к этому файлу.
Этого делать не нужно.


Здесь, вместо mask должно быть имя файла и путь к нему - это и есть

все равно не понимаю зачем это делать, точнее что происходит, если открыть файл можно через assignfile

[Z1000000]

положи проект целиком.

[Ghost of Night]

Николай ПН через AssignFile() вы получаете доступ к чтению/записи файла, а через ShellExecute() вы этот файл запускаете (точно так же, как если бы вы например щелкнули по нему мышью).
А вам собственно как этот файл открыт нужно???

Сообщение от Z1000000

положи проект целиком.

Зачем? В ответе #6 есть все необходимое для ответа на вопрос #1!

[Николай ПН]

Суть программы вот в чем, я выполняю поиск по конкретной директории, после чего вывожу все файлы(с полным путем) в ListBox, а после выбирая какой-либо файл, рисую график в Tchart. В файле несколько столбцов с цифрами.