Лабораторная работа №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 для ввода элементов списка строк из текстового файла.
Имя файла задать любым из известных Вам способов.