.


:




:

































 

 

 

 


Pascal' Delphi? ,




- , delphi - -...

, Pascal DOS-, Delphi WIN32
Delphi -, Pascal

, object pascal?

Delphi . Object Pascal .

Pascal- ( - ).
Object Pascal - - ( - ++)
Delphi - , - , Object Pascal (: MS Visual ++ Embarcadero C++ ( CodeGear C++, Borland C++))

 

Pascal Delphi

Pascal - , . , , ( ) . 1967-1968 . (Niklaus Wirth) ( http://cc.kzoo.edu/~k98ja01/wirth.html) 1971 (The Programming Language Pascal Acta Informatica, 1 (Jun 1971), 35-63). 1974 . (PASCAL User Manual and Report, ISO Pascal Standard Kathleen Jensen and Niklaus Wirth) (Kathleen Jensen). , , , . , , ( ), . , . , , . , , , , . , , . , (Edsger Dijkstra) , . ( Visual) . , a PL/I , . , . , , , , , . , , . , . , , . , . , , . , (, ). , , , - . , , . Borland ( Inprise). Turbo Pascal . , , , , . . , DEC. , , , . ( , , ) , , , , . , Borland Pascal , 5, - . . (unextended Pascal) 1983 ( ANSI/IEEE 7703 97-1993 ISO 7185:1983. ISO http://www.iso.ch/welcome.html) -. Extended Pascal , ( , - , ), ( , .) ( ANSI/IEEE 7703.160-1989 ISO/IEC 10206:1991). (Object-Oriented Extensions to Pascal), , , (ANSI Technical Report) 1993 . ( ANSI/X3-TR-13-1994) , , , () - . Delphi Borland Delphi 1993 . . . , . , Delphi . , 80% . Windows- ( Delphi ) (Object Inspector). ( , ..) . ( ), ( Microsoft API), , . ActiveX Microsoft IDL, web- ( ), HTML, XML ASP. CORBA, - intranet-, Borland DataBase Engine, ODBC- Microsoft ADO. , Delphi 3, (multi-tiered) ( ) (-) . , Delphi Object Pascal, Borland. , - . , , . (exceptions), (overload) C++. , , WideChar AnsiChar. (AnsiStrmg) Delphi . , , , . , -, , . , Delphi ( ) Delphi (IDE). , Delphi , 2-3 , , . . , Inprise , , Delphi, Linux. Delphi www.inprise.com www.inprise.ru. , Delphi, Delphi delphi.vitpc.com, Torry's Delphi Pages www.torry.ru. , Delphi. , www.brainbench.com Delphi 3 . , [email protected] BYTE/, 2000 , , , , . , , , /, . . . Object sl Program BYTE_Example; // Oject Pascal, Delphi 5 {$APPTYPE CONSOLE} // , uses SysUtils, Classes; // type Array = class (TObject) // - private FArray: array of integer; // FPos: integer; // public function GetLastNumber:integer; // function GetElement(Poz:integer):integer; // procedure AddElement(Value:integer); // constructor create; // destructor Destroy; override; // end; const delta=100; // procedure TMyArray.AddElenient(Value: integer); begin if FPos>High(FArray) then // ? SetLength(FArray,Length(FArray)+delta); // Delta FArray[FPos]:=Value; // Inc(FPos); end; constructor Array.create; // begin inherited, // SetLength(FArray,delta); // delta- FPos:=0; // end; destructor rr.Destroy; // begin // FArray:=nil; // inherited; // end; function rr.GetElement(Poz: integer): integer; begin result:= FArray[Poz] end; // function rr.GetLastNumber: integer; begin result:=FPos-1; end; // procedure ReadElementsFromFile; // var F: file of Integer; // rr: rr; // i: integer; // begin Array:= Array. create; // - AssignFile(F, 'TestFile.dat'); // reset(F); while not eof (F) do begin read(F,I); // Array.AddElement(I); // end; closeFile(F); // for i:= Array.GetLastNumber downto 0 do // if Array.GetElement(i) mod 2 <> 0 then // writeln(intTostr(MyArray.GetElement(i))); // Array.Free; // end; begin // ReadElementsFromFile end.




:


: 2015-11-05; !; : 846 |


:

:

, .
==> ...

1799 - | 1553 -


© 2015-2024 lektsii.org - -

: 0.025 .