Syntax der with-Anweisung

[Chemiker]

Hallo,

eine weitere Möglichkeit um Tipparbeit zu sparen ist zum Beispiel mit einer Variablen zu arbeiten.

z.B.:

Delphi-Quellcode:

constructor THPLComPortClass.Create(AOwner: TComponent);
var
  C: TApdCustomComPort;
begin
  inherited Create(AOwner);
  FComPort:= TApdComPort.Create(self);    // Neuer ComPort Erstellen
  c:= FComPort;
  c.AutoOpen:= FALSE;
  c.Baud:= 9600;
  c.BufferFull:= 1;
  c.BufferResume:= 1;
  c.ComNumber:= 0;
  c.HWFlowOptions:= [hwfUseDTR,hwfUseRTS,hwfRequireDSR,hwfRequireCTS];
  c.InSize:= 2;
  c.LogHex:= FALSE;
  c.OutSize:= 2;
  c.RTS:= FALSE;
  c.TapiMode:= tmNone;

statt:

Delphi-Quellcode:

constructor THPLComPortClass.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FComPort:= TApdComPort.Create(self);    // Neuer ComPort Erstellen
  with FComPort do
  begin
    AutoOpen:= FALSE;
    Baud:= 9600;
    BufferFull:= 1;
    BufferResume:= 1;
    ComNumber:= 0;
    HWFlowOptions:= [hwfUseDTR,hwfUseRTS,hwfRequireDSR,hwfRequireCTS];
    InSize:= 2;
    LogHex:= FALSE;
    OutSize:= 2;
    RTS:= FALSE;
    TapiMode:= tmNone;
  end;

Bis bald Chemiker