image in Procedur Verwenden

[DaniX]

Moin,
ich hab keine Ahnung wieso aber irgendwie kommen bei meiner Prozedur mit der ich einfach nur 'n Kreis Zeichnen wollte die Fehlermeldungen:
[Fehler] Unit1.pas(43): E2003 Undefinierter Bezeichner: 'image1'
[Fehler] Unit1.pas(45): E2003 Undefinierter Bezeichner: 'moveTo'

wenn jemand den Fehler dierekt im Programm erkennen könnte oder ihn auch so weis wäre mir sehr geholfen:

Delphi-Quellcode:

procedure Kreis(a,b:integer);
var x,y,r,w:integer;
begin
a:=100;
b:=100;
r:=50;
with image1.Canvas do
  begin
  moveTo(a-r,b);
  for x:=-r to r do
    begin
    w:=r*r-x*x;
    y:=Round(sqrt(w));
    lineTo(a+x,b+y);
    end;
  moveTo(a-r,b);
  for x:=-r to r do
    begin
    w:=r*r-x*x;
    y:=Round(sqrt(w));
    lineTo(a+x,b-y);
    end;
  end;
end;

[edit=Luckie]Delphi-Tags korrigiert. Mfg, Luckie[/edit]

[Luckie]

Deine Prozedur ist keine Methode deiner Form-Klasse und kennt somit das Image nicht. Mach sie zu einer Methode deiner Form-Klasse und du kannst auf das Image zugreifen.

[Hobby-Programmierer]

Zitat:

Zitat von Luckie

Deine Prozedur ist keine Methode deiner Form-Klasse und kennt somit das Image nicht. Mach sie zu einer Methode deiner Form-Klasse und du kannst auf das Image zugreifen.

oder einfacher ausgedrückt: zb. übergebe TImage der Prozedur

Delphi-Quellcode:

procedure Kreis(a,b:integer; MyImage: TImage);
...
  with MyImage.Canvas do
...

[DaniX]

Irgendwie klappt dann aber immer noch nicht die Übergabe der Parameter a,b:
-->bei: "Kreis(xp,yp)" kommt die Fehlermedung: nicht genügendwirkliche Parameter

[Luckie]

Du musst jetzt natürlich noch das Image als Parameter mit angeben.

[DaniX]

Danke, wenns ni so'n Forum gäb würd i no an meiner eignen Blödheit ersaufen.