Steema Central

Code: Select all

// 2009.09.01 ->
// Delphi 2010
  {$IFDEF VER210}
  {$WARN SYMBOL_PLATFORM OFF}
  {$DEFINE VER10_PLUS}
  {$DEFINE VER11_PLUS}
  {$DEFINE VER12_PLUS}
  {$DEFINE VER125_PLUS}
  {$DEFINE VER13_PLUS}
  {$DEFINE VER14_PLUS}
  {$DEFINE VER15_PLUS}
  {$DEFINE VER20_PLUS}
  {$DEFINE VER21_PLUS}
  {$DEFINE BAD_STACK_ALIGNMENT}
{$ENDIF}
// 2009.09.01 <-

Code: Select all

      with (Pal.palPalEntry[i]) do
      begin
        peRed := i;
        peGreen := i;
        peBlue  := i;
        peFlags := PC_NOCOLLAPSE;
      end;

Code: Select all

       Pal.palPalEntry[i].peRed := i;
       Pal.palPalEntry[i].peGreen := i;
       Pal.palPalEntry[i].peBlue := i;
       Pal.palPalEntry[i].peFlags := PC_NOCOLLAPSE;

Code: Select all

with

Code: Select all

  TMyTestObj = class
  private
    FTestThis: string;
  public
    property TestThis: string read FTestThis write FTestThis;
  end;

...
procedure TForm41.FormCreate(Sender: TObject);
var
  lMO: TMyTestObj;
begin
  lMO := TMyTestObj.Create;
  try
    with lMO do
      TestThis := '123';

  finally
    lMO.Free;
  end;
end;

Code: Select all

type

  TMyRecord = packed record
   First : integer;
   Second : integer;
  end;

  TMyRecArray = array[0..255] of TMyRecord;

  TCompRec = record
   ID : integer;
   Arr : TMyRecArray;
  end;

implementation

procedure TForm1.Button1Click(Sender: TObject);
var AMyRec : TCompRec;
    i : integer;
begin
 for i := 0 to 255 do begin
  with (AMyRec.Arr[i]) do
  begin
   First := i;
   Second := i;
  end;
 end;
end;