Лабораторная работа 11. Работа с файлами

2011-2012 учебный год

Краткая теория

К сегодняшнему занятию Вами изучены следующие элементы управления

• 1. Edit

  2. Label

  3. Button

  4. RadioButton

  5. CheckBox

  6. SpinEdit (на вкладке Misc)

  7. FloatSpinEdit (на вкладке Misc)

  8. ListBox (на вкладке Standard)

  9. Memo (на вкладке Standard)

  10. GroupRadioButton (на вкладке Standard)

  11. ShowMessage, MessageBox

  12. StringGrid (на вкладке Additional)

Компонент Image в Lazarus

Компонент Image - на вкладке компонентов Additional.

Об отметках

Основные упражнения не отмечены никакими специальными знаками, их выполнения достаточно для удовлетворительной оценки. Дополнительные упражнения отмечены "звездочками", их выполнение необходимо для получения повышенной оценки.

• • "5" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной и двумя "звездочками".

  • "4" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной "звездочкой".

  • "3" - в отчете выполнены все основные упражнения.

Упражнения

• 1. Галерея. Сохранить перечень имен файлов, введенный в компонент Memo, на диск в текстовый файл с заданным именем. Предусмотреть возможность очистки списка и загрузки списка из указанного файла.

  2. Требования к выполнению. Использовать компонент Memo.

  3. Пример интерфейса

• 1. Пример программы

     1. // Глобальные константы.

     2. const

     3.    EMPTY_NAME = 'Имя файла не задано!';

     4. procedure TForm1.Button1Click(Sender: TObject);

     5. var

     6.    f_name : string;

     7. begin

     8.    f_name := Edit1.Text;

     9.    if f_name <> '' then

     10.       Memo1.Lines.SaveToFile(f_name)

     11.    else ShowMessage(EMPTY_NAME);

     12. end;

     13. procedure TForm1.Button2Click(Sender: TObject);

     14. var

     15.    f_name : string;

     16. begin

     17.    f_name := Edit2.Text;

     18.    if f_name <> '' then

     19.       Memo1.Lines.LoadFromFile(f_name)

     20.    else ShowMessage(EMPTY_NAME);

     21. end;

     22. procedure TForm1.Button3Click(Sender: TObject);

     23. begin

     24.    Memo1.Clear;

     25. end;

  2. Галерея 2. Создать программу для просмотра хранящихся на диске изображений в формате JPEG.

  3. Требования к выполнению. Все файлы с изображениями хранятся в подпапке img папки с приложением; для изображений использовать компонент Image с вкладки Additional панели компонентов.

  4. Пример интерфейса

• 1. Пример программы

     1. // Глобальные переменные.

     2. var

     3.    i : Integer;

     4. procedure TForm1.FormCreate(Sender: TObject);

     5. begin

     6.  //Image1.Picture.LoadFromFile('./img/chess.jpg');

     7.  Image2.Picture.LoadFromFile('./img/guitar.jpg');

     8.  i := ListBox1.Count - 1;

     9.  Image1.Picture.LoadFromFile('./img/'+ListBox1.Items.Strings[i]);

     10.  Edit1.Text:=ListBox1.Items.Strings[i];

     11.  Edit2.Text := IntToStr(i);

     12.  ListBox1.Selected[i]:=True;

     13. end;

     14. procedure TForm1.Button1Click(Sender: TObject);

     15. begin

     16.  //Image1.Picture.LoadFromFile('./img/cat-eye.jpg');

     17.  if i<(ListBox1.Count - 1) then Inc(i);

     18.  Edit2.Text := IntToStr(i);

     19.  Edit1.Text:=ListBox1.Items.Strings[i];

     20.  Image1.Picture.LoadFromFile('./img/'+ListBox1.Items.Strings[i]);

     21.  ListBox1.Selected[i]:=True;

     22. end;

     23. procedure TForm1.Button2Click(Sender: TObject);

     24. begin

     25.  //Image2.Picture.LoadFromFile('./img/flake.jpg');

     26.  if i>0 then Dec(i);

     27.  Edit2.Text := IntToStr(i);

     28.  Edit1.Text:=ListBox1.Items.Strings[i];

     29.  Image1.Picture.LoadFromFile('./img/'+ListBox1.Items.Strings[i]);

     30.  ListBox1.Selected[i]:=True;

     31. end;

  2. Гистограмма. В текстовом файле хранятся размер одномерного массива, в первой строке, в остальных строках элементы массива по-одному. Вывести массив в столбик с помщью компонента TStringGrid.

  3. Требования к выполнению.Использовать компонент TStringGrid с вкладки Additional панели компонентов.

  4. Пример интерфейса

• 1. Пример программы

     1. // Глобальные константы.

     2. const

     3.    ID_COL = 0;

     4.    FIRST_COL = 1;

     5.    EMPTY_NAME = 'Имя файла не задано!';

     6.    ID_CNT = 0;

     7. procedure TForm1.Button1Click(Sender: TObject);

     8. var

     9.    f_name : string;

     10.    n, i   : Integer;

     11. begin

     12.    f_name := Edit1.Text;

     13.    if f_name <> '' then

     14.       ListBox1.Items.LoadFromFile(f_name)

     15.    else ShowMessage(EMPTY_NAME);

     16.    Label3.Caption := ListBox1.Items.Strings[ID_CNT];

     17.    n := StrToInt(ListBox1.Items.Strings[ID_CNT]);

     18.    StringGrid1.RowCount := n;

     19.    for i := 1 to n do begin

     20.        StringGrid1.Cells[ID_COL, i - 1] := IntToStr(i);

     21.        StringGrid1.Cells[FIRST_COL, i - 1] := ListBox1.Items.Strings[i];

     22.    end;

     23. end;

  2. *Досье. Создать модель базы данных с изображениями и текстовыми характеристиками к ним.

  3. Требования к выполнению.Использовать компонент PageControl с вкладки Common Controls панели компонентов.

Домашнее задание

• 1. Домашняя галерея. В задаче "Галерея" из Упражнений использовать диалоговые окна сохранения и открытия файла.

  2. Требования к выполнению. Использовать стандартные диалоги.

  3. Домашняя галерея 2. В задаче "Галерея 2" из Упражнений загрузить список имен файлов из текстового файла.

  4. Требования к выполнению. Использовать стандартные диалоги.