Программирование в среде Delphi. Часть 2. Создание оконных приложений. Садовская О.Б. - 23 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

23
Удаляет все строки и указатели на объекты из списка .
procedure Delete(index:integer);
Удаляет из списка элемент с индексом index.
procedure Exchange(index1, index2:integer);
Меняет местами два элемента списка с индексами index1 и index2.
procedure Insert(index:integer; const S:string);
Вставляет в список строку S под индексом index.
procedure Move(Curindex, Newindex:integer);
Перемещает элемент списка из позиции Curindex в позицию
Newindex.
procedure LoadFromFile(const FileName:string);
Загружает список из файла с именем FileName.
procedure SaveToFile(const FileName:string);
Помещает список в файл с именем FileName.
Пример 1. Создать оконное приложение, позволяющее вводить с кла -
виатуры список строк в поле редактора Memo1, а затем нажатием
кнопки переписывать все строки, содержащие более 4 символов, в
поле редактора Memo2.
Окно работающего приложения :
Процедура обработки события щелчка на кнопке Переписать строки :
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to memo1.lines.count-1 do
if length(memo1.Lines.Strings[i])>4 then
memo2.Lines.add(memo1.Lines.Strings[i]);
end.
Пример 1a. Создать оконное приложение, позволяющее вводить с кла -
виатуры список строк в поле редактора Memo, а затем нажатием
кнопки удалять все строки, содержащие более 4 символов. 
                                           23
У д а ля ет все строки и у ка за т ели н а об ъект ы из списка .
procedure Delete(index:integer);
У д а ля ет из списка э   лем ен т с ин д ексом index.
procedure Exchange(index1, index2:integer);
М ен я ет м ест а м и д ва элем ен т а списка с ин д екса м и index1 и index2.
procedure Insert(index:integer; const S:string);
В ст а вля ет в список строку S под ин д ексом index.
procedure Move(Curindex, Newindex:integer);
Перем еща ет э      лем ен т списка из позиции Curindex в позицию
Newindex.
procedure LoadFromFile(const FileName:string);
З а гру ж а ет список из ф а йла с им ен ем FileName.
procedure SaveToFile(const FileName:string);
Пом еща ет список в ф а йл с им ен ем FileName.

Прим ер1. Созд а т ь окон н ое прилож ен ие, позволя ю щее ввод ит ь с кла -
виа т у ры список ст рок в поле ред а кт ора Memo1, а за тем н а ж а т ием
кн опки переписыва т ь все ст роки, сод ерж а щие б олее 4 сим волов, в
поле ред а кт ора Memo2.
Окн о ра б от а ю щего прилож ен ия :




Процед у ра об ра б отки соб ыт ия щелчка н а кн опке П ерепи са т ь ст роки :
    procedure TForm1.Button1Click(Sender: TObject);
    var i:integer;
    begin
    for i:=0 to memo1.lines.count-1 do
    if length(memo1.Lines.Strings[i])>4 then
    memo2.Lines.add(memo1.Lines.Strings[i]);
    end.

Прим ер1a. Созд а т ь окон н ое прилож ен ие, позволя ю щее ввод ит ь с кла -
виа т у ры список ст рок в поле ред а кт ора Memo, а за т ем н а ж а тием
кн опки у д а ля т ь все строки, сод ерж а щие б олее 4 сим волов.

Страницы