Nästa: Funktioners returtyp Upp: Blandad information Förra: Case-satsen

With-satsen

I Solarispascal har with-satsens funktionalitet utvidgats. Mellan WITH och DO kan det finnas en lista över så kallade variabelförkortningar så att dessa skiljs åt av kommatecken. En variabelförkortning består i sin tur av en variabel av typ RECORD som man berör i satserna efter DO, och ett ersättningsnamn (en identifierare) för denna. Variabeln och ersättningsnamnet ska skiljas åt av ett kolon. Man kan utelämna kolonet och ersättningsnamnet om man vill. Effekten blir att i satserna efter DO byts alla ersättningsnamn ut mot motsvarande variabelnamn. Detta fungerar endast med poster. Exempel:

  PROGRAM GrisarOchSvin;
   TYPE
    Gristyp = RECORD
     knorr: Integer;
     svans: Char;
    END;
   VAR
    svinMedEttUtdragetNamn, grisMedEttLikaUtdragetNamn: Gristyp;
  BEGIN
   WITH svinMedEttUtdragetNamn:svin,
        grisMedEttLikaUtdragetNamn:gris DO BEGIN
    svin.knorr := 0;    gris.knorr := 17;
    gris.svans := 'Q';  svin.svans := 'S';
   END;
  END.