Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Bezeichner (https://www.delphipraxis.net/147185-bezeichner.html)

furgi 3. Feb 2010 09:43


Bezeichner
 
Hallo,
ich habe ein Problem mit einem Bezeichner in der uinit 2
Fehlermeldung: fehlender Bezeichner stddev und sum,
es geht allerdings probeweise in der unit1 ohne unit2






Code:
Delphi-Quellcode:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses unit2;

  procedure TForm1.Button1Click(Sender: TObject);
 var arrb :array[0..3] of double;
  stb, summe:double;
  Durchschnitt:double;

begin
        arrb[0]:=3;
        arrb[1]:=2;
        arrb[2]:=5;
        arrb[3]:=1;
    summe:=sum(arrb);
    Durchschnitt:=mean(arrb);
   stb:=stddev(arrb);
   berechnen(stb);
    end;


end.




unit Unit2;

interface
 procedure berechnen(summe,stb:double);



implementation
procedure berechnen;
begin

 stb:=stddev(arrb);
  summe:=sum(arrb);
end;

end.
[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]

DeddyH 3. Feb 2010 09:49

Re: Bezeichner
 
Hallo und Willkommen in der DP :dp:,

füge einmal auch in der Unit2 math zur uses-Klausel hinzu. BTW: Schließe Code bitte künftig in Delphi-Tags ein, dann ist er besser zu lesen.

Astat 3. Feb 2010 09:49

Re: Bezeichner
 
Hallo furgi, uses Math hinzufügen.


Delphi-Quellcode:

unit Unit2;

interface

uses
  Math;

...

//-- EDIT

Zu spät.. :stupid:

lg. Astat

furgi 3. Feb 2010 10:23

Re: Bezeichner
 
vielen Dank,funktioniert jetzt.
hatte wohl die Übersicht verloren.


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:51 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz