Siema. Refaktoryzuję sobie kod i chciałem wydzielić go na moduły. Moduł mi się kompiluje jednak podczas próby jego dołączenia do innego nie bangla - pluje błędami kompilacji. Możecie powiedzieć gdzie popełniam błąd ?
Moduł załączany.
unit PricingClasses;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
{Reprezentacja pozycji cennika}
PricingPosition = record
nazwa: AnsiString;
grupa: AnsiString;
jednostka: AnsiString;
cenaMin: Currency;
cenaMax: Currency;
end;
p_PricingPosition = ^PricingPosition;
{Reprezentacja naglowka cennika}
PricingHeader = record
data: AnsiString;
typ: AnsiString;
id: Integer;
end;
p_PricingHeader = ^PricingHeader;
{ TPricing }
TPricing = class(TObject)
private
LPricingPositions : TList;
Header : PricingHeader;
public
constructor Pricing(Positions: TList; NHeader: PricingHeader);
constructor Pricing(Path: AnsiString);
end;
implementation
{ TPricing }
constructor TPricing.Pricing(Positions: TList; NHeader: PricingHeader);
begin
end;
constructor TPricing.Pricing(Path: AnsiString);
begin
end;
end.
Moduł główny
unit MainWin;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, IBConnection, sqldb, DB, BufDataset, memds, FileUtil,
Forms, Controls, Graphics, Dialogs, DBGrids, Arrow, DBCtrls, StdCtrls,
ComCtrls, PricingClasses;
{ TBrowseVendors }
TBrowseVendors = class(TForm)
Button1: TButton;
DatasourceVendors: TDatasource;
DBGrid1: TDBGrid;
DBGridVendors: TDBGrid;
VaDBConnection: TIBConnection;
SQLQueryVendors: TSQLQuery;
SQLTransaction1: TSQLTransaction;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormShow(Sender: TObject);
function ParseWGRO(HtmlFile: ansistring): TList;
procedure CustomizeDBGrid(var Grid : TDBGrid);
private
{ private declarations }
public
{ public declarations }
end;
var
BrowseVendors: TBrowseVendors;
implementation
{$R *.lfm}
.......