Hallo liebe Delphi-Community.
Ich habe seit ein paar Wochen mich etwas in das komplexe Leben von Delhpi versucht reinzuleben aber scheiter an so manchen ecken und kannte. Heute wars mal wieder so weit und drum bitte ich euch mir einmal eine hilfe zu geben.
Was ich hier schon in manchen Thread gelesen habt legt ihr hier wert darauf das jeder meistens auf seine eigenen fehler kommen soll in dem ihr ihm hauptsächlich nur anregungen gibt und keinen code vorsagt, was ich auch gut finde nur stelle ich mich manchmal echt blöd an, ich hoffe das wir das auch so gelöst kriegen
Nun mal zu meinem Problem.
Ich bin gerade dabei ein Programm zur Trigonometrie zu schreiben. Die Aufgabe besteht darin eine extra
Unit einzulagern und in dieser
Unit sollen 2 Funktionnen und eine Prouzedur enthalten sein. Ich poste euch einfach mal die Codes die ich dafür immoment schon habe!
Extra Unit
Delphi-Quellcode:
unit trigo;
interface
implementation
function gradzubogen(x:real):real;
begin
result:=x*0.01745;
end;
end.
Standard Unit
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, trigo, StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Panel1: TPanel;
E1: TEdit;
Label1: TLabel;
Button1: TButton;
E2: TEdit;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x,loesung:real;
begin
x:=strtofloat(E1.Text);
loesung:=gradzubogen(x);
E2.Text:=floattostr(loesung);
end;
end.
er gibt mir zu erkennen das er gradzubogen nicht kennt, also ein undefinierter bezeichner ist. liegt das daran das er gar nicht auf die
unit trigo drauf zu greift? wenn ja wie kann man das beheben?
freue mich über jede schnelle hilfe!!
danke mfg Lotus