swift vs delphi: 01

Swift를 공부하면서 Delphi를 재정립하자.

Structure

//Swift
struct Resolution {
var width = 0;
var height = 0;
}
let hd = Resolution(width: 1920, height: 1080)
var someResolution = Resolution(width: 640, height: 480) 

//Delphi
type
  TResolution = record
    width: integer;
    height: integer;
  end;
const
  hd: TResolution = (width: 1920; height: 1080);
var
  someResolution: TResolution = (width: 640; height: 480);

//Swift

1. @propertyWrapper
2. struct TwelveOrLess {
3. private var number = 0
4. var wrappedValue: Int {
5. get { return number }
6. set { number = min(newValue, 12) }
7. }
8. }
9. 
   
10. //Delphi
11. type TResolution = record private number : integer; function getWappedValue: integer; procedure setWappedValue(const Value: integer); property wrapValue: integer read number write number; property wrappedValue: integer read getWappedValue write setWappedValue; end;
12. 
    
14. function TResolution.getWappedValue: integer;
15. begin
16.   Result:= number;
17.   // willSet
18. end;
19. procedure TResolution.setWappedValue(const Value: integer);
20. begin
21.   if Value > 0 then
22.     number:= Value
23. else Value := 0;
24.   // didSet
25. end;