Без понятия ListBox !

[Volkogriz]

Доброе время суток всем!!!
С наступающим!!!!!!!!!!!!!
Помогите разабратся!!!
Мож чо элюментарное но я панять не магу!!!(((
дано папка с неизвесным количеством текстовых файлов и в неё пириодически добовлябтся текстовые файлы!
На форму помещяем мемо и ListBox !
В ListBox пишутся имена текстовых файлов которые лижат в ппке!
Кликаем по имени файла и в мемо загружается текст из файла!!!
Можно простой примерчик чтоб сообразить по быстрей!
Пожалусто!!!
Зарание блогодарен !!!
С уважением Volkogriz!

[Jeni]

Обработчик щелчка мыши в ListBox. Предполагается, что туда уже занесены имена файлов.

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);
end;

[Volkogriz]

Благадарю!!!
Всёб отличьно но я пишу в текст файле:
АФайл.txt
БФайл.txt
Он их находит но только рядом с самим исполняймым файлом!
Я хотел бы узнать если файлы хранить например в папке data как к ней путь прописать шоб проерамма искала их не рядом а именно в указанной папке памагите?
Вот код программы:

var
  Form1: TForm1;
  path: string;
 fsource:textfile;

implementation

{$R *.dfm}

procedure TForm1.N9Click(Sender: TObject);
begin
Close
end;

procedure TForm1.FormCreate(Sender: TObject);
var ss:string;
begin

 assignfile(fsource,path+'Data\initialize.txt');
 reset(fsource);
 while not eof(fsource) do
  begin
   readln(fsource,ss);
   if ss='<categoriitem>' then
    begin
     ss:='';
    repeat
     begin
      readln(fsource,ss);
      if (ss[1]<>'<')and(ss[1]<>'-') then
      List.Items.Add(ss);
     end
    until pos('<',ss)<>0;
    end;
  end;
closefile(fsource);
end;


procedure TForm1.ListClick(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(List.Items[List.ItemIndex]);
end;

end.

За рание благадарю!!!

[Jeni]

Можно хранить в ListBox'е полные имена файлов (т.е. с указанием пути) или можно добавлять этот путь в момент открытия файлов.

procedure TForm1.ListBox1Click(Sender: TObject);
var
  Path: string;
begin
  Path := ExtractFilePath(Application.ExeName) + 'data\';
  Memo1.Lines.LoadFromFile(Path + List.Items[List.ItemIndex]);
end;

Здесь путь (переменная Path) вычисляется как путь к самой программе + подкаталог data.

[Volkogriz]

Большое спасибо!!!
Вот блин мне пака не разжевали не понял а теперь понял!!!

[BOBAH13]

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

Обработчик щелчка мыши в ListBox. Предполагается, что туда уже занесены имена файлов.

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);
end;

В конце концов этот код выдаст ошибку Надо всегда проверять подобные действия

...Items[ListBox1.ItemIndex]...

тобиш

if ListBox1.ItemIndex >= 0 then ...

[Jeni]

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

В конце концов этот код выдаст ошибку Надо всегда проверять подобные действия

if ListBox1.ItemIndex >= 0 then ...

Как это не покажется странным, но именно такая проверка как раз и не нужна - при пустом списке событие OnClick просто не вызывается, а если список не пустой, то при любом щелчке ItemIndex всегда будет >= 0.

Другое дело, что следует наличие файла перед его открытием, но обработка ошибок это вообще другая и очень большая тема.

[BOBAH13]

Конечно Вам виднее :D

На то оно и названо !! Событие - OnClick, а не OnItemClick или чтот подобное...

[Jeni]

Вообще-то я не шутил, OnClick действительно не вызывается при пустом списке. Можете проверить. И это даже логично.

[_SERGEYX_]

а вот так проверить не помешает

if FileExists(ListBox1.Items[ListBox1.ItemIndex]) then
try
Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);
except
memo1.clear;
Showmessage('Ошибка открытия файла.');
exit;
end;