Hallo, ich bin relativ unerfahren mit freePascal.
Bei der Arbeit mit meinem Projekt, bin auf ein Problem gestoßen, kann nur leider die Lösung nicht finden
Hier einmal der Fehler:
Zitat:
obj_colorfilter.pas(15,1) Fatal: Syntax error, "identifier" expected but "BEGIN" found
Der Fehler entsteht bei dem ersten 'begin'.
und hier der quelltext:
Delphi-Quellcode:
unit obj_colorfilter;
interface
uses
Classes, SysUtils, Graphics;
type ColorFilter =
Object
//allgemeine Variebelen (private)
private
filterColor: TColor;
toleranzRed, toleranzYellow, toleranzBlue: Integer;
function start (
const bmp : TBitmap) : TBitmap;
//bitmap Koordinaten
var x, y: Integer;
maches: Boolean;
begin
//navigation in der Bitmap
for x:= 0
to bmp.Width-1
do
begin
for y:= 0
to bmp.Height-1
do
begin
matches:= false;
//filtern der Farbe in Verbindung mit der Toleranz:
color:= bmp.Canvas.Pixels(x, y);
if(Red(color) > Red(filterColor)-toleranzRed & Red(color) < Red(filterColor)+toleranzRed)
begin
color:= bmp.Canvas.Pixels(x, y);
if(Blue(color) > Blue(filterColor)-toleranzBlue & Blue(color) < Blue(filterColor)+toleranzBlue)
begin
color:= bmp.Canvas.Pixels(x, y);
matches:= true;
end;
end;
if(Yellow(color) > Yellow(filterColor)-toleranzYellow & Yellow(color) < Yellow(filterColor)+toleranzYellow)
bmp.Canvas.Pixels[x, y].RGBToColor(255, 255, 255);
else
bmp.Canvas.pixels[x, y].RGBToColor(0, 0, 0);
end;
end;
//rückgabe
start:= bmp;
end;
//setters ----------------------------------------------------------------------
function setColor(value: TColor)
begin
color:= valu;
end;
function setTolleranz(red, yellow, blue: Integer)
begin
toleranzRed:= red;
toleranzYellow:= yellow;
toleranzBlue:= blue;
end;
//Create & destroy -------------------------------------------------------------
Constructor Init(color: TColor)
begin
filterColor:= color;
end;
Destructor CleanUp;
end.
Ach und bevor ich es vergesse,
meine freePascal Version: FPC-Version 3.0.0
vielen Dank schon einmal im vorraus.
