barbod_ahmadi
دوشنبه 09 خرداد 1384, 03:05 بعد از ظهر
Var
Length : integer ;
Tempusername : Pchar ;
Begin
Length := 20 ;
GetMem ( TempUserName , length ) ;
//use it
freeMem ( tempUserName) ;
end ;
Length : integer ;
Tempusername : Pchar ;
Begin
Length := 20 ;
GetMem ( TempUserName , length ) ;
//use it
freeMem ( tempUserName) ;
end ;