Hi.
Zitat von
flobus:
hi, geht das nicht auch mit "arrays"?
Delphi-Quellcode:
var LEDPORT: array [1..8] of integer;
...
LEDPORT[1] := 1
LEDPORT[2] := 2
LEDPORT[3] := 4
LEDPORT[4] := 8
LEDPORT[5] := 16
LEDPORT[6] := 32
LEDPORT[7] := 64
LEDPORT[8] := 128
...
begin
port[888] := LEDPORT[1] + LEDPORT[2] + LEDPORT[3] usw.
end;
end.
geht das nicht auch?
mfg Florian Busch
Ja. Aber mit Konstanten ist es schneller.
Delphi-Quellcode:
unit irgendwas;
{...}
interface
{...}
const
LEDPORT = 888;
LED1 = 1;
LED2 = 2;
LED3 = 4;
LED4 = 8;
LED5 = 16;
LED6 = 32;
LED7 = 64;
LED8 = 128;
{...}
implementation
{...}
procedure led;
begin
port[LEDPORT] = LED1 + LED3 + LED5 + LED7
end;
{...}
end.
//edit: Wo zum (Wald-)Teufel war der rote Kasten
