Byte aus einem ARRAY zuweisen klappt nicht

1
2
Seite 2 von 2

Administrator

Geschlecht:
Herkunft: Germany
Alter: 25
Homepage: e-lab.de
Beiträge: 5558
Dabei seit: 03 / 2002

Betreff:

Re: Byte aus einem ARRAY zuweisen klappt nicht

· Gepostet: 29.03.2018 - 11:52 Uhr · #9

Halo Thorsten,

also bei mir funzt es so im Main:

Code

type
  TzksBuffer  = array[0..79] of byte;

{--------------------------------------------------------------}
{ functions }
procedure CS(var inTxBuffer : TzksBuffer);
var
  xi, zi     : byte;
  tempBCC    : byte;
begin
  tempBCC:= 0;
  zi:= inTxBuffer[79];
  for xi:= 0 to zi - 1 do
    tempBCC:= tempBCC xor inTxBuffer[xi];
  endfor;
end CS;

rolf

pvs-deck

PowerUser

Geschlecht:
Alter: 54
Beiträge: 1343
Dabei seit: 02 / 2009

Betreff:

Re: Byte aus einem ARRAY zuweisen klappt nicht

· Gepostet: 29.03.2018 - 12:10 Uhr · #10

Zitat geschrieben von rh

Halo Thorsten,

also bei mir funzt es so im Main:

Hallo rolf,

vieleicht ist es irgend eine Kombination. Ich meine das Programm ist auch nicht mehr ganz so klein

Solange es in der UNIT läuft ist es ok. Wenn ich ein neues Programm erstelle und die Procedure() dort reinpacke geht es auch. Aber eben nicht in dem vollen Projekt

in der Main-Unit

Aber mit der Lösung in einer getrennten UNIT kann ich leben

Ich programmiere solche Funktionen sowieso erst in der Main und wenn sie sauber laufen versuche ich diese immer in einer Unit auszulagern. So ist es einfach übersichtlicher.

Thorsten

1
2
Seite 2 von 2

Gewählte Zitate für Mehrfachzitierung: 0

Registrierte in diesem Topic

Aktuell kein registrierter in diesem Bereich

Die Statistik zeigt, wer in den letzten 5 Minuten online war. Erneuerung alle 90 Sekunden.

MySQL Queries: 15 · Cache Hits: 14 51 65 · Page-Gen-Time: 0.032745s · Speichernutzung: 2 MB · GZIP: ein · Viewport: SMXL-HiDPI