Nextion Display

Hallo,

der Vergleich mit meinem Array will nicht klappen - es sollte 'A' oder 'E' rauskommen

NEXTION DISPLAY 3,5" enhaced
const
ToBLE : Array[1..66] of Char =
('E','A',.......................

Next : Array[1..66] of String[4]=
('e051','e061',...............
{-----------------------------------------------------------------------}
var
{ Var Declarations }
{$IDATA}
count,len1,len2,len3 : byte;
nexti : string[7];
// ***************************************************************************
begin
EnableInts; // Interrupt zulassen
// -----------------------------------------------------------------
loop
read(SerInp,nexti);
len1 := length(nexti);
7-e[00][06][01]ÿÿÿ // 7 Zeichen Nextion Ausgabe
7-e[00][05][01]ÿÿÿ // .......................
// writeln(serout,char(13)+char(10)+bytetostr(len1)+'-'+nexti);
nexti := copy(nexti,1,4); // auf 4 Zeichen eingedampft
len2 := length(nexti);
4-e[00][06][01] - 4-e061 // 4/4 Zeichen Vergleich
4-e[00][06][01] - 4-e051

4-e[00][05][01] - 4-e061 // 4/4 Zeichen Vergleich
4-e[00][05][01] - 4-e051

for count := 1 to 2 do
len3 := length(Next[count]);
writeln(serout,bytetostr(len2)+'-'+nexti +' - '+bytetostr(len3)+'-'+next[count]);

// ---------------- gibt weder A noch E aus! --------------------
if nexti = next[count] then // ????
write(serout,char(13)+char(10)+'*'+ToBLE[count]+'*');
endif;
endfor;
endloop;

Es fehlt doch der Name des Objekts was die Daten anzeigen soll im Serout ?

Wenn du ein Edit auf dem Display liegen hast mit dem Namen t0. dann musst du dem Txt Property deinen neuen Text zuweisen:



So ähnlich muss das aussehen.

Es sah aber danach aus, da SerOut immer gleich ist.

Versuche doch bitte einmal diesen Code Button zu benutzen damit wir überhaupt was lesen können.

Und so wird ein Schuh draus, wenn auch ein seltsamer