OOP-Delphi-Anfänger

[hotkey]

Hallo ,

wir haben im Informatikunterricht mit der Objektorientierten Programmierung in Delphi angefangen.

Am Anfang haben wir die gnazen Begriffe geklärt (Instanzen,Objekte , Klassen und Methoden).

Jetzt sollen wir folgendes machen :

Der Lehrer will von uns , dass wir Mithilfe der OOP in Delphi ein Rechteck programmieren , das sich mit einem Buttonklick zeichnen lässt.(Nicht grad einfach).


Bin so weit gekommen :

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;

  TRechtecke = class             // Hier ist die Klassenbeschreibung
    laenge:integer;
    breite:integer;

    private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }



   end;


var
  Form1: TForm1;
  Rechteck: TRechtecke;

implementation

procedure rechteckmachen();
    begin
    Form1.Paintbox1.Canvas.MoveTo(20,20);   // Diese procedure soll irgendwie so eine Art Anfang sein für das Zeichnen.
    Form1.Paintbox1.Canvas.MoveTo(100,100);
    end;





{$R *.dfm}

end.

Und jetzt , da passiert nix sobald ich auf den Button drücke.

Das Problem ist ja , ich kenn die Befehle garnicht , mit denen man so ein Rechteck zeichnen soll.
Bitte nicht so kompliziertes sagen/empfehlen , hab nicht so viel Erfahrung mit OOP.
Ist das erste Mal , dass ich mit Klassen etc arbeite und selbst Klassen erstelle.

[shmia]

Ein Rechteck hat ja nicht nur eine Höhe und Breite sondern auch noch eine X- und Y-Position.
Also sieht deine Rechteckklasse so aus:

Delphi-Quellcode:

TRechteck = class            // ein Rechteck im 2-dimensionalen Raum
private
   { Private-Deklarationen }
public
  { Public-Deklarationen }
  XPos:integer;
  YPos:integer;
  Hoehe:integer;
  Breite:integer;
end;

Jetzt soll dein Rechteck gezeichnet werden.
Dazu benötigt man eine Zeichenfläche (TCanvas) und eine Methode die das Zeichnen übernimmt:

Delphi-Quellcode:

TRechteck = class            // ein Rechteck im 2-dimensionalen Raum
private
   { Private-Deklarationen }
public
  { Public-Deklarationen }
  procedure Zeichne(canvas:TCanvas);
  XPos:integer;
  YPos:integer;
  Hoehe:integer;
  Breite:integer;
end;

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;

[Aphton]

Kleiner Schönheitsfehler:
Methoden müssen nach Feld/Variablendeklarationen kommen!

Anderer Fehler:
MoveTo() bewegt den "Stift" (ohne eine Linie zu ziehen)
LineTo() hingegen zieht auch eine Linie!

Und wer das Rad nicht neu erfinden will, der benützt
Rectangle()

[shmia]

Zitat von Aphton:

Kleiner Schönheitsfehler... Anderer Fehler...

Die Fehler habe ich mit Absicht eingebaut, damit "hotkey" auch etwas mitdenken muss.

[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'

[Aphton]

Zitat von shmia:

Zitat von Aphton:

Kleiner Schönheitsfehler... Anderer Fehler...

Die Fehler habe ich mit Absicht eingebaut, damit "hotkey" auch etwas mitdenken muss.

Aber klar doch

@hotkey
Eigne dir die Delphi Syntax an.
Du hast die Methode Zeichne nicht definiert. Daher kennt die undeklarierte Methode auch die Elemente der übergeordnetten Klasse nicht!

[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

[hotkey]

Zitat von Aphton:

Zitat von shmia:

Zitat von Aphton:

Kleiner Schönheitsfehler... Anderer Fehler...

Die Fehler habe ich mit Absicht eingebaut, damit "hotkey" auch etwas mitdenken muss.

Aber klar doch

@hotkey
Eigne dir die Delphi Syntax an.
Du hast die Methode Zeichne nicht definiert. Daher kennt die undeklarierte Methode auch die Elemente der übergeordnetten Klasse nicht!

Wie deklariere ich das bzw wie definiere ich das ? Könntes tdu mir bitte ein Tipp geben ?

Edit : Zeichne : TRechteck;

Ist das richtig ?

EDIT 2 : Danke auch an Teekeks !

[Teekeks]

Zitat von shmia:

Delphi-Quellcode:

TRechteck = class            // ein Rechteck im 2-dimensionalen Raum
private
   { Private-Deklarationen }
public
  { Public-Deklarationen }
  procedure Zeichne(canvas:TCanvas);
  XPos:integer;
  YPos:integer;
  Hoehe:integer;
  Breite:integer;
end;

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;

Ich kann

[hotkey]

Also Zeichne:TRechteck funzt nicht.

Aber ich muss ihm doch sagen , dass diese procedure die Variablem Xpos etc aus der Klasse entnehmen soll.

Da verstehe ich nicht , warum Zeichne:TRechteck nicht geht..