Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Юра1
0 / 0 / 0
Регистрация: 05.10.2012
Сообщений: 10
#1

Чтение списка файлов

20.10.2012, 16:28. Просмотров 774. Ответов 2
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста написать функцию, которая выполняет чтение нескольких файлов из списка ListBox и заносит их содержимого в компонент Memo, а потом осуществляет поиск слова в Memo. Слово вводится в компоненте Edit.
вот черновая функция чтения из файлов

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.ReadFile1Click(Sender: TObject);
var f:TextFile;
    s,dir:string;
    i:Integer;
 
begin
for i:=0 to ListBox2.Items.Count-1 do
   begin
     AssignFile(f,ListBox2.Items.Text);
     Reset(f);
     while not Eof(f) do 
                 begin
                  Readln(f,s);
                  Memo2.Lines.Add(s); 
                  end;
           CloseFile(f);
   end;
end;

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2012, 16:28
Ответы с готовыми решениями:

Чтение двунаправленного списка из файла
Как организовать, учитывая, что у меня есть type TStudentPtr = ^TStudent; //...

Запись двусвязного списка в файл и чтение
Помогите как записывать в файл список а потом его считывать и уже работать с...

Чтение файлов
Здравствуйте, как сделать так, чтобы программа выводила на экран строки их...

Чтение файлов из архива 7zip
Как вывести содержимое текстового файла, находящегося в архиве *.7z, в memo и...

Чтение информации из текстовых файлов
Здравствуйте. Делаю программу с тестированием, и возникает вопрос... Знаю,...

2
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
20.10.2012, 19:36 #2
Правильно будет так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.ReadFile1Click(Sender: TObject);
var f:TextFile;
    s,dir:string;
    i:Integer;
 
begin
for i:=0 to ListBox2.Items.Count-1 do
   begin
     AssignFile(f,ListBox2.Items[i]); //!!!!!!!!!!
     Reset(f);
     while not Eof(f) do 
                 begin
                  Readln(f,s);
                  Memo2.Lines.Add(s); 
                  end;
           CloseFile(f);
   end;
end;
А вообще чтение в Memo можно делать так:
Delphi
1
2
3
4
5
6
7
procedure TForm1.ReadFile1Click(Sender: TObject);
var
   i:Integer;
begin
  for i:=0 to ListBox2.Items.Count-1 do
    Memo2.Lines.LoadFromFile(ListBox2.Items[i]);
end;
0
droider
Universal
Эксперт Pascal/Delphi
4393 / 2441 / 763
Регистрация: 04.10.2012
Сообщений: 8,875
20.10.2012, 20:10 #3
Для поиска в Memo

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var
fstr:string; // Искомая строка
i:integer; // Счетчик для цикла
begin
fstr:=Edit1.Text; //задаем текст для поиска
For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(fstr, Memo1.Lines.Text)<>0 then
begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(fstr, Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(fstr);
end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2012, 20:10

Чтение данных из XML файлов
Есть у кого ни будь пример чтения данных из XML файлов. Выложите плиз или ...

Сохранение и чтение из типизированных файлов
Здравствуйте. У меня есть структура, в которой хранится инфа о компанентах...

Чтение из файлов doc и docx
подскажите как можно прочитать текст из этих файлов.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru