[TotKtoNado]

Всем привет
вроде код написан правильно но мне не получаеться двигать компонент.

Код:

var x1,x2,y2,y1:integer;
begin
x1:=strtoint(Shape1.left);
x2:=1;
shape1.left:=inttosr(x1+x2);
end;

Пишет [Error] Unit1.pas(30): Incompatible types: 'String' and 'Integer'
Как же так если все правильно? Зато это работает на едите на свойстве текст.

[v1s2222]

Код:

var x1,x2,y2,y1:integer;
begin
x1:=Shape1.left;
x2:=1;
shape1.left:=inttosr(x1+x2);
end;

[x128]

Пишет [Error] Unit1.pas(30): Incompatible types: 'String' and 'Integer'

Правильно пишет, свойства Left, Right, Top и Bottom всегда были Integer и строку туда впихнуть не выйдет...

Код:

shape1.left:=shape1.left+1;