Results 1 to 10 of 10

Thread: Errors "inline"

  1. #1
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Question Errors "inline"

    Pas overgeschakeld van Typhon 5.5 naar Typhon 7.0 met FPC 3.3.1.
    Heb eerst via CodeTyphon Center: Convert old CT files to new.

    Krijg ERRORS en het programma werkt niet meer.

    Met COMPILEREN:
    Compile Project, Target: DBmuziek64T.exe: Succes!

    Met BOUW:
    Compile Project, Target: DBmuziek64T.exe: Succes!, Warnings: 1, Hints: 1
    udata.pas(51,50) Note: Call to subroutine "operator :=(const source:LongInt):Variant;" marked as inline is not inlined
    umain.pas(715,8) Warning: Case statement does not handle all possible cases

    Ik ben geen programmeur !!!
    Grootste del v.d. code werd door een vriend opgesteld, die ik nu niet meer kan bereiken.
    Andere deel kwam via dit forum.

    Onderstaande de twee procedures:
    Code:
    //=============================
    procedure TFDATA.SQLQuery1BeforeEdit(DataSet: TDataSet);
    begin
       VARLastID := DataSet.FieldByName('songid').AsInteger;
    end; 
    //=============================
    Code:
    //=============================  
    procedure TFMAIN.PrintForm(centredOnPage: boolean; anOrientation: TPrinterOrientation);
    var
      // Belangrijk: In uses 'Types' plaatsen.
      VARmyBitMap: TBitMap;
      VARprnBmp: TBitmap;
      VARprnRct: TRect;
      VARHScaleFactor: Single;
      VARVScaleFactor: Single;
      VARaLeft: Integer;
      VARaTop: Integer;
      VARaSize: TSize;
    begin
    try
      VARHScaleFactor:=Printer.XDPI/Screen.PixelsPerInch;
      VARVScaleFactor:=Printer.YDPI/Screen.PixelsPerInch;
      VARmyBitMap:= TBitMap.Create;
      VARprnBmp:=TBitmap.Create;
      try
        Printer.Orientation:=anOrientation;
        VARmyBitMap.LoadFromDevice(Canvas.Handle);
        VARprnBmp.SetSize(trunc(VARmyBitMap.Width*VARHScaleFactor),
                       trunc(VARmyBitMap.Height*VARVScaleFactor));
        VARprnRct:=Rect(0, 0, VARprnBmp.Width, VARprnBmp.Height);
        VARprnBmp.Canvas.StretchDraw(VARprnRct, VARmyBitMap);
        if centredOnPage then
        begin
           VARaSize:=Size(Printer.PaperSize.PaperRect.WorkRect);
           case Printer.Orientation of
             poPortrait: begin
                           VARaLeft:=(VARaSize.cx - VARprnBmp.Width) div 2;
                           VARaTop:=(VARaSize.cy - VARprnBmp.Height) div 2;
                         end;
             poLandscape: begin
                            VARaTop:=(VARaSize.cy - VARprnBmp.Height) div 2;
                            VARaLeft:=(VARaSize.cx - VARprnBmp.Width) div 2;
                          end;
           end;
        end
        else
        begin
          VARaLeft:=0;
          VARaTop:=0;
        end;
        Printer.BeginDoc;
        try
          Printer.Canvas.Draw(VARaLeft, VARaTop, VARprnBmp);
        finally
          Printer.EndDoc;
        end;
      finally
        VARmyBitMap.Free;
        VARprnBmp.Free;
      end;
    except on E:Exception do
    begin
      QuestionDlg('Fout', 'Fout gevonden' + 'ERROR: ' + E.Message,
      mtError, [mrOk, 'DRUK HIER OP <--- '], '');
    end;
    end;
    end;
    //=============================

  2. #2
    mov rax,marcov; push rax marcov's Avatar
    Join Date
    Apr 2004
    Location
    Ehv, Nl
    Posts
    10,357
    Beide zijn warnings and notes, niet errors. Oftewel, de compilatie zou daar voor niet moeten stoppen.

  3. #3
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685
    Bij het compileren gaat dus alles goed.
    Maar bij het bouwen gaan er inderdaad warnings.
    Het echte probleem zit hem in het uitvoeren van de applicatie, die wel error geeft en de applicatie stopt.
    Vroeget met Typhon 5.5 ging alles perfect.

  4. #4
    mov rax,marcov; push rax marcov's Avatar
    Join Date
    Apr 2004
    Location
    Ehv, Nl
    Posts
    10,357
    Dat zegt weinig. Het kan een fout in het programma zelf zijn die "een error" veroorzaakt, maar die bij 5.5 toevallig niet not iets leidde.

    Het minste is een traceback proberen te krijgen.

    En die warnings en notes zijn waarschijnlijk NIET gerelateerd.

  5. #5
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Question

    Een traceback is te hoog gegrepen voor mij.
    Maar misschien heeft iemand een oplossing voor de Warnings!

  6. #6
    Misschien handig om aan te geven WELKE errors je krijgt.

  7. #7
    mov rax,marcov; push rax marcov's Avatar
    Join Date
    Apr 2004
    Location
    Ehv, Nl
    Posts
    10,357
    Gokjes:

    Eerste warning/hint: include unit variants
    tweede warning/hint: Er zijn blijkbaar meer mogelijkheden voor orientatie dan alleen portrait en landscape. Voeg code voor de andere orientaties toe.

  8. #8
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Exclamation

    marcov
    Heb de case statement met een 'else' opgelost.
    Geen Hints meer.

    rvk
    Bedankt om te reageren.
    Heb de nieuwe versie van CodeTYphon geïnstalleerd v.7.10 en blijkbaar blijft de exe lopen zoals voorheen.
    Conclusie .... er zat waarschijnlijk een probleem in v.7.00 !!!

    Ik heb nog vragen, maar zal er later mee utpakken.

  9. #9
    Quote Originally Posted by seghele View Post
    Een traceback is te hoog gegrepen voor mij.
    Zie Creating a Backtrace with GDB in de Lazarus Wiki.

    Bart

  10. #10
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Exclamation

    Bart B,

    Bedankt voor de info.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •