Pascalban hogyan lehet objektumot, osztályt stb-t létrehozni? Leírja valaki részletes magyarázattal?
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.
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.
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.
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
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!