===> http://www.*-*-*.com/ ~jola/EFLIB/ <===
Try out a ***free*** object-oriented tool for Borland Pascal.
It includes *many* features, such as;
- polymorphic, generic data structures such as doubly linked
strucutures (stacks, queues, lists), cached structures,
segmented structures, binary (search/AVL) trees, hash tables,
virtual arrays, structure mirrors, and more.
- virtualized screen I/O and virtual screens with presentation
methods (fade in, explode, shrink, drag, ...).
- mathematical procedures (equation solving)
- device engines; keyboard, mouse, speaker, screen ...
- polymorphic memory engine
- polymorphic data streams including buffered data streams
- windows, dialogue boxes, selecion lists, editors, browsers
- button panels, menues
... just to pick out some examples. (All these features will be
included in the next release, most of them are already
available).
The OOP tool is not dependent of Turbo Vision.
For more information, please have a look at;
http://www.*-*-*.com/ ~jola/EFLIB/
http://www.*-*-*.com/ ~jola/EFLIB/Advanced/
http://www.*-*-*.com/ ~jola/EFLIB/Features/
Beta testers receive a free and documented copy of EFLIB. Join the beta
team! Developing support needed, please send your comments, ideas,
Next release will include;
* Rewritten multitasking engine
* Polymorphic objects
* New data structures such as; segmented lists and cached
structures, and virtual arrays that grows automatically.
* More advanced mathematical OOP functions, such as
expression solver that uses binary trees - advices needed!
* Iterative OOP equation solver that provides differential functions.
Greetings, Johan
[Short source code example included with this document]
[
Browser.pas < 1K ]
{ Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996 }
{ Text browser demonstration }
{ EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR }
{ MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT- }
{ ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED. }
uses EFLIBDEF, EFLIBDAT, EFLIBDIA, EFLIBSCR, EFLIBMSE, EFLIBIO,
EFLIBTXT, EFLIBBAS;
var MyBrowser : BrowserObjectType;
MyText : TextObjectType;
Filename : string;
begin
MyText.Initialize;
if (ParamCount = 0) then Filename := 'HAMLET.TXT' else Filename := ParamStr(1);
MyText.TransferFromFile (Filename);
with MyBrowser do begin
DoubleBorder, TRUE, FALSE);
Browse;
Intercept;
end;
MyText.Intercept;
end.