Графики в Делфи!

[Anton5]

Спасибо Большое!!!
А как реализовать перемещение шара по командам с клавиатуры в пределах экрана??

Можно еще вопрос не по этой теме!
Вот проверка ввода:

Procedure TForm1.StringGrid1KeyPress(Sender:TObject; Var Key:Char);
Begin
Case Key of #8, #32, '0'..'9':;
else Key:=chr(0);
End;
End;

Преподаватель задал мне установить длину для чисел(а то можно ввести огромное число, например 8888888888999999999999999...) и чтобы знак -(минус) тоже вводился (для отрицательных чисел)... Кто знает, подскажите как, пожалуйста!

[Stilet]

А вот хотя бы здесь начальные знания:http://www.programmersforum.ru/showthread.php?t=1206
Вот еще глянь: http://www.programmersforum.ru/showthread.php?t=90035

[Anton5]

Вот программа, реализующая перемещение шара с помощью клавиатуры:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 i:=100;
 Canvas.Brush.Style:=bsClear;
 while i>1 do begin
  Canvas.Ellipse(Width div 2-i,Height div 2-100,Width div 2+i,Height div 2+100);
  Canvas.Ellipse(Width div 2-100,Height div 2-i,Width div 2+100,Height div 2+i);
  dec(i,10);
 end;
end;


procedure TForm1.FormKeyPress(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin
if key=VK_UP then Shape1.Top:=Shape1.Top-2;
if key=VK_LEFT then Shape1.Left:=Shape1.Left-2;
if key=VK_DOWN then Shape1.Top:=Shape1.Top+2;
if key=VK_RIGHT then Shape1.Left:=Shape1.Left+2;
end;

end.

Только шар не перемещается! Помогите найти ошибку!!!!

[romlo]

Очень просто. Ты пытаешься обратиться к объекту shape. Но у тебя его на форме нет.

[romlo]

Кинь на форму image со вкладки additional,
растяни на 201х201,
canvas в коде замени на image1.canvas,
width на image1.width,
height на image1.height,
shape1 на image1.
Вот и всё.

[Девочка-Скандал]

Ты пытаешься обратиться к объекту shape. Но у тебя его на форме нет.

а это что

Shape1: TShape;

[romlo]

Короче, вот исходник с комментариями...

Аа, ну да. Но этот компонент совсем не то, что мы рисуем на canvas.
Shape - это отдельный компонент.

[Anton5]

Объясните, пожалуйста, как именно рисуется шар :

while i>1 do begin           
  image1.Canvas.Ellipse(image1.Width div 2-i,image1.Height div 2-100,image1.Width div 2+i,image1.Height div 2+100);
  image1.Canvas.Ellipse(image1.Width div 2-100,image1.Height div 2-i,image1.Width div 2+100,image1.Height div 2+i);
  dec(i,10);
 end;

Что это означает (image1.Width div 2-i), а потом image1.Width div 2-100)???

А вот здесь запись clientheight-image1.height что она означает??
If image1.Top >= clientheight-image1.height then
k:=0; //если шарик коснулся нижней границы, то
//скорость вниз = 0.

Заранее спасибо.

[romlo]

Сначала отвечу на второй вопрос:
image1.top и image1.left - это координаты верхнего левого пикселя шара.
Сравнивая их в нулём (координатами верхней и левой границы) мы ограничиваем шар правильно. Сравнивая же их с правой и нижней границами, мы позволяем почти всему шару исчезнуть за границей(кроме данного пикселя). Поэтому идёт сдвиг в сравнении ровно на размер шара.
Картинки красным объяснят.

Что касается первого вопроса:
div 2 - это нацело поделить на 2. Делается это, чтобы отсчёт шел от середины картины.
Налеюсь, ты заметил, что шар рисуется эллипсами - сплюснутыми кругами.
Так вот, чтобы нарисовать, например, вертикальную сетку, надо сделать кучу эллипсов с равной высотой, но разной шириной. Высота в данном
случае равна 100, а ширина каждый раз уменьшается на i. Тоже и с горизонтальными.

[Anton5]

Помогите мне разобраться с задачей!!!
4. Написать рекурсивную программу вычисления суммы N первых членов арифметической прогрессии.

Насколько я знаю, функция выглядит так:

var a1,d,n:integer;
function S(n:integer):real;
Begin
  if n = 1 then
    S := a1
  else
    S:= S(n-1) +a1+d*(n-1);
End;

А как написать саму программу в Делфи???
Заранее, спасибо.