GAMS Data Exchange API

Example 1
Page 12
Sets
i canning plants / seattle, san-diego /
j markets / new-york, chicago, topeka / ;
Example 1 in Delphi
Please note that the Delphi program also has been written in VB.NET; see VB.NET Example ( see Example 4: VB.NET
program, page 19).
program example1;
///////////////////////////////////////////////////////////////
// This program generates demand data for a modified version //
// of the trnsport model or reads the solution back from a //
// gdx file. //
// //
// Calling convention: //
// Case 1: //
// Parameter 1: GAMS system directory //
// The program creates a GDX file with demand data //
// Case 2: //
// Parameter 1: GAMS system directory //
// Parameter 2: gdxfile //
// The program reads the solution from the GDX file //
// Paul van der Eijk Jun-12, 2002 //
///////////////////////////////////////////////////////////////
{$APPTYPE CONSOLE}
{$H- short strings}
uses
sysutils,
gxdefs,
gmsspecs,
gdxdcpdef;
procedure ReportGDXError(PGX: PGXFile);
var
S: ShortString;
begin
WriteLn('**** Fatal GDX Error');
GDXErrorStr(nil, GDXGetLastError(PGX),S);
WriteLn('**** ',S);
Halt(1);
end;
procedure ReportIOError(N: integer);
begin
WriteLn('**** Fatal I/O Error = ',N);
Halt(1);
end;
var
PGX : PGXFile;
procedure WriteData(const s: string; V: double);
var
Indx : TgdxStrIndex;
Values: TgdxValues;
begin
Indx[1] := s;
Values[vallevel] := V;
GDXDataWriteStr(PGX,Indx,Values);
end;
var
Msg : string;
GDX GAMS Data Exchange Example
programs
GAMS Data Exchange API
1.6
Page 12 2.4
12/3/2012