Консультация № 117854
10.01.2008, 20:05
0.00 руб.
0 1 1
Здрасти уважаемые эксперты. Вопросик вроде и не сложный но всёже : в Microsoft*овском Excel*е есть протяжка пишим всолбик 1 2 3 а протяжкой 4 5 6 итд. Я хотелбы реализовать такую протяжку у меня на Form1 стоит 2 Edit*а и 1 Memo и кнопка мне нужно реализовать протяжку 1 и 2 едите числа а при нажатие на кнопку чтоб в мемо производилась протяжка ещё 10 значений. желательно с примером зарание спасибо.

Обсуждение

Неизвестный
10.01.2008, 20:48
общий
это ответ
Здравствуйте, Мокроусов Алексей Сергеевич!

Код в приложении.
Протяжку можно осуществлять не только целых чисел, но и вещественных (дробных).

Для примера, введите в один едит "1,9" (без ковычек), а во второй "2". получите протяжку от "2,1" до "3", с шагом 0,1. Можно поменять числа местами.


Приложение:
procedure TForm1.Button1Click(Sender: TObject);var i: integer; d,n: Extended;begin //Получаем 2-ое число n:=StrToFloat(Edit2.Text); //Ищем разницу между числами введенными в двух едитах d:=n-StrToFloat(Edit1.Text); //Очищаем мемо, это необязательно, но для наглядности удобно Memo1.Clear; for i:=1 to 10 do begin //Находим очередное число "протяжки" n:=n+d; //Добавляем это число в мемо Memo1.Lines.Add(FloatToStr(n)); end;end;
Форма ответа