Hi,
bin grad dabei, n Programm zu schreiben, hab aber ein Problem.
Delphi-Quellcode:
begin
n:=0;
r:=StrtoInt(LabeledEdit2.Text);
maxzahl:=StrtoInt(LabeledEdit1.Text);
breite:=Image1.Picture.Width;
hoehe:=Image1.Picture.Height;
repeat
x:=random(breite);
y:=random(hoehe);
farbe:=Image1.Canvas.pixels[x,y];
Image1.Canvas.pen.color:=farbe;
Image1.Canvas.brush.color:=farbe;
//case method of
//1:
Image1.Canvas.ellipse(x-r,y-r,x+r,y+r);
//2: Image1.Canvas.Rectangle(x-r,y-r,x+r,y+r);
inc(n);
until n>=maxzahl;
Image1.Refresh;
end;
Wenn ich die // wegnehme (und den zugehörigen Befehl zu 1: in eine Zeile setze), komme folgende Fehler:
[Error] Unit1.pas(97): Constant expression expected
[Error] Unit1.pas(102): Statement expected but 'PROCEDURE' found
Z. 97 ist diese: "inc(n);"
Z. 102 ist der Anfang der nächsten Prozedur (procedure TForm1.BitBtn1Click(Sender: TObject)
Kann mir jemand weiterhelfen? Ich möchte, wie man im Quelltext sieht, verschiedene Methoden benutzen können, indem ich im Menü von verschiedenen Möglichkeiten eine auswählen kann, das dann "gespeichert" wird und ich über einen separaten Button den Befehl dann ausführen kann. Wie das mit dem Auswählen geht, müsste ich auch noch mal erklärt bekomme, bitte^^
Danke und schönen Abend noch.