Function Pointer Access Violation

[gmkizzle]

Trying to write a function that waits for the result of a function().

function ConditionWait(condition: function: Boolean; ms: Integer): Boolean;
var
timeout: TCountDown;
begin
timeout.SetTime(ms);;
repeat
if (timeout.IsFinished()) then
Exit(False);
until(condition()); // Access Violation Here
Exit(True);
end;

This is how I am calling it. I am getting an access violation.
if (ConditionWait(@TDialogue.HasDialogue(), 5000)) then
begin
// ...
end

[Laquisha]

Trying to write a function that waits for the result of a function().

function ConditionWait(condition: function: Boolean; ms: Integer): Boolean;
var
timeout: TCountDown;
begin
timeout.SetTime(ms);;
repeat
if (timeout.IsFinished()) then
Exit(False);
until(condition()); // Access Violation Here
Exit(True);
end;

This is how I am calling it. I am getting an access violation.
if (ConditionWait(@TDialogue.HasDialogue(), 5000)) then
begin
// ...
end

Good luck figuring out any ogLib code - the most un-user-friendly thing ever to be written on these forums.

Anyway, just use waitTypeFunc() from SRL-6. Should be what you need.

https://github.com/SRL/SRL-6/blob/master/lib/utilities/time.simba#L331

[Kasi]

Remove parenthesis.

[AFools]

Good luck figuring out any ogLib code - the most un-user-friendly thing ever to be written on these forums.

Anyway, just use waitTypeFunc() from SRL-6. Should be what you need.

https://github.com/SRL/SRL-6/blob/master/lib/utilities/time.simba#L331

LOLed!

[tomhank1511]

Good luck figuring out any ogLib code

[tls]

First off, you are trying to call a type function without using a reference to an actual instance of that type.
Second, you are trying to pass in a different type than is expected. When using a type function you have to append "of object" to the return type of the parameter:


program new;

type foo = record
bar: integer;
end;

function foo.baz(): boolean;
begin
exit(true);
end;

// what you have
function waitforcondition(callback: function: boolean; timeout: integer): boolean;
var
start: longword;
begin
start := getsystemtime;
while (start + timeout) >= getsystemtime do
begin
if callback then exit(true);
wait(5);
end;
end;

// what you need
function waitforcondition(callback: function: boolean of object; timeout: integer): boolean; overload;
var
start: longword;
begin
start := getsystemtime;
while (start + timeout) >= getsystemtime do
begin
if callback then exit(true);
wait(5);
end;
end;

var
f: foo;
begin
// create an instance of foo
f := [1];
// use that instance's function reference, not the type reference
writeln(waitforcondition(@f.baz, 3000));
end.

[Joopi]

This thread was dead since a long time but the spambot grave dug it...

[Harrier]

This thread was dead since a long time but the spambot grave dug it...

So? tls gave a decent answer which explained stuff which wasn't in earlier posts and it wasn't grave dug according to the current rules.

[acow]

So? tls gave a decent answer which explained stuff which wasn't in earlier posts and it wasn't grave dug according to the current rules.

Joopi; was just practicing not quoting/@mentioning anybody in a post. Exceptional work this time around fam, keep it up.

[rj]

Joopi; was just practicing not quoting/@mentioning anybody in a post. Exceptional work this time around fam, keep it up.

yeah exceptional backseat modding by Joopi as always LOL


why did the derep button have to go

[Joopi]

My point being that whoever asked this question has long since stopped caring and hasnt even been logged in for several weeks. Harrier;

But sure someone, at some point, might need it in 10 years or so. But not worth the effort.

[Harrier]

My point being that whoever asked this question has long since stopped caring and hasnt even been logged in for several weeks. Harrier;

But sure someone, at some point, might need it in 10 years or so. But not worth the effort.

Just because someone hasn't logged in for two weeks means you shouldn't answer it and explain it? My God and tls put the effort in so who cares? It's there is someone needs it in the future.