GAMS Data Exchange API

Page 8
NrRecs : integer;
UELS : TgdxUELIndex;
Vals : TgdxValues;
FDim : integer;
N : integer;
ErrMsg : shortstring;
ErrNr : integer;
acrname : shortstring;
acrtext : shortstring;
acrindx : integer;
begin
//Check the library
if not gdxGetReadyX(ErrMsg)
then
begin
WriteLn('Error loading GDX library, msg = ', ErrMsg);
Halt(1);
end;
//Create GDX object and open file for writing
gdxCreateX(PGX, ErrMsg);
gdxOpenWriteEx(PGX, 'test.gdx', 'testing', 0, ErrNr);
//register some unique elements
gdxUELRegisterRawStart(PGX);
for N := 1 to 5
do gdxUELRegisterRaw(PGX, 'uel' + IntToStr(N));
gdxUELRegisterDone(PGX);
//write a parameter with two acronyms
gdxDataWriteRawStart(PGX, 'symb1', 'text for symb1', 1, Ord(dt_par), 0);
for N := 1 to 5
do begin
UELS[1] := N;
if N in [2, 4]
then
Vals[vallevel] := gdxAcronymValue(PGX, N)
else
Vals[vallevel] := N;
gdxDataWriteRaw(PGX, UELS, Vals);
end;
gdxDataWriteDone(PGX);
//provide the names for the acronyms used
for N := 1 to gdxAcronymCount(PGX)
do begin
gdxAcronymGetInfo(PGX, N, acrname, acrtext, acrindx);
if acrindx = 2
then
gdxAcronymSetInfo(PGX, N, 'acro1', 'Some text for acro1', acrindx)
else
if acrindx = 4
then
gdxAcronymSetInfo(PGX, N, 'acro2', 'Some text for acro2', acrindx)
end;
//final check for errors before we close the file
N := gdxClose(PGX);
if N 0
then
begin
gdxErrorStr(Nil, N, ErrMsg);
WriteLn('Error writing file = ', ErrMsg);
Halt(1);
end;
gdxFree(PGX);
//open the file we just created
gdxCreateX(PGX, ErrMsg);
gdxOpenRead(PGX, 'test.gdx', ErrNr);
if ErrNr 0
GDX GAMS Data Exchange Dealing with
acronyms
GAMS Data Exchange API
1.3
Page 8 2.4
12/3/2012