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]