Kezdőoldal » Számítástechnika » Programozás » Pascalban hogyan lehet objektu...

Pascalban hogyan lehet objektumot, osztályt stb-t létrehozni? Leírja valaki részletes magyarázattal?

Figyelt kérdés

Itt van az én próbálkozásom, ez sajnos nem működik sehogy.



uses crt;


type location=object;

var x,y: integer;

procedure init(newx,newy: integer);

function getx:integer;

function gety:integer;

end;


procedure location.init(newx,newy:integer);

begin

x:=newx;

y:=newy;

end;


function location.getx:integer;

begin

getx:=x;

end;


function location.gety:integer;

begin

gety:=y;

end;


var valami:location;


begin

valami.init(2,4);

writeln("x: ",valami.getx);

writeln"y: ",valami.gety);

readkey;

end.


Valaki tud írni saját kódot példának és részletes magyarázatot hogy mi van és miért? Köszi.



2015. okt. 27. 14:11
 1/9 anonim ***** válasza:

Érdemes elolvasni a dokumentációt, ha már van :)


[link]

2015. okt. 27. 14:36
Hasznos számodra ez a válasz?
 2/9 A kérdező kommentje:
Ezt már olvastam, de légyszi valaki tud saját példát megfelelő magyarázattal, hogy mitől van és miért az, ami?
2015. okt. 27. 14:48
 3/9 anonim ***** válasza:
Pascal nem objektum orientált nyelv. Lehet csinálni vele olyat, mint ha és hinni benne, de attól még nem lesz egyenértékű egy C++ vagy Java objektum orientáltságával.
2015. okt. 27. 16:40
Hasznos számodra ez a válasz?
 4/9 anonim ***** válasza:
C++ és a Java sem objektum orientált nyelv, csak támogatják azt.
2015. okt. 27. 16:56
Hasznos számodra ez a válasz?
 5/9 SimkoL ***** válasza:
'Lehet csinálni vele olyat, mint ha és hinni benne, de attól még nem lesz egyenértékű egy C++ vagy Java objektum orientáltságával.' Ismered a Delphi/Object Pascal - t ?
2015. okt. 27. 17:55
Hasznos számodra ez a válasz?
 6/9 SimkoL ***** válasza:

program Project2;


{$APPTYPE CONSOLE} //Delphi


uses SysUtils;


type TLocation = class(TObject)

private

x, y: integer;

procedure Init(newx, newy: integer);

function GetX: integer;

function GetY: integer;

end;


procedure TLocation.Init(newx, newy: integer);

begin

x := newx;

y := newy;

end;


function TLocation.GetX: integer;

begin

Result := x;

end;


function TLocation.GetY:integer;

begin

Result := y;

end;


var valami: TLocation;


begin

valami := TLocation.Create;

valami.Init(2, 4);

WriteLn(valami.GetX);

WriteLn(valami.GetY);

valami.Free;

ReadLn;

end.


Magyarázatot ne várj, mert nagyon-nagyon hosszú lenne, inkább olvasd el [link] a Mgr.Végh László Delphi jegyzeteit.

2015. okt. 27. 18:31
Hasznos számodra ez a válasz?
 7/9 anonim ***** válasza:
#5.-ik... Ki beszélt Delphi/Object Pascal-ról. Az oké, hogy az tudja, de kérdésben natúran Pascal szerepel. Nem szerepel semmi "Delphi" vagy "Object" szó.
2015. okt. 27. 20:41
Hasznos számodra ez a válasz?
 8/9 ejbenjaro ***** válasza:
Melyik Pascal variánst használod? Free Pascalban megoldott az objektumorientált programozás. A Turbo Pascal azt hiszem az 5.5-ös verziótól kezdte el bevezetni az objektumokat a nyelvben.
2015. okt. 27. 20:46
Hasznos számodra ez a válasz?
 9/9 SimkoL ***** válasza:

Hát a 6-ostól biztosan létezik, az 5.5-re már nem nagyon emlékszem. Attól hogy én Delphi/Object Pascal-nak neveztem attól még Pascal csak kicsit bővebb lére eresztve. A Lazarus is Pascalra, Object Pascalra épít attól, hogy Lazarus a neve.

'de kérdésben natúran Pascal szerepel' Szerintem nagyon kevesen vannak itt akik a 6-os előttieket ismernék, így értelemszerűen adott, hogy mire 'képes' a nyelv.

2015. okt. 27. 21:13
Hasznos számodra ez a válasz?

Kapcsolódó kérdések:





Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!