07.02.2012, 10:54
|
|
Начинающий
|
|
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
|
|
Код:
var i,j:integer;
begin
i:= strtoint(Edit1.Text);
j:= strtoint(Edit2.Text);
while i<=j do
begin
inc(i);
Memo1.Lines.Add(inttostr(i));
end; |