Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы Поиск в этой теме
Старый 31.07.2008, 15:17   #1
lexaltd
Форумчанин
 
Регистрация: 21.07.2008
Сообщений: 192
По умолчанию Не могу открыть файлы из формы поиска

У меня такая проблема
Мне надо найти текстовые файлы в какой то папке и показать их в одной форме и потом в другой форме открыть их для чтения
Ищу я так:

procedure Find;
var
SearchRec: TSearchRec;
begin
GetDir(0,cDir);
if cDir[length(cDir)] <> '\' then cDir := cDir+'\';

if FindFirst(FileName, faAnyFile,SearchRec) = 0 then
repeat
if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
begin
Form3.FileListBox1.Items.Add(Search Rec.Name);
n := n + 1;
end;
until FindNext(SearchRec) <> 0;
end;

Строка Form3.FileListBox1.Items.Add(Search Rec.Name); загружает имена файлов в Form3.FileListBox1 , но только имена , а мне надо чтоб туда загружались файлы полностью , чтоб я мог из этой формы открыть их в другой форме для чтения

Открывать из этой формы "Form3.FileListBox1" пытаюсь так :

Form2.Show;
Form2.Memo1.Lines.LoadFromFile(Form 3.FileListBox1.Filename);
Но пишет что не может найти путь

Помогите решить эту проблему

Зарание спасибо
lexaltd вне форума Ответить с цитированием
Старый 31.07.2008, 15:57   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,803
По умолчанию

Цитата:
а мне надо чтоб туда загружались файлы полностью
их содержимое??
I'm learning to live...

Последний раз редактировалось Stilet; 31.07.2008 в 16:01.
Stilet вне форума Ответить с цитированием
Старый 31.07.2008, 15:59   #3
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,909
По умолчанию

Скорее всего в SearchRec.Name будет относительный путь к файлу. Так?
А если файлы лежат где-то (не в текущем каталоге), то они не будут найдены.
Arigato на форуме Ответить с цитированием
Старый 31.07.2008, 16:30   #4
lexaltd
Форумчанин
 
Регистрация: 21.07.2008
Сообщений: 192
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
их содержимое??
Файлы .txt (текстовые файлы), текст
lexaltd вне форума Ответить с цитированием
Старый 31.07.2008, 16:45   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,803
По умолчанию

Цитата:
lexaltd
Ну ясно. Аригато прав.
Попробуй так:

Код:
Form2.Memo1.Lines.LoadFromFile(FileListBox1.Directory+'\'+FileListBox1.Items[i]);
здесь i - номер файла в списке
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 31.07.2008, 17:21   #6
lexaltd
Форумчанин
 
Регистрация: 21.07.2008
Сообщений: 192
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Ну ясно. Аригато прав.
Попробуй так:

Код:
Form2.Memo1.Lines.LoadFromFile(FileListBox1.Directory+'\'+FileListBox1.Items[i]);
здесь i - номер файла в списке
Так не получилось

А вот так получилось , может кому то пригодится
Спасибо Stilet - что натолкнул на правильную мысль

var
i : integer;
begin
i := Form3.FileListBox3.ItemIndex;
Form2.Show;
Form2.Memo1.Lines.LoadFromFile(Form 3.FileListBox3.Items.Strings[i]);
end;

Последний раз редактировалось lexaltd; 31.07.2008 в 23:32.
lexaltd вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как открыть файлы на сервере? FlyByNight Работа с сетью в Delphi 7 26.06.2008 15:03
Не могу открыть Word Mishina Помощь студентам 1 16.06.2008 12:44
не могу открыть ексель Kakha Microsoft Office Excel 2 05.02.2008 22:33
Система поиска. R-SER Помощь студентам 0 22.11.2007 18:44
два вредных вопроса:про асю и прикриплёные файлы файлы steck Свободное общение 3 17.06.2007 14:53