Как получить список всех переменых и функций?

Комментарии

• WaReZ_MEN

  January 2009 отредактировано 04:38

  Не ужели это сложно????
  Мне в Delphi нужен список.
• gpi

  January 2009 отредактировано 04:38

  uses fs_iinterpreter;
  var i: integer;
      v: TfsCustomVariable;
  begin
       for i:=0 to frxReport1.Variables.Count-1 do
         if frxReport1.Variables.Items[i].Name[1]<>' ' then
           ShowMessage(frxReport1.Variables.Items[i].Name);
       for i := 0 to frxReport1.Script.Count - 1 do
         begin
           v := frxReport1.Script.Items[i];
           if v is TfsMethodHelper then
             ShowMessage(v.Name+' '+TfsMethodHelper(v).Syntax+' '+TfsMethodHelper(v).Description);
         end;
  end;
  
• WaReZ_MEN

  January 2009 отредактировано 04:38

  За
  for i := 0 to frxReport1.Script.Count - 1 do
  begin
  v := frxReport1.Script.Items;
  if v is TfsMethodHelper then
  ShowMessage(v.Name+' '+TfsMethodHelper(v).Syntax+' '+TfsMethodHelper(v).Description);
  end;
  спасибо а первая не подходит так как я имел виду стандартные переменные типа как Line count а не те что мой.
• gpi

  January 2009 отредактировано 04:38

  Имена системных переменных строго определены, поэтому просто добавляйте их имена в список так, как это делается в исходниках FR:

  with FSysVariables do
    begin
      Clear;
      Add('Date');
      Add('Time');
      Add('Page');
      Add('Page#');
      Add('TotalPages');
      Add('TotalPages#');
      Add('Line');
      Add('Line#');
      Add('CopyName#');
    end;
  
• WaReZ_MEN

  January 2009 отредактировано 04:38

  Огромное спасибо!