Konstantenausdruck in case-Verzweigung erwartet

[nachti1505]

Du hast deinen ersten case-block gar nicht abgeschlossen....

Delphi-Quellcode:

procedure TForm1.BEinsClick(Sender: TObject); 
begin 
with imbild.Canvas do 
begin 
  case pixels[45,105] of 
    clred: begin brush.color:=clred; floodfill (15, 15, clblack, fsborder); end; 
    clyellow: begin brush.color:=clyellow; floodfill (15, 15, clblack, fsborder); end; 
    clgreen: begin brush.color:=clgreen; floodfill (15, 15, clblack, fsborder); end; 
    clwhite: begin brush.color:=clwhite; floodfill (15, 15, clblack, fsborder); end; 
    clblue: begin brush.color:=clblue; floodfill (15, 15, clblack, fsborder); end; 
    clfuchsia: begin brush.color:=clfuchsia; floodfill (15, 15, clblack, fsborder); end; 
  end; // <-- diese END; fehlt

....

[Fuchspower]

Achso, ich wusste nicht, dass ein case so etwas ist wie ein begin. Danke für die Info

EDIT: Es funktioniert, vielen Dank :)