Label grün einfärben wenn platine verbunden, sonst rot

[marabu]

Wenn du wirklich jedes einzelne Bit in einem dedizierten Edit-Control anzeigen möchtest, dann geht das etwa so:

Delphi-Quellcode:

const
  MAX_CHANNEL = 5;
var
  i: Integer;
begin
  for i := 1 to MAX_CHANNEL do
    with FindComponent(Format('Edit%d', [i])) as TEdit do
      Text := Chr(Ord('0') + Ord(ReadDigitalChannel(i)));
end;

Voraussetzung ist, dass der Code Teil einer Methode der Form ist, welche die Edit-Controls verwaltet.

Getippt und nicht getestet.

Freundliche Grüße