Schreibarbeit sparen

[hoika]

Hallo,

erzeuge aus deinen "vielen" Variablen eine (Hüll-)Klasse.
Schreibe dort den Label-Setz-Code rein.

Etwa so

Delphi-Quellcode:

type
  TCoverClass = class
    PortNr: Integer;
    PortLabel: array[1..X] of TLabel
  end;

procedure TCoverClass.SetLabel;
begin
  PortLabel[PortNr]:= 'bla';

 // nur ein Bsp, es muss natürlich Synchronize benutzt werden !!!
end;

// Thread 1 (Port 1)
var
  CoverClass: TCoverClass;
begin
  CoverClass:= TCoverClass.Create;
  CoverClass.PortNr:= 1;
  PortLabel[1]:= MainForm.Label1Port1;
  PortLabel[2]:= MainForm.Label1Port2; 
 usw ...


// Thread 3 (Port 3)
var
  CoverClass: TCoverClass;
begin
  CoverClass:= TCoverClass.Create;
  CoverClass.PortNr:= 3;
  PortLabel[1]:= MainForm.Label3Port1;
  PortLabel[2]:= MainForm.Label3Port2; 
 usw ...

Heiko