![]() |
Delphi-Version: 5
Versuche Objektorientierung zu lernen
Hi,
ich hab jetzt verschiedene Tutorials gelesen und verstehe meine Fehler trotzdem nicht könntet ihr mir vllt helfen? unit 1:
Delphi-Quellcode:
unit2:
unit Unit1;
{$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit2; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; Rechnen:TRechnen; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); begin Rechnen:=TAddition.create; Label1.caption:=FlaotToStr(Rechnen.calcit(StrToFloat(Edit1.Text), StrToFloat(Edit2.Text))); Rechnen.Destroy; end; procedure TForm1.Button2Click(Sender: TObject); begin Rechnen:=TSubtraktion.create; Label1.caption:=FloatToStr(Rechnen.calcit(StrToFloat(Edit1.Text), StrToFloat(Edit2.Text))); Rechnen.Destroy; end; end.
Delphi-Quellcode:
Ja die Fehlermeldung ist denke ich egal(da sie auch nichts hilfreiches aussagt)
unit Unit2;
{$mode objfpc}{$H+} interface uses Classes, SysUtils; type TRechnen=class(TObject) public constructor create; function calcit(a,b:real):real;virtual; end; TAddition=class(TRechnen); public constructor create; function calcit(a,b:real):real;override; end; TSubtraktion=class(TRechnen); public constructor create; function calcit(a,b:real):real;override; end; var calcs:TRechnen; implementation function TAddition.calcit(a,b:real):real; begin result:=a+b; end; function TSubtraktion.calcit(a,b:real):real; begin result:=a-b; end; end. Ich möchte halt 2 Zahlen eingeben und dann als Ergebnis entweder den Summanden oder die Differenz bekommen. Das alles mit einer Klasse TRechnen welche weitervererbt wird an die Klassen TAddition und TSubtraktion. Ich hoffe ihr könnt mir dies erklären. Außerdem würde ich mich freuen wenn mir jemand nocheinmal mit eigenen Worten den Sinn von inhirated und die genaue Funktionsweise des constructors erklären könnte. (Den constructor braucht man irgendwie um Speicher für die klasse zu reservieren und sie zu erstellen, was bedeutet dies genau? Und inherited ka wird halt manchmal auch hingeschrieben und manchmal nicht...) PS.: Ich benutze Lazarus falls es da irgendetwas spezielles zu beachten gibt. |
AW: Versuche Objektorientierung zu lernen
Zitat:
Die Glaskugel sagt "Forward declaration not solved: ....". Zitat:
Delphi-Quellcode:
bedeutet, dass die gleichnamige Methode der Elternklasse aufgerufen wird. Man kann hinter das
inherited
Delphi-Quellcode:
auch noch den Methodennamen und die Parameterliste schreiben, falls sich eines von beiden von der aktuellen Methode unterscheidet.
inherited
Zum Konstruktor: Es gibt im Speicher einen bestimmten Bereich, der sich "Heap" nennt. Alle Klasseninstanzen werden dort erstellt. Der Heapspeicher ist aber nicht sofort für die Anwendung verfügbar, sondern er muss ihr erst vom Betriebssystem zugewiesen werden. Auf unterster Ebene geht das mit malloc() und realloc(), aber das ist eine ganz schöne Frickelei. Der Konstruktor nimmt dir das ein bisschen ab und besorgt den Speicher für dich. Das tut er schon in der Basisklasse TObject, also wenn du immer brav
Delphi-Quellcode:
benutzt*, musst du dich darum nicht groß kümmern und kannst den Konstruktor allein dafür benutzen, die Felder zu initialisieren.
inherited
Zitat:
Oh und noch was: In Unit1 rufst du Rechnen.Destroy direkt auf. Tu das nicht! Jetzt im Moment geht das vielleicht noch gut, aber wenn die Programme mal komplexer werden, kann das schon eine potentielle Fehlerquelle werden. Nimm stattdessen Rechnen.Free! *) Bei Konstruktor und Destruktor werden sie auch automatisch ergänzt, wenn sie fehlen, von daher nicht allzu schlimm, wenn man sie dort vergisst. |
AW: Versuche Objektorientierung zu lernen
zur Fehlermeldung:
nein sie sagt: Unit2.pas(19,7) Fatal: Syntax error, "=" expected but "CONSTRUCTOR" found So danke für die kurze Erklärung. Nur nochmal zum Verständnis: Wenn ich inherited benutze dann greife ich auf die Funktion der Mutterklasse zu also: constructor TAddtion.create; begin inherited; end; jetzt würde ich also wenn ich: Rechnen:=TAddition.create; Rechnen.calcit(a,b); und dies würde bei mir dann in der Mutterklasse landen und somit würde nichts passieren da diese ja in meinem Bsp. leer ist. ...und warum soll ich destroy nicht verwenden, in versch. Tutorials wurde Destroy verwendet in anderen free. Where is the difference? ...und wann muss ich überhaupt constructor create; schreiben und wann nicht und wo muss ich dass jeweils einfügen? |
AW: Versuche Objektorientierung zu lernen
Zitat:
Delphi-Quellcode:
beide Male ein Semikolon hast. Das heißt für den Compiler: "Hier ist der Typ zuende" - und daraufhin liest er 'public' und denkt, du willst noch einen weiteren Typen namens "public" deklarieren. Nimm die Semikola mal weg.
class(TRechnen)
|
AW: Versuche Objektorientierung zu lernen
Zitat:
Delphi-Quellcode:
und
TAddition=class(TRechnen); // <- das da
Delphi-Quellcode:
Des Weiteren finde ich noch
TSubtraktion=class(TRechnen); // <- das da
Delphi-Quellcode:
Aus diesen Gründen kommen bei mir auch immer sehr viele Leerzeichen in den Code - auch wenn der Styleguide diese verpönt - denn m.E. sieht man dann viel eher, dass da was nicht passt
Label1.caption :=
FlaotToStr( // das heißt FloatToStr :o) Rechnen.calcit( // 1. Parameter StrToFloat( // erwartet genau 1 Str-Parameter Edit1.Text, Edit2.Text // wozu also der 2. Parameter hier ??? ) // 2. Parameter ... wo ist der ??? ) );
Delphi-Quellcode:
...
Label1.Caption:=FloatToStr(Rechnen.CalcIt(StrToFloat(Edit1.Text, Edit2.Text))); ... Label1.Caption := FloatToStr( Rechnen.CalcIt( StrToFloat( Edit1.Text, Edit2.Text ) ) ); ... |
AW: Versuche Objektorientierung zu lernen
Zitat:
|
AW: Versuche Objektorientierung zu lernen
Ist public denn nicht ein "reserviertes Wort"?
So wie es aussieht, wird es (nach dem ; ) dennoch als Typenbezeichner erkannt und deswegen wird danach auch das = erwartet. :gruebel: |
AW: Versuche Objektorientierung zu lernen
Zitat:
Delphi-Quellcode:
und
read
Delphi-Quellcode:
.
write
Public kann gut eines davon sein, denn wo braucht man Public auch sonst außer in Klassen- und Nostalgie-Object-Deklarationen? |
AW: Versuche Objektorientierung zu lernen
Zitat:
Delphi-Quellcode:
macht ja nur Sinn im Kontext einer Typ-Deklaration, und die ist ja durch das ; schon abgeschlossen. Darum kann der Compiler das eben nicht richtig einsortieren ;)
public
EDIT: zu langsam ... na gut |
AW: Versuche Objektorientierung zu lernen
hi,
ja dass mit der Parameterübergabe bei den Funktionen war nen Tippfehler. ich hatte oben die Antwort noch editiert wie ich ergänzt hatte, da ihr so schnell geantwortet habt würde ich mich nun noch über Antworten auf die obigen Fragen freuen. Außerdem geht es leider noch nicht wenn ich den Fehler mit StrToFloat behoben habe, da dann der vorhergesagte Fehler auftritt.(Forward declaration not solved... was bedeutet dass wie behebe ich es?) Public ist reserviert und bedeutet soweit ich weiß dass die Methoden die unter Public definiert werden öffentlich sind und somit auch aus anderen Units/Klassen gesehen werden können und ich darauf zugreifen kann. PS: "Btw. "free" würde ich in Ruhe lassen. Überschreibe lieber Destroy." habe ich in anderen Foren gefunden? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:57 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz