|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как считать данные из файла и выдать их в окно?
Привет, всем!
Программа на 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
|
||||
|
||||
Если говорить о текстовом файле, то можно так:
Код:
procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; i: integer; begin sl := TStringList.Create; sl.LoadFromFile( 'путь_к_файлу.txt' ); // Удаление пустых строк for i := sl.Count-1 downto 0 do if Trim( sl.Strings[i] ) = '' then sl.Delete( i ); Memo1.Lines := sl; sl.Free; end; По поводу того, какой компонент подойдет тебе, Все зависит от того, что тебе нужно в конечном итоге. Если нужно просто прочесть файл, то Memo вполне подойдет. А Если нужно отобразить в ListView, пиши так: Код:
procedure TForm1.Button2Click(Sender: TObject); var sl: TStringList; i: integer; li: TListItem; begin sl := TStringList.Create; sl.LoadFromFile( 'путь_к_файлу.txt' ); for i := 0 to sl.Count-1 do if Trim( sl.Strings[i] ) <> '' then begin li := ListView1.Items.Add; li.Caption := sl.Strings[i]; end; sl.Free; end; |
#3
|
|||
|
|||
Decoding,
Большое тебе спасибо за отклик и за примеры - они мне очень помогли, а точнее дали мне мощный толчок в решении проблемы ) |