"identifier" expected but "BEGIN" found

[F1r3man]

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.

[uligerhardt]

1. Mach doch bitte Delphi-Tags statt unspezifischer Code-Tags um deine Quellcode-Ausschnitte.
2. Formatiere doch mal deinen Quelltext. So, wie er jetzt ist, kann man nicht erkennen, welches begin zu welchem end gehört. Und irgendsowas ist nämlich dein Problem.

Edit - mehr Genörgel:

1. Du verwendest das Keyword object. Ich würde dringend auf class umsteigen. object dient der Rückwärtskompatibilität zu DOS-Programmen.
2. Scheinbar versuchst du, Methoden "inline" in der Klasse zu implementieren. Das geht in Delphi nicht - in FP vermutlich genausowenig.

[Christian Seehase]

Moin,

erst einmal herzlich Willkommen hier in der Delphi-Praxis.

Die genaue Syntax von Freepascal kenne ich zwar auch nicht,
aber für mein Verständnis müsste das, verallgemeinert, so aussehen:

Delphi-Quellcode:

Type
  Typenbezeichner = class
  private
    Felddeklarationen
    Methodenköpfe
  protected
  public
    constructor
    destructor
  end;

implementation
  Implementierung der Methoden

[F1r3man]

Zitat von uligerhardt:

1. Mach doch bitte Delphi-Tags statt unspezifischer Code-Tags um deine Quellcode-Ausschnitte.
2. Formatiere doch mal deinen Quelltext. So, wie er jetzt ist, kann man nicht erkennen, welches begin zu welchem end gehört. Und irgendsowas ist nämlich dein Problem.

Edit - mehr Genörgel:

1. Du verwendest das Keyword object. Ich würde dringend auf class umsteigen. object dient der Rückwärtskompatibilität zu DOS-Programmen.
2. Scheinbar versuchst du, Methoden "inline" in der Klasse zu implementieren. Das geht in Delphi nicht - in FP vermutlich genausowenig.

Zitat von Christian Seehase:

Moin,

erst einmal herzlich Willkommen hier in der Delphi-Praxis.

Die genaue Syntax von Freepascal kenne ich zwar auch nicht,
aber für mein Verständnis müsste das, verallgemeinert, so aussehen:

Delphi-Quellcode:

Type
  Typenbezeichner = class
  private
    Felddeklarationen
    Methodenköpfe
  protected
  public
    constructor
    destructor
  end;

implementation
  Implementierung der Methoden

vielen dank, ihr beide, ich setze mich mal drann...
melde mich wenn ich das fertig hab xD

[F1r3man]

danke,
ich habe jetzt einen Haufen anderer Fehler, aber endlich sind es welche die ich verstehe xD

[uligerhardt]

[himitsu]

Zitat:

Delphi-Quellcode:

if(...)
begin
  ...
end;

if(...)
  ...;
else
  ...;

Wo ist das THEN?
Und vor ELSE gehört kein ;

Der ganze Code sieht nach einer schlechten Übersetzung aus C/C++ aus.

Und wie bereits erkannt, kommt der Fehler von diesem BEGIN, also Implementation im Interface, was ja nicht geht.

Zitat:

Delphi-Quellcode:

function start (const bmp : TBitmap) : TBitmap;
  //bitmap Koordinaten
  var x, y: Integer;
      maches: Boolean;
begin

[Aviator]

Das "&" Symbol gibt es in Delphi in dem Zusammenhang nicht. Dafür benutzt du das Schlüsselwort and .

Delphi-Quellcode:

if ((a and b) = c) then begin
  // Do something
end;

[Jim Carrey]

Zitat von Aviator:

Das "&" Symbol gibt es in Delphi in dem Zusammenhang nicht. Dafür benutzt du das Schlüsselwort and .

Delphi-Quellcode:

if ((a and b) = c) then begin
  // Do something
end;

Und immer schön Klammern verwenden wie es Aviator auch tut denn ohne geht es in Delphi nicht.
Aber der Quelltext da oben... ich bin kein professioneller Programmierer oder so und mache viele Fehler. Aber der Quelltext da oben ist ein Verbrechen
Nicht vom Inhalt her sondern von der Syntax und vom Stil.

[himitsu]

Ohh, daß kleine & hatte ich glatt übersehn ... tja, wie gesagt, eine schlechte C-Übersetung
[QUOTE=Jim Carrey;1353067]

Zitat von Aviator:

Das "&" Symbol gibt es in Delphi in dem Zusammenhang nicht. Dafür benutzt du das Schlüsselwort and .

Und bezüglich der Klammern ... dafür kann man die äußere Klammer weglassen.

Der Grund für die erwähnten nötigen Klammen:
In Delphi ist Konkator (and or xor) höherrangiger, als ein Vergleich (<>=).
AND wird vor < oder > ausgewertet und in C/C++ ist das halt andersrum.