Abhängigkeit zwischen Proceduren

[bundy]

Hy Leute !


ich hab folgendens

Delphi-Quellcode:

unit export;

interface

type
tuser = class(tobject)

public
function login (aUsername,aPassword,aIP,aDatabase:string):boolean;
procedure ResetTelVarGeb;
private

end;


implementation

uses Main, MyAccess;



{ tuser }

function tuser.login(aUsername, aPassword,aIP,aDatabase: string): boolean;
begin
 fmMain.MyConnection1.Username:=aUsername;
 fmMain.MyConnection1.Password:=aPassword;
 fmMain.MyConnection1.Server:=aIP   ;
 fmMain.MyConnection1.Database:=aDatabase;
 fmMain.MyConnection1.Connect;
 if fmMain.MyConnection1.Connected=true then
  begin
    Result:=True;
  end
  else
  Result:=false;
end;

procedure tuser.ResetTelVarGeb;
var
myQuery:TMyQuery;
begin
try
myQuery:=TMyQuery.Create(self);
myQuery.Connection:=fmMain.MyConnection1;
myQuery.SQL.Text:='update sap set TelVarGeb=""';
myQuery.Execute;
finally
  myQuery.Free;
end;

end;

end.

Nun meine Frage:

Wie kann ich eine Abhängigkeit erzeugen zwischen den proceduren.

zb.

user.ResetTelVarGeb kann erst dann ausgeführt werden, wenn die funktion user.login alls Result ein "true" liefert ?



lg
Bundy