{$I:'stadev.inc'}
{open the .sta file}
handle := StaOpenFile ("c:\stat\simple.sta");
{add variable names}
StaSetVarName(handle, 1, "Name");
StaSetVarName(handle, 2, "Age");
StaSetVarName(handle, 3, "PocketMo");
StaSetVarName(handle, 4, "Gender");
StaSetVarName(handle, 5, "BirthDay");
StaSetVarName(handle, 6, "ATime");
StaSetVarName(handle, 7, "Degrees1");
StaSetVarName(handle, 8, "Degrees2");
StaSetVarName(handle, 9, "Degrees3");
{add long variable names}
StaSetVarLongName(handle, 1, "Name of respondent");
StaSetVarLongName(handle, 2, "Age of person");
StaSetVarLongName(handle, 3, "Money in pocket");
StaSetVarLongName(handle, 4, "Gender");
StaSetVarLongName(handle, 5, "DateOfBirth");
StaSetVarLongName(handle, 6, "ATime");
StaSetVarLongName(handle, 7, "Degrees");
StaSetVarLongName(handle, 8, "Degrees");
StaSetVarLongName(handle, 9, "Degrees");
{add text values}
StaAddLabel(handle, 4, 1, "Male", "Male");
StaAddLabel(handle, 4, 2, "Female", "Female");
for i:= 7 to 9 do begin
StaAddLabel(handle, i, 1, "Bachelor", "Bachelors");
StaAddLabel(handle, i, 2, "Masters", "Masters");
StaAddLabel(handle, i, 3, "PHd", "PHd");
end;
{close the .sta file and accept changes}
StaCloseFile(handle);
Exit;
| Back to List of Programs |
![[StatSoft]](../../../images/sssmall.gif)
2300 East 14th Street, Tulsa, OK 74104
Phone: (918) 749-1119; Fax: (918) 749-2217
e-mail: info@statsoft.com
©Copyright StatSoft, Inc., 1984-2004.
StatSoft, StatSoft logo, STATISTICA, SEWSS, SEDAS, Data Miner, SEPATH and GTrees are trademarks of StatSoft, Inc.