Опять про сумму прописью...

Комментарии

• NeumannW

  January 2004 отредактировано January 2004

  unit Unit2;
  
  interface
  
  type
  
    TfrMyFunctionLibrary = class(TfrFunctionLibrary)
    public
      constructor Create; override;
      procedure DoFunction(FNo: Integer; p1, p2, p3: Variant; var val: Variant); override;
    end;
  
  implementation
  
  constructor TfrMyFunctionLibrary.Create;
     procedure AddFunction(FuncName, Category, Description: String);
     begin
        if List.IndexOf(FuncName) <> -1 then
           exit;
        List.Add(FuncName);
        AddFunctionDesc(FuncName, Category, Description);
     end;
  begin
     inherited Create;
     AddFunction('ABS', 'MyFunctionen', 'ABS(<Wert>)/Die Funktion Abs gibt einen absoluten Wert zurück.');
     ...
  end;
  
  
  procedure TfrMyFunctionLibrary.DoFunction(FNo: Integer; p1, p2, p3: Variant; var val: Variant);
  var  
     Name : String;
  begin
     Val := '0';
     Name := List.Strings[FNo];
  
     if SameText(Name,'ABS') then begin
        if p1 = Null then
           Val := 0
        else
           Val := ABS(ValToDouble(frParser.Calc(p1)));
     end
     else if ...;
  end;
  
  // Mainform
  
  procedure MainForm.FormCreate(Sender: TObject);
  begin
     frRegisterFunctionLibrary(TfrMyFunctionLibrary);
  end;
  
  procedure MainForm.FormDestroy(Sender: TObject);
  begin
     frUnRegisterFunctionLibrary(TfrMyFunctionLibrary);
  end;
  
  
  end.
  
• NeumannW

  January 2004 отредактировано 06:29

  Извените за __, но я не силён в HTML-Code и поэтому взял вместо Space ’ ’ -> ’_’.
  Почемуто все Space изчезают и я незнал как по другому отступ зделать, чтобы легче Code читался.
  Может-кто подскажет, заранее Благодарен.