OOP-Delphi-Anfänger

[hotkey]

Vielen Dank für den Ansatz.

Diese Fehler habe ich glaub ich gefunden , eins jedenfalls.

Für den Anfang sollen wir die Methoden unter dem implentation-Teil schreiben.

So sieht mein Code aus , ich kriege aber einen Identifiier redeclared für Xpos , YPos , Hoehe und Breite

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    RechteckBTN: TButton;
    LoeschBTN: TButton;
    EndeBTN: TButton;
    PaintBox1: TPaintBox;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  TRechteck = class
    Hoehe:integer;
    Breite:integer;
    XPos:integer;
    YPos:integer;

    private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    XPos:integer;
    YPos:integer;
    Hoehe:integer;
    Breite:integer;
    end;

 end;



var
  Form1: TForm1;
  Rechteck: TRechtecke;

implementation
 procedure TRechteck.Zeichne(canvas:TCanvas);
begin
  canvas.Pen.Color := clBlack;
  // 1. Linie
  canvas.MoveTo(XPos, YPos);
  canvas.MoveTo(XPos, YPos+breite);
  // 2. Linie
  canvas.MoveTo(XPos+Hoehe, YPos+breite);
  // 3. und 4. Linie ist dein Job :-)
end;






{$R *.dfm}

end.

FEHLER:
[Error] Unit1.pas(31): Identifier redeclared: 'XPos'
[Error] Unit1.pas(32): Identifier redeclared: 'YPos'
[Error] Unit1.pas(33): Identifier redeclared: 'Hoehe'
[Error] Unit1.pas(34): Identifier redeclared: 'Breite'
[Error] Unit1.pas(37): 'IMPLEMENTATION' expected but ';' found
[Error] Unit1.pas(45): '.' expected but 'IMPLEMENTATION' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Teekeks]

Zitat von hotkey:

Delphi-Quellcode:

  TRechteck = class
    Hoehe:integer;
    Breite:integer;
    XPos:integer;
    YPos:integer;

    private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    XPos:integer;
    YPos:integer;
    Hoehe:integer;
    Breite:integer;
    end;

Du Deklarierst hier auch alle 4 Variablen 2x.
Wenn du die Oben weg nimmst, stimmt es wieder

Edit: oder auch nicht.
Das von Aphton auch noch.
Gruß Teekeks