barbod_ahmadi
دوشنبه 09 خرداد 1384, 14: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 ;