hi,
folgendes Problem ich habe zur Übung der Klassen mir ein Prog. geschrieben zur Wurzelberechnung. So dafür habe ich die
Unit: Unit2Wurzel erstellt. Dort befindet sich folgender Quelltext:
Delphi-Quellcode:
unit Unit2Wurzel;
interface
type
TWurzel =
class
protected
Wurzel:double;
public
function set_Wurzel(zahl:double):double;
end;
implementation
function TWurzel.set_Wurzel(zahl:double):double;
begin
wurzel:=sqrt(zahl);
result:=wurzel;
end;
end.
das habe ich dann mit der
Unit 1 aufgerufen und dann beim Kompilieren des Programms kommt folgender Fehler das ein Operator oder ein Semikolon fehlt.
Hier der Code der
Unit 1
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, unit2wurzel;
type
TForm1 =
class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Ergebnis:TWurzel;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:=Floattostr(Ergebnis(StrToFloat(Edit1.text)));
end;
end.
der Quellcode funktioniert aber wenn ich keine Klassen verwende also das hier edit2.text:=Floattostr(Ergebnis(StrToFloat(Edit1.t ext))); und dort kommt der Oben beschrieben Fehler
Gruß