Byte aus einem ARRAY zuweisen klappt nicht

  • 1
  • 2
  • Page 2 of 2
rh
Administrator
Avatar
Gender:
Location: Germany
Age: 24
Homepage: e-lab.de
Posts: 5558
Registered: 03 / 2002
Subject:

Re: Byte aus einem ARRAY zuweisen klappt nicht

 ·  Posted: 29.03.2018 - 11:52  ·  #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
Avatar
Gender:
Age: 53
Homepage: pvs-deck.de
Posts: 1341
Registered: 02 / 2009
Subject:

Re: Byte aus einem ARRAY zuweisen klappt nicht

 ·  Posted: 29.03.2018 - 12:10  ·  #10
Quote by 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 :-D
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
  • Page 2 of 2
Selected quotes for multi-quoting:   0

Registered users in this topic

Currently no registered users in this section

The statistic shows who was online during the last 5 minutes. Updated every 90 seconds.
MySQL Queries: 15 · Cache Hits: 14   51   65 · Page-Gen-Time: 0.018674s · Memory Usage: 2 MB · GZIP: on · Viewport: SMXL-HiDPI