ComboBox чтение файлов .txt

[SKS]

Здравствуйте уважаемые форумчане!
Подскажите как реализовать чтение с .txt файлов.
У меня имеется форма с компонентом ComboBox1 и Memo поле
как сделать так чтобы при выборе в ComboBox1 допустим 1.txt в мемо открывалось содержимое документа 1.txt при выборе допустим 2.txt в мемо открывалось содержимое документа 2.txt и так далее.

[Lokos]

на событие onchange combobox'a пишешь код

var
f:textfile;
s:string;
begin
   assignfile(f,'путь\'+combobox.text);
   reset(f);
   s:=read(f);
   clodefile(f);

с учетом того что у тебя в комбобокс именно 1.тхт.
Возможно слегка натупил с чтением из файла но способ такой

[Serge_Bliznykov]

1) прочитать файл в Memo можо много проще (у него уже есть готовый метод от TString):
Memo1.Lines.LoadFromFile(combobox1. text);

2) перед открытиемнеплохо проверять наличие файла через if FileExists(combobox1.text) then

3) но это всё цветочки! проблема в том, на какое событие прицепится.
Предложенный выше код (событие OnChange) возникает даже в том случае,
если открыли выпадающий список и по нему перемещаемся с помощью стрелок курсора - нажали стрелку - загрузился новый файл, опять нажали стрелку вниз - загрузился новый файл.. а ведь в comboBox можно после этого нажать Esc... что будет в этом случае?!
Я предложил бы простой, "кондовый" вариант - около комбобокса маленькая кнопочка - по нажатию на неё грузить файл, имя которого выбрано в комбобоксе..
и всё. никаких проблем!

[SKS]

блин не понятно. путь прописал не работает, поюзал не могу сделать. исходника нет ни у кого? Блин как слепой котенок тыкаюсь =( Перебрал все варианты какие знал, не могу сделать.

[Serge_Bliznykov]

что значит - не работает?!
кинуть на форму ComboBox получилось?
выделить его и в инспекторе объектов назначить код на событие (events) OnChange получилось?
туда прописать примерно такой код:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
 path : string;
begin
  path := ExtractFilePath(Application.ExeName);
  if FileExists(path+ComboBox1.Text) then
     Memo1.Lines.LoadFromFile(path+ComboBox1.Text)
  else
     ShowMessage('нет файла: '+path+ComboBox1.Text);    
end;

в чём проблем-с?

[Ev[G]eN]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Memo1: TMemo;
    XPManifest1: TXPManifest;
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
Memo1.Lines.LoadFromFile('C:\Documents and Settings\Admin\Рабочий стол\1.txt');
if ComboBox1.ItemIndex = 1 then
Memo1.Lines.LoadFromFile('C:\Documents and Settings\Admin\Рабочий стол\2.txt');
end;

end.

вот так


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[SKS]

Ev[G]eN - Спасибо! У меня почти получилось, теперь догнал я в стринге забывал указывать )))
+ к репе!

[uberchel]

Держи пример:

[SKS]

Спасибо uberchel, а то у меня возникла проблема с мемо полем программа зависала не мог разобраться в чем дело. просмотрев ваш исходник понял в чем была моя ошибка.