; vzorova ukazka pro pozadavek na server metodou GET, urceno pro stazeni souboru ze serveru

  Designed('WinDUO');


  WNSType(1);
  NewWNS('RecTrace.WNS');

  SetColumn(0,TA_RIGHT,4);
  SetColumn(1,TA_LEFT,32);
  SetColumn(2,TA_LEFT,10);
  SetColumn(3,TA_LEFT,10);
  SetColumn(4,TA_LEFT,10);
  SetColumn(5,TA_LEFT,10);
  SetColumn(6,TA_LEFT,35);

  SetHead('p.č.','Název','Typ','Délka','SpecTyp','SpecDélka','StrItem první věty/klíče');

  LocW:Word
  LocW2:Word
  LocL:LongInt
  LocStr:String

  StructureInfo('Pohledavka');
  NextPageWNS();
  StructureInfo('KeyPohledavka1');
  NextPageWNS();
  StructureInfo('Adresar');
  NextPageWNS();
  StructureInfo('Zavazek');


Procedure StructureInfo(RecName:String)
  if(not Declared(RecName))
    DeclareRec(RecName);

  LocW=RecordItems(@RecName)

  AddComment('Výpis struktury věty: '+RecName);

  AddComment('Počet položek struktury: '+LocW);
  AddComment('Typ struktury: '+Str(RecordType(@RecName)));
  AddComment('Délka struktury: '+SizeOf(@RecName));
  AddComment('Identifikace struktury: '+Str(RecordID(@RecName)));
  AddComment('Číslo klíče: '+Str(RecordKey(@RecName)));

  if(RecordKey(@RecName)=0)
    ReadRec(@RecName,1)
  else
    begin
      ClearKey(@RecName);
      NextKey(@RecName,LocL);
    end;

  LocW2=0

  while(LocW2<LocW)
    begin
      Inc(LocW2);
      LocStr=RecordItem(@RecName,LocW2,True)
      AddLine(Str(LocW2),RecordItem(@RecName,LocW2),Str(RecordItemType(@RecName,LocW2)),Str(RecordItemSize(@RecName,LocW2)),Str(RecordItemType(@RecName,LocW2,True)),Str(RecordItemSize(@RecName,LocW2,True)),StrItem(@LocStr));
    end;
end

END