Delphi: briser le paramètre d'enregistrement vers le bas dans les champs

Question

j'ai un type d'enregistrement

tLine = record 
    X, Y, Count : integer; 
    V : boolean; 
end; 

J'ai un

function fRotate(zLine: tLine; zAngle: double): tLine; 

Je veux passer zline, mais avec son champ Y réduit de 1. Y at-il un moyen de décomposer un enregistrement dans ses champs spécifiques dans une procédure ou une fonction? J'ai essayé

NewLine:=fRotate((zLine.X, zLine.Y-1, zLine.Count, zLine.V), zAngle); 

qui ne fonctionne pas. Ou dois-je faire comme suit:

dec(zLine.Y); 
NewLine:=fRotate(zLine, zAngle); 
inc(zLine.Y); 

TIA

Answer 1

Vous généralement faire une fonction pour cela. Dans Delphi moderne avec des documents améliorés, je préfère utiliser une fonction de classe statique comme ceci:

type 
    TLine = record 
    public 
    X: Integer; 
    Y: Integer; 
    Count: Integer; 
    V: Boolean; 
    public 
    class function New(X, Y, Count: Integer; V: Boolean): TLine; static; 
    end; 

class function TLine.New(X, Y, Count: Integer; V: Boolean): TLine; 
begin 
    Result.X := X; 
    Result.Y := Y; 
    Result.Count := Count; 
    Result.V := V; 
end; 

Ensuite, votre appel de fonction devient:

NewLine := fRotate(TLine.New(zLine.X, zLine.Y-1, zLine.Count, zLine.V), zAngle); 

Dans les anciennes versions de Delphi que vous auriez à utiliser fonctionner à l'échelle mondiale.

Answer 2

Pour faciliter la lecture, je préfère utiliser une solution de rechange avec des opérateurs de disques, comme ceci: Notez que ceci est mis à jour conformément à la suggestion de SCOCI

tLine = record 
    X, Y, Count : integer; 
    V : boolean; 
    class operator Subtract(a : tLine; b : TPoint) : tLine; 
    end; 

class operator tLine.Subtract(a: tLine; b : TPoint): tLine; 
begin 
    Result.X := a.X - b.X; 
    Result.Y := a.Y - b.Y; 
    Result.Count := a.Count; 
    Result.V := a.V; 
end; 

Cela permet ce type de construction:

fRotate(fLine - Point(0,1), fAngle); 

ce qui me semble logique. Vous pourriez évidemment utiliser un entier simple plutôt qu'un tableau si tout ce que vous avez voulu faire était de décrémenter Y, mais cela permet de décrémenter X et/ou Y en une fois.