Лабораторная работа №4

Создать папку MySource4 в папке D:\PSAS\113\ииииии (xxx – номер группы, ииииии – фамилия студента), чтобы хранить файлы проекта, которые вы создадите с прикладной программой.

Используя приведенный пример как образец добавить к Вашему проекту объекты типа TВutton со следующими функциями: добавление элемента к списку строк, удаление элемента из списка строк, вставка элемента в список строк. Значение вставляемой строки ввести с помощью объекта TЕdit.

 

procedure TForm1.Button3Click(Sender: TObject);

var MyList : TStringList;

 

function MyStr(MyList : TStringList): String;

var Str : String;

      i : Integer;

begin

  Str:=’ ‘;

  for i:=0 to MyList.Count-1 do

  begin

    Str:=Str+MyList[i]+’ ‘;

  end;

  MyStr:= Str;

end;

 

begin

  MyList:= TStringList.Create;

  MyList.Add(‘One’);

  MyList.Add(‘Two’);

  MyList.Add(‘Three’);

 

  ShowMessage(MyStr(MyList));

  MyList.Delete(1);

  ShowMessage(MyStr(MyList));

  MyList.Insert(1, ‘Minus’);

  ShowMessage(MyStr(MyList));

end;

 

Модифицировать Ваш проект, добавив к нему объект типа Tвutton для вывода элементов списка строк в текстовый файл.

 

myfile:textfile;

assignfile(myfile,name1file);

rewrite(myfile);

writeln(myfile,bufer);

closefile(myfile);

Имя файла задать любым из известных Вам способов.

Модифицировать Ваш проект, добавив к нему объект типа Tвutton для ввода элементов списка строк из текстового файла.

Имя файла задать любым из известных Вам способов.