возникает ошибка Missing operator or semicolon (классы)

[fate]

вот такой код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
 Tsin=class
  private
  Amplitude:integer;
  Period:integer;
  MSin:integer;
  procedure MySin(const x:integer);
  public
  Constructor Create; overload;
  property PAmplitude:integer write Amplitude;
  property PPeriod:integer write Period;
  property TMySin:integer read MSin write MySin;
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer; Tsin1:Tsin;
begin
Tsin1:=Tsin.Create;
     with Form1 do
      begin
      Canvas.MoveTo(0, Tsin1.TMySin(0)); //в этой строке ошибка
     for i:=0 to Width do
       with Canvas do
         begin
           LineTo(i, Tsin1.TMySin(i));
           MoveTo(i, Tsin1.TMySin(i));
         end;
     end;
Tsin1.Free;
end;



{ Tsin }

constructor Tsin.Create;
begin
inherited;
MSin:=0;
 Amplitude := 50;
 Period := 50;
end;

procedure Tsin.MySin(const x: integer);
begin
 MSin := round(sin(x/Period)*Amplitude)+Amplitude*2
end;



end.

и даже когда я делаю так
private
// procedure MySin(const x:integer);
public
procedure MySin(x:integer);
т.е. переношу процедуру в public и пишу в коде Tsin ставлю точку выпадает список полей и свойств этого класса среди которых нет процедуры MySin.
Может я смотрю на проблему как говорится с близи, не понимаю что я делаю не так

[ArtGrek]

Canvas.MoveTo(0, Tsin1.TMySin(0)); //в этой строке ошибка

Tsin1.TMySin(0) если под етим имелось ввиду MSin
то

  property TMySin:integer read GetMSin write MySin;

function Tsin.GetMySin(const x: integer) : integer;
begin
 MSin := round(sin(x/Period)*Amplitude)+Amplitude*2
end;

Canvas.MoveTo(0, GetMySin(0));

как то так

[fate]

read GetMSin

а что чтение происходит только из функции? если я из переменной хочу читать?
зачем мне и в функции и в процедуре одно и то же действие?

[Stilet]

MSin := round(sin(x/Period)*Amplitude)+Amplitude*2

Это что за провокация???
Ану бегом читать о том как в функциях Делфи возвращать результат и в частности про ключевое слово Result!!!

И кстати: Свойство описано неверно.

[fate]

Canvas.MoveTo(0, GetMySin(0));

а это я вообще не понял, если метод GetMySin это элемент класса Tsin
как же ты к нему обращаешься

[fate]

Stilet это замечание кому из нас адрисованно?
у меня нет функций в коде

так как мне обратиться правильно (причитать и записать) к процедуре
MySin через свойство?

[Stilet]

Правда??
А это что :

sin1.TMySin(i)

Это вызов функции а не свойства.
Переделывай стратегию. Перепиши эту часть как чистую функцию-метод, и не морочь голову со свойством коли ему нужно передавать параметры.

[fate]

Stilet а что ж свойству не передается параметр? как же write
я пробовал так sin1.TMySin:=i; тоже ошибка, но другая, там что-то о не соответствии типов
Вы под моим кодом читали сообщение?
так что и с методом не выходит, почему не понятно

[ArtGrek]

коли ему нужно передавать параметры

и оно в ответ должно возврашать результат
читаи читаи )


ЗЫ. Stilet а мне с моим вопросом поможете?

[fate]

ArtGrek без обид, но у меня сложилось впечатление что ты туговат с ООП а еще советы даешь