Решить задачу в DELPHI 7

[Надежда_ИСУ]

Здравствуйте!Подскажите пожалуйста что здесь не так???

Цикл с параметром (For).
Даны два целых числа A и B(A< B).Вывести в порядке возрастания все целые числа,расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.

procedure TForm1.Button1Click(Sender: TObject);
var A,B,i,N: integer;

begin
  begin
 for i:=A to B do Label3.Caption:=i;
  end;
  N:=B-A+1;
  Label4.Caption:=(N);
end;
end.

[Stilet]

for i:=A to B do Label3.Caption:=Label3.Caption+IntToStr(i);

[Надежда_ИСУ]

Сообщение от Stilet

for i:=A to B do Label3.Caption:=Label3.Caption+IntToStr(i);

А можно в какой нибудь другой компанент вывести, а то тут такая длинная строка получается???

[Mad_Cat]

А можно в какой нибудь другой компанент вывести

Конечно выводите выбор огромный)
например

for i:=A to B do Memo1.text:=Memo1.text+IntToStr(i)+' ';

[Надежда_ИСУ]

Сообщение от Mad_Cat

Конечно выводите выбор огромный)
например

for i:=A to B do Memo1.text:=Memo1.text+IntToStr(i)+' ';

Спасибо!А в каком месте кол-во чисел выводится???

[Надежда_ИСУ]

Сообщение от Stilet

for i:=A to B do Label3.Caption:=Label3.Caption+IntToStr(i);

Спасибо!!!

[Stilet]

А в каком месте кол-во чисел выводится???

А нет его здесь. Вот смотри:

for i:=A to B do Memo1.Lines.Append(IntToStr(i));
Memo1.Lines.Append('Колво - '+IntToStr(B-A));

[Mad_Cat]

Memo1.Lines.Append('Колво - '+IntToStr(B-A+1));

[Надежда_ИСУ]

Сообщение от Stilet

А нет его здесь. Вот смотри:

for i:=A to B do Memo1.Lines.Append(IntToStr(i));
Memo1.Lines.Append('Колво - '+IntToStr(B-A));

Ой, спасибочки!!!Что бы я без Вас делала!!!

[Надежда_ИСУ]

Сообщение от Mad_Cat

Memo1.Lines.Append('Колво - '+IntToStr(B-A+1));

Большое спасибо!