lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat. 		Nou pe simpatie:
angelika29
Femeie
19 ani
Arges
cauta Barbat
19 - 80 ani
lisp2arx / Delphi , InnoPascal / Delphi32- How to set multiple nicknames with coordinate Tpoint?  
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 508
Can you compile this source bellow?
The "CoordinateX" is nickName of X:Integer;
The "circlerad:" is nickName2 of Z:Integer;

Code:

Type
  TPoint_int = packed record x,y: integer;  end;
  TPoint_int3d =   packed record
                       Case Integer of
                        0: (x:Integer);
                        1: (CoordinateX:dword);
                        4: (xare:single);
                        End;
???
                       Case Integer of
                        (0: y:Integer);
                        (1: CoordinateY:dword);
                        (4: yare:single);
                       End;

                       Case integer of
                            0: (z:integer);
                            1: (radius:integer);
                            2: (r:integer);
                            3: (raza:integer);
                            4: (circlerad:single);
                            
                       end;

This Code is Okay on bellow.You do not forget "Type nametype=packed record Case Integer" is very powerfull.

Code:

Tap_AcGePoint3d_GoodCode=  packed record x,y:integer;
                        Case integer of
                            0: (z:integer);
                            1: (radius:integer);
                            2: (r:integer);
                            3: (raza:integer);
                            4: (circlerad:single);
                       end;


Arhid. Mihail Buca - Balada lui Avram Iancu / Sus, sus, la munte sus / Moment de virtuozitate

_______________________________________
pus acum 3 ani
   
zauchan
Moderator

Inregistrat: acum 13 ani
Postari: 180
Nicholas Smith
I think you're asking about "unions":
X and X1 are different names for the same variable/value.

Code:

type
TPointNamedWhatever = record
Case Integer of
0: (X, Y, Z: Integer);
1: (X1, Y1, Z1: Integer);
2: (CoordinateX,CoordinateY,CoordinateZ:single);
3  (kDxfXCoord,kDxfYCoord,kDxfZCoord:ads_real);
end;



delphi32- how set multiple nicknames with coordinate tpoint? nicholas smithi think you're asking

75.7KB

_______________________________________
psw: cea de la wjndowsXP gigabyte..
pus acum 3 ani
   
Pagini: 1  

Mergi la