[fpc-pascal]Synapse for FPC

[Lukas Gebauer]

> > begin
> >  SetLength(Username,255);
> >  GetUserName( pchar(Username), 255 );
> >  Setlength(username,strlen(pchar(username));
> > end
> FPC may let you do that, but Delphi will have an error about not passing
> const params iirc. That or the result is garbage back from Windows.

??? I am using this constructs under Delphi without problems... :-O

--
Lukas Gebauer.

E-mail: gebauerl at mlp.cz
http://www.ararat.cz/synapse/ - Ararat Synapse - TCP/IP Lib.