Atmega328 - Kennt "case" nicht

[Mathias]

Code: Alles auswählen

var
  p: byte = 0;

Code: Alles auswählen

    case p of
      0: begin
        n := c div 1000;
      end;
      1: begin
        n := c div 100 mod 10;
      end;
      2: begin
        n := c div 10 mod 10;
      end;
      3: begin
        n := c mod 10;
      end;
    end;

Wen ich obigen Code linken will, kommt folgender Fehler:

Code: Alles auswählen

Project1.pas(24,1) Error: Error while linking

Mache ich es aber mit einem klassischen "if", geht es ohne Probleme:

Code: Alles auswählen

    if p = 0 then begin
      n := c div 1000;
    end else if p = 1 then begin
      n := c div 100 mod 10;
    end else if p = 2 then begin
      n := c div 10 mod 10;
    end else if p = 3 then begin
      n := c mod 10;
    end;  

Weis einer woran, dies liegen kann ?

[theo]

Also ich habe echt keine Ahnung, aber was das mit dem Linken zu tun haben sollte, leuchtet erstmal kein Bisschen ein.
Hast du nicht andere Baustellen übersehen?

[Mathias]

Im Anhang mal der komplette Code.

[Mathias]

Problem gelöst, schien ein Bug ich Crosscompiler gewesen zu sein.
Ich habe den AVR5 nochmals neu gebaut, jetzt ist das Problem weg.

[hum4n0id3]

@Mathias: In der Fußnote, Bei Lazarus sehe ich gün, fehlt meiner Meinung nach ein r.

[PascalDragon]

Wen ich obigen Code linken will, kommt folgender Fehler:

Code: Alles auswählen

Project1.pas(24,1) Error: Error while linking

Du hast es zwar für dich schon gelöst, aber für die Zukunft: bei dieser Fehlermeldung sind meist die Meldungen darüber die interessanten und die blendet Lazarus gern aus. Lass dir also von Lazarus alle Meldungen in dem Fall geben (Rechtsklick auf Nachrichtenfenster -> Kopieren -> Alle/Original Nachrichten in Zwischenablage kopieren).