Добрые люди! Помогите исправить программу!

[Lifefine]

Всем привет! Помогите пожалуйста. У меня такой вопрос, я пишу на Дельфи, хотелось перевести некоторый код на С++, у меня выдается ошибка, не знаю почему это так:
Вот код (на Дельфи, работающий):

Procedure Titanic (x,y:integer; Color:TColor);
const dx=5;
        dy=5;
var buf:TColor;
begin
with (Form1.Canvas) do
begin
buf:=pen.Color;
pen.Color:=Color;
MoveTo(x,y);
LineTo(x+2;y+2);
end;

Перевел этот код на С++, выдает ошибку.
Код:

void Titanic (int x,int y, TColor Color){
const dx=5;
const dy=5;
TColor buf;
while (Form1->Canvas) {
buf=Pen=>Color;//Здесь ошибка :-( 
Pen->Color=Color;// Здесь тоже ошибка :-( }}

[netrino]

with (Form1.Canvas)
while (Form1->Canvas)
разницы не замечаете? ) хотя бы в переводе на русский ) (with - с, while - пока)
В C++ аналога with нет, всегда нужно указывать полный путь доступа к методам и полям класса. Также в C++ отменили int по умолчанию, потому после const не забудьте дописать int

[Гром]

Сколько я помню, with X do - это конструкция, позволяющая работать с элементами X. while - это цикл. Т.е. получается, что пока указатель на канвас формы не равен нулю (а это, по идее, будет до закрытия программы) будет выполняться... несколько не то, что вы ожидали.
Сделайте так:

void Titanic (int x,int y, TColor Color){
const int dx=5;
const int dy=5;
TColor buf;
buf = Form1 -> Canvas -> Pen -> Color;
Form1 -> Canvas -> Pen -> Color = Color;

З.Ы. Не успел...

[Lifefine]

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

with (Form1.Canvas)
while (Form1->Canvas)
разницы не замечаете? ) хотя бы в переводе на русский ) (with - с, while - пока)
В C++ аналога with нет, всегда нужно указывать полный путь доступа к методам и полям класса. Также в C++ отменили int по умолчанию, потому после const не забудьте дописать int

Спасибо за сообщение! Я заметил, просто когда вставлю with но С++ не воспринимает.

[Lifefine]

Сообщение от Гром

Сколько я помню, with X do - это конструкция, позволяющая работать с элементами X. while - это цикл. Т.е. получается, что пока указатель на канвас формы не равен нулю (а это, по идее, будет до закрытия программы) будет выполняться... несколько не то, что вы ожидали.
Сделайте так:

void Titanic (int x,int y, TColor Color){
const int dx=5;
const int dy=5;
TColor buf;
buf = Form1 -> Canvas -> Pen -> Color;
Form1 -> Canvas -> Pen -> Color = Color;

З.Ы. Не успел...

Спасибо! Сейчас попробую вставить код!

[Lifefine]

Спасибо всем! Тему можно закрыть!