Nope, that does not work as delphi 2009 starts to complain about pansichar and pchar not being the same thing and gives an compile error.
Looking at the type of the command i came up with this:
Code:
procedure TGLSLProgram.SetF(aname: PGLcharARB; arg: GLFloat);
begin
glUniform1fARB(glGetUniformLocationARB(FProgramObject, aname ), arg);
end;
And that works :-)
But i dont like using PGLcharARB in a class it want to use string. But again this does NOT work:
Code:
procedure TGLSLProgram.SetF(aname: string; arg: GLFloat);
begin
glUniform1fARB(glGetUniformLocationARB(FProgramObject, PGLcharARB(aname) ), arg);
end;
Sigh ....
Bookmarks