Hallo Merlin,
so funktioniert es, vielen herzlichn Dank.
Aber wenn ich GY auf LY umstelle erhalte ich unten stehende Fehlermeldung.
Damit kann ich aber leben:-) bleibt es erstmal Global
Hello Merlin,
that's how it works, thank you very much.
But when I change GY to LY I get the error message below.
But I can live with that:-) it remains Global for now
[Window Title]
Error
[Content]
internal compiler error "Range check error"
Line: 66 file: F:\AVRPROJEKTE\DISP3000\Disp3000.pas
[Abort]
so funktioniert es, vielen herzlichn Dank.
Aber wenn ich GY auf LY umstelle erhalte ich unten stehende Fehlermeldung.
Damit kann ich aber leben:-) bleibt es erstmal Global
Hello Merlin,
that's how it works, thank you very much.
But when I change GY to LY I get the error message below.
But I can live with that:-) it remains Global for now
Code
Procedure Letter(X : Byte; Y : Byte; VG : Word; HG : Word);
Var
Z,LX,LY : Byte;
Begin
Z := 0;
For LY := 0 To 6 Do
For GX := 0 To 7 Do
If Bit(Charset[LY], GX) Then // Line 66
//Lcd_Plot(X + Z, Y + GY, VG);
Else
//Lcd_Plot(X + Z, Y + GY, HG);
Endif;
Endfor;
Z := Z + 1;
Endfor;
//LCD_Window(0, 0, Window_Width - 1, Window_Height - 1);
End;
Var
Z,LX,LY : Byte;
Begin
Z := 0;
For LY := 0 To 6 Do
For GX := 0 To 7 Do
If Bit(Charset[LY], GX) Then // Line 66
//Lcd_Plot(X + Z, Y + GY, VG);
Else
//Lcd_Plot(X + Z, Y + GY, HG);
Endif;
Endfor;
Z := Z + 1;
Endfor;
//LCD_Window(0, 0, Window_Width - 1, Window_Height - 1);
End;
[Window Title]
Error
[Content]
internal compiler error "Range check error"
Line: 66 file: F:\AVRPROJEKTE\DISP3000\Disp3000.pas
[Abort]