поиск по наванию файла и вывод на экран

[Karinka]

Как сделать поиск по названию файла. Допустим вводим название книги, и должен открываться файл(word или txt) с необходимым текстом. Вообще не представляю как сделать

[Kotofff]

Ищем файл по имени и если он оказался DOC - запускаем Word, если JPG - запускаем установленную в системе программу просмотра графики ...
Так ? Или что имеется в виду ?
Или нужен поиск по имени файла да еще и с определенным текстом внутри самого файла ?

[Karinka]

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

Ищем файл по имени и если он оказался DOC - запускаем Word, если JPG - запускаем установленную в системе программу просмотра графики ...
Так ? Или что имеется в виду ?
Или нужен поиск по имени файла да еще и с определенным текстом внутри самого файла ?

просто по названию файла, я нашла код, теперь мне нужно как-то указать расширение .doc чтобы в названии не писать. где это вписать?
вот код
// щелчок на кнопке Открыть

procedure TForm1.Button1Click(Sender: TObject);
var
   f: TextFile;       // файл
   fName: String[80]; // имя файла
   buf: String[80];   // буфер для чтения строк

begin
   fName := Edit1.Text;
   AssignFile(f, fName);

   try
       Reset(f);  // открыть для чтения
   except
        on EInOutError do
        begin
            ShowMessage('Ошибка доступа к файлу '+
                            fName);
            exit;
        end;
   end;

   // чтение из файла
   while not EOF(f) do
     begin
        readln(f, buf);       // прочитать строку из файла
        Memo1.Lines.Add(buf); // добавить строку в поле Memo1
     end;

   CloseFile(f); // закрыть файл
end;

Подскажи пожалуйста, будут тока вордовские файлы

[alex_fcsm]

А что Вы в Edit вводите? Если просто имя то можно к нему и добавлять '.doc'
fName := Edit1.Text+'.doc';

[Karinka]

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

А что Вы в Edit вводите? Если просто имя то можно к нему и добавлять '.doc'
fName := Edit1.Text+'.doc';

Спасибочки тебе огромное!!!!!!!!!!

[DeKot]

f: TextFile; // файл

изначально в операторе файловая переменная f связывается с текстовым файлом, т.е. он должен иметь расширение .TXT.Файлы созданные в Word с расширением
.DOC считываться не будут.

[mihali4]

Что-то вы мудрите...
Любой файл, с любым расширением открывается одной командой:

uses ShellAPI;
...
ShellExecute(Handle,'open','myrar.rar',nil,nil,SW_SHOWNORMAL);
ShellExecute(Handle,'open','mytxt.txt',nil,nil,SW_SHOWNORMAL);

[Karinka]

Загрузить то загрузила, а memo не отображает картинки, через что еще можно отобразить вордовский документ?

[Kotofff]

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

Загрузить то загрузила, а memo не отображает картинки, через что еще можно отобразить вордовский документ?

Попробуй посмотреть вот : http://programmersforum.ru/showthread.php?t=36820

[cherry25]

Вообще-то очень хорошо описана работа с файлами в книге Митчелла К. Кермана "Программирование и отладка в Delphi учебный курс", там рекомендована работа с компонентами с закладки Win 3.1: TDriveComboBox, TDirectory ListBox, TFilterComboBox, TFileListBox. Там идет работа именно с компонентом TMemo и .txt файлом