Code:
unit uBookmark;
interface
uses
Sysutils, Forms;
type TBookmark = class
protected
version: string;
public
constructor create();
function isvalid: boolean;
procedure setversion(bm_version: string);
function getversion: string;
end;
implementation
var bookmark: TBookmark;
constructor TBookmark.create();
begin
end;
procedure TBookmark.setversion(bm_version: string);
begin
version:= bm_version;
end;
function TBookmark.getversion: string;
begin
result:= version;
end;
function TBookmark.isvalid: boolean;
begin
if 'blablabla'= getversion then
result:= true;
else
result:= false;
end;
ich habe diese
unit in mein hauptprogramm geladen und versuche nun getversion aufzurufen(nachdem ich setversion aufgerufen habe). Wenn ich das mache ist alles OK, wenn ich nun aber direkt aus dieser, oben geposteten,
unit getversion aufrufen will, kommt in dieser zeile immer ein fehler:
ich kann die funktion isvalid, die auf getversion zugreift, also nicht fehlerfrei ausführen.
ich hoffe ihr habts verstanden und könnt mir weiterhelfen, bin hier schon kurz vorm verzweifeln
PS: bin neu in der programmierung von units