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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

24
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=0;
while i <= memo1.Lines.count-1 do
if length(memo1.Lines.Strings[i])>4 then memo1.Lines.Delete(i)
else inc(i)
end;
Пример 2. Создать оконное приложение, вычисляющее первые 20
элементов арифметической прогрессии, для которой заданы первый
элемент и разность. Окно работающего приложения :
Процедура обработки события щелчка по кнопке Заполнить:
procedure TForm1.Button1Click(Sender: TObject);
var a,d,an,i:integer;
begin
a:=strtoint(edit1.Text);
d:=strtoint(edit2.Text);
memo1.Lines.Add(edit1.Text);
an:=a;
for i:=2 to 20 do 
                                     24




    procedure TForm1.Button1Click(Sender: TObject);
    var i:integer;
    begin
    i:=0;
    while i <= memo1.Lines.count-1 do
    if length(memo1.Lines.Strings[i])>4 then memo1.Lines.Delete(i)
    else inc(i)
    end;

Прим ер 2. Созд а ть окон н ое прилож ен ие, вычисля ю щее первые 20
элем ен тов а риф м етической прогрессии, д ля кот орой за д а н ы первый
элем ен т и ра зн ост ь. Окн о ра б ота ю щего прилож ен ия :




Процед у ра об ра б отки соб ыт ия щелчка по кн опке За полни т ь:
    procedure TForm1.Button1Click(Sender: TObject);
    var a,d,an,i:integer;
    begin
    a:=strtoint(edit1.Text);
    d:=strtoint(edit2.Text);
    memo1.Lines.Add(edit1.Text);
    an:=a;
    for i:=2 to 20 do

Страницы