delphi - En form for komponent? - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #4468 @ 08.01.05 00:10

Hvordan laver jeg en slags komponent som skal indeholde nogle funktioner (dog ingen form's).

Derefter skal "komponentet" vel lægges i en bestemt mappe så jeg kan kalde det i toppen af mit dokument ligesom man kan med f.eks.

uses
Windows, Messages.... osv.

Har forsøgt mig lidt frem ved at prøve at gemme nogle units uden forms men ved ikke helt præcist hvordan jeg skal gøre. Så håber der lige er nogen der kan hjælpe.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

6 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma

Sorter efter stemmer Sorter efter dato

Bruger #5209 @ 08.01.05 00:38

165

Jeg er ikke helt sikker på hva du er ute etter, men jeg skal prøve.
Eksempel, minUnit.pas:

Kode

unit minUnit;

interface

uses Dialogs;

function ReturnString(S: String): String;
procedure ShowMsgBox(S: String);

implementation

function ReturnString(S: String): String;
begin
  Result := S;
end;

procedure ShowMsgBox(S: String);
begin
  ShowMessage(S);
end;

end.

minUnit.pas må ligge i samme mappe som prosjektet.
I ditt prosjekt kan du tilføye minUnit under uses, så kan du for eksempel kalle ShowMsgBox('Hello World!');
-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Bruger #4468 @ 08.01.05 00:57

221

Jeg er ikke helt sikker på hva du er ute etter, men jeg skal prøve.
Eksempel, minUnit.pas:
Kode
unit minUnit;

interface

uses Dialogs;

function ReturnString(S: String): String;
procedure ShowMsgBox(S: String);

implementation

function ReturnString(S: String): String;
begin
  Result := S;
end;

procedure ShowMsgBox(S: String);
begin
  ShowMessage(S);
end;

end.
minUnit.pas må ligge i samme mappe som prosjektet.
I ditt prosjekt kan du tilføye minUnit under uses, så kan du for eksempel kalle ShowMsgBox('Hello World!');
-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Det skal gerne være så jeg kan kalde den fra ALLE projekter. Ligesom de indbyggede.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #5209 @ 08.01.05 03:21

165

Prøv å legg minUnit.pas i Delphi/Lib
-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Bruger #4468 @ 08.01.05 12:53

221

Prøv å legg minUnit.pas i Delphi/Lib
-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Hmm når jeg gør det siger den at den funktion jeg har lavet i "komponentet'" er undeclared.

Men kunne forestille mig det havde noget med min kode at gøre?
Her er Unit1:

Kode

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  Tal: integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Tal:= 256;
Label1.Caption:= DecimalToBinary(Tal);
end;

end.

og her er komponent filen (BinDecHex.pas):

Kode

unit BinDecHex;

interface

implementation

function DecimalToBinary(Decimal: Integer):String;

osv...

Og her fejlen:
[Error] Unit1.pas(30): Undeclared identifier: 'DecimalToBinary'

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 08/01-05 13:11:29 af Rune Jensen (RoZ)]

Bruger #5209 @ 08.01.05 13:18

165

Du må definere den med å sette funksjonen i
interface
function DecimalToBinary(Decimal: Integer)

tring;

implementation
function DecimalToBinary(Decimal: Integer)

tring;
begin
...
end;
-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

[Redigeret d. 08/01-05 13:18:43 af DiZpel]

Bruger #4468 @ 09.01.05 12:47

221

Du må definere den med å sette funksjonen i
interface
function DecimalToBinary(Decimal: Integer)tring;

implementation
function DecimalToBinary(Decimal: Integer)tring;
begin
...
end;
-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

[Redigeret d. 08/01-05 13:18:43 af DiZpel]

Okay. Mange tak for hjælpen

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

En form for komponent?

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler