Ich habe ein Form1 und eine Unit. Das programm findet die Unit nicht
unit uversion;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, IBConnection, sqldb, dbconnect;
type { TUVersion1 }
TUVersion1 = class(TObject)
private
public
procedure getVersion;
end;
implementation
uses sysdokustartu1;
procedure TUVersion1.getVersion;
begin
Form1.caption := 'Hallo';
end;
end.
Unit2
unit sysdokustartu1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, DividerBevel, ExtendedNotebook, Forms, Controls,
Graphics, Dialogs, ComCtrls, StdCtrls, Menus, Buttons, ExtCtrls, aboutusu,
IBConnection, sqldb, dbconnect, uversion;
type
{ TForm1 }
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn10: TBitBtn;
DividerBevel1: TDividerBevel;
DividerBevel4: TDividerBevel;
Edit1: TEdit;
Edit2: TEdit;
IBConnection1: TIBConnection;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
ListView1: TListView;
ListView2: TListView;
MainMenu1: TMainMenu;
MenuItem1: TMenuItem;
MenuItem10: TMenuItem;
MenuItem11: TMenuItem;
MenuItem12: TMenuItem;
MenuItem13: TMenuItem;
MenuItem14: TMenuItem;
MenuItem15: TMenuItem;
MenuItem16: TMenuItem;
MenuItem17: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
PageControl1: TPageControl;
PageControl2: TPageControl;
PageControl3: TPageControl;
Panel1: TPanel;
Panel2: TPanel;
SQLQuery1: TSQLQuery;
SQLTransaction1: TSQLTransaction;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
procedure FormShow(Sender: TObject);
procedure MenuItem15Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.MenuItem15Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
UVersion1.getVersion; //Hier kommt dann der Fehler! Er findet den Verweis auf die Klasse nicht.
end;
end.
Wäre über eure Hilfe Dankbar!