Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.07.2006, 22:48
CyberWoman CyberWoman вне форума
Прохожий
 
Регистрация: 27.06.2006
Сообщения: 4
Репутация: 10
Вопрос Как считать данные из файла и выдать их в окно?

Привет, всем!
Программа на Delphi.
Задача: Надо считать данные из существующего файла (к примеру, текстового) и отобразить их в окне.
Например:
(a)cодержание текст.файла (см. так, как написано):
P.S. [строка с пробелами] - это пустая строка и она присутствует в тексте.

[строка с пробелами]
Курс "Привет, тебе!"
[строка с пробелами]
1. Агафонов Иван ГР-1123
2. Сидоренко Мария ГР-1123
3. Носков Роман ГР-1123
4. Ручкина Яна ГР-1123
[строка с пробелами]
5. Наумов Леонид ГР-7895
6. Красавина Вера ГР-7895
[строка с пробелами]
7. Пасквалина Ляля ГР-9401
[строка с пробелами]

(б) вид окна д.б. таким:
________________________________________
|_______ФИО_______|_________Номер гр_____|
Агафонов Иван ГР-1123
Сидоренко Мария ГР-1123 и т.д.

Проблема состоит в том, как считать все данные из файла, минуя все пустые строки и пробелы, и отобразить их в окне. И,еще какой компонент надо использовать для отображения данных, к примеру, для ini подходит TValueListEditor, а в моем случае какое подойдет? Пробовала использовать TlistView, но не поняла, как вставить данные из файла...

Пожалуйста, помогите мне решить эту задачу. Было бы время, я бы постаралась разобраться, но это нужно срочно...
Заранее благодарю.
Ответить с цитированием
  #2  
Старый 27.07.2006, 23:48
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Если говорить о текстовом файле, то можно так:

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<b>procedure</b> TForm1.Button1Click(Sender: TObject);
<b>var</b>
  sl: TStringList;
  i: integer;
<b>begin</b>
   sl := TStringList.Create;
   sl.LoadFromFile( <font color="RoyalBlue">'путь_к_файлу.txt'</font> );
 
   <font color="royalblue"><i>// Удаление пустых строк</i></font>
   <b>for</b> i := sl.Count-<font color="royalblue">1</font> <b>downto</b> 0 <b>do</b>
      <b>if</b> Trim( sl.Strings[i] ) = <font color="RoyalBlue">''</font> <b>then</b>
         sl.Delete( i );
 
   Memo1.Lines := sl;
   sl.Free;
<b>end</b>;

По поводу того, какой компонент подойдет тебе, Все зависит от того, что тебе нужно в конечном итоге. Если нужно просто прочесть файл, то Memo вполне подойдет. А Если нужно отобразить в ListView, пиши так:

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<b>procedure</b> TForm1.Button2Click(Sender: TObject);
<b>var</b>
  sl: TStringList;
  i: integer;
  li: TListItem;
<b>begin</b>
   sl := TStringList.Create;
   sl.LoadFromFile( <font color="royalblue">'путь_к_файлу.txt'</font> );
 
   <b>for</b> i := 0 <b>to</b> sl.Count-<font color="royalblue">1</font> <b>do</b>
      <b>if</b> Trim( sl.Strings[i] ) <> <font color="royalblue">''</font> <b>then</b>
      <b>begin</b>
         li := ListView1.Items.Add;
         li.Caption := sl.Strings[i];
      <b>end</b>;
 
   sl.Free;
<b>end</b>;
Ответить с цитированием
  #3  
Старый 28.07.2006, 22:57
CyberWoman CyberWoman вне форума
Прохожий
 
Регистрация: 27.06.2006
Сообщения: 4
Репутация: 10
По умолчанию

Decoding,
Большое тебе спасибо за отклик и за примеры - они мне очень помогли, а точнее дали мне мощный толчок в решении проблемы )
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:07.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025