このストーリーは、Delphiが何であるかを知らず、Delphiでプログラミングできない開発者を対象としていません。これらの開発ツールを扱っていない人は、記事にコメントしたり、これらの開発ツールを使用して書かれた長期的な開発をサポートし続けている祖父のすでに粉砕された神経を傷つけたりしないように求められます。すべてを最初からよりファッショナブルなものに書き直すことはお勧めしません。
前書き
私の名前はKonstantinTimofeevです。私は40歳で、動的計算の自動化システム（SADR）を扱う部門の3Bサービス会社の主要なプログラマーです。当社の主なソフトウェア製品は、動的システムSimInTech（テクニカルデバイスでの旧PCシミュレーション-4、PC「MVTU」と略記）のシミュレーション環境です。
歴史的に、このソフトウェア製品は、モスクワ州立工科大学の原子力発電所および発電所（E7）で開発が開始されました。バウマン。 PC「MVTU」の最初のバージョンは、博士のリーダーシップの下で部門で開発されました。コズロフオレグステパノビッチ。このソフトウェアパッケージは、原子力発電所のダイナミクスの構造モデリングを目的としていました。 PC「MVTU」の機能は、システムのモデルをブロック図の形で作成し、その後、システムのダイナミクスとその数値解の微分方程式のシステムを自動的に形成し、計算結果をグラフに表示することで構成されました。このトピックのさらなる開発では、2003年に開発に参加し、PC「MVTU-3」に基づいてソフトウェアコンプレックスの工業用バージョンであるPC「MVTU-4」の作成を開始しました。これは後にSimInTechという名前になりました。プログラムの新しいバージョンの開発には、プログラムアーキテクチャの非常に深刻な改訂が必要であり、原子力発電所のダイナミクスや他の業界のシステムの本格的なモデルを構築できる複合体を作成することが可能になり、Simulink、AmeSim、VisSimシステムの価値のある競争相手です。
«-3» Delphi, 3 ( 5). , . ( ).
2003 , Delphi 6. Windows Delphi 10.3.3. Delphi, \++ , FORTRAN. , .
1: –
SimInTech . , - . , – : , , , , , , , (, -, ). - – (). – , – .. ). – ( , ). , , .
:
- , .
- .
- , , , OPC, shared memory.
- .
- .
- \\.
- .
- .
- COM- ( ).
. Delphi , ( , ) :
- – Tee Chart Pro.
- – SynEdit, TBCEditor.
- – DSPack.
- \\ \ \ \ – VirtualTreeView.
- – zeosdbo.
- – GLScenes.
- – JEDI VCL + JCL - , .
, DLL C FORTRAN, RSA MD5 . Windows- Direct2D, ( ).
– , . .
. . , DLL , override . , . ( ) \ \ . , – .. ( ). , – .. .
, , , fastmm5, . , , .
215073 ( , dfm). Delphi 2858375 , .
.
2:
, Windows, (). , , GRS . BDSM – ( ) Suse Linux, -, . , , - . – Wine , 32 Direct2D , . , , . , API , . - Windows-.
Java , FORTRAN - . , Delphi , - ( ). Java ( - , ), . C#, - GUI Linux .
GUI 2:
1. Qt C++ - , , – VCL . , . , Qt (qucs ) , .
2. Free Pascal + Lazarus. ( ) , . , .
, Delphi IFDEF- Lazarus. , SimInTech Windows 2 . , .
Lazarus , , -, , 2D-. AggPas Lazarus-, Direct2D . . Lazarus- CodeTyphon Studio , Linux . :
1 – , , Delphi-. . BCEditor ( SynEdit, ), DSPack ( , ), TeeChart Pro ( TAChart, ).
2 – – ORCA 2D, Direct2D .
3:
– , .. , , :
1 – , shared object – .
2 – C FORTRAN.
3 – , , .. .
4 – .
5 – dfm ( 2 Windows Linux .
1 3, Lazarus LCL VCL, .
VirtualBox , . Open Suse, Alt Linux 8.3 Alt Linux 9. https://pilotlogic.com/ . – su ./install.sh , Alt Linux , – , . – CodeTyphonIns\installbin\ScriptsLin\ln_All_Functions.sh .
Alt Linux , , Ubuntu:
#------------ 100 Alt (apt-get compitible)----------
elif [ -f /etc/altlinux-release ] ; then
vOSVerNum=100
vOSDistribution="Alt Linux (apt-get compatible)"
vMultiArchDirPlan=200
AstraLinux ( sudo). AltLinux 9 Astra Linux Orel.
Astra Linux , – git 2.11, SmartGIT- 2.16. git .
Linux.
, . , DLL .
, Free Pascal, , RTL- cmem, libc. Delphi dpr- ( Delphi SimpleShareMem fastmm4 \ fastmm5 ). . , fpcx64mm Synopse mORMot framework 2. , , simmm.pas :
unit simmm;
//
{$IFNDEF DCAD}
{$DEFINE IS_DLL_UNIT}
{$ENDIF}
{$IFDEF FPC}
{$MODE Delphi}{$H+}
{$ENDIF}
interface
{$IFDEF UNIX}
{$IFDEF IS_DLL_UNIT}
uses cthreads, dl;
{$ELSE}
uses cthreads, fpcx64mm;
{$ENDIF}
{$ELSE}
uses FastMM5;
{$ENDIF}
implementation
{$IFDEF UNIX}
{$IFDEF IS_DLL_UNIT}
var
NewMM,
OldMM: TMemoryManager;
MainHandle: Pointer;
GetCommonMemoryManager: procedure(var aMemMgr: TMemoryManager);
{$ENDIF}
{$ENDIF}
initialization
{$IFDEF UNIX}
{$IFDEF IS_DLL_UNIT}
MainHandle:=dlopen(nil, RTLD_LAZY);
GetCommonMemoryManager:=dlsym(MainHandle,'GetMemoryManager');
GetCommonMemoryManager(NewMM);
GetMemoryManager(OldMM);
SetMemoryManager(NewMM);
{$ENDIF}
{$ELSE}
//
if IsLibrary then
FastMM_AttemptToUseSharedMemoryManager
else
FastMM_ShareMemoryManager;
{$ENDIF}
{$IFDEF UNIX}
{$IFDEF IS_DLL_UNIT}
finalization
SetMemoryManager(OldMM);
{$ENDIF}
{$ENDIF}
end.
DCAD , GetMemoryManager. dll\so dlopen(nil, RTLD_LAZY) – , . simmm .
– , dll\so . Delphi . .. TForm.Create, . Lazarus , .. , , so- :
…..
Classes,
{$IFDEF FPC}
Interfaces,
{$ENDIF}
Forms,
Application initialization finalization:
{$IFDEF FPC}
initialization
Application.Initialize;
finalization
Application.Terminate;
end.
{$ENDIF}
, so.
, Lazarus. , UNIX- so , cthreads:
{$IFDEF UNIX}
cthreads,
{$ENDIF}
dpr- , , dpr‑ :
{$IFDEF FPC}
{$MODE Delphi} // , Free Pascal
{$ENDIF} // Delphi.
library mbtylib;
uses
simmm,
{$IFDEF UNIX}
cthreads, // simm.pas
{$ENDIF}
Classes,
{$IFDEF FPC}
Interfaces,
{$ENDIF}
Forms,
MBTYTools in 'MBTYTools.pas',
MBTYObjts in 'MBTYObjts.pas',
uMBTYThread in 'uMBTYThread.pas',
SpecBlocks in 'SpecBlocks.pas',
InfoUnit in 'InfoUnit.pas' {MBTYInfoForm},
MBTYtranslate in 'MBTYtranslate.pas',
uDebugBlockForm in 'uDebugBlockForm.pas' {DebugBlockForm};
{$R *.res}
// ,
{$R mbtybuttons.res}
// DllInfo
function GetEntry:Pointer;
begin
Result:=@DllInfo;
end;
exports
GetEntry name 'GetEntry', // DllInfo
CreateObject name 'CreateObject'; //
{$IFDEF FPC}
initialization
Application.Initialize;
finalization
Application.Terminate;
end.
{$ENDIF}
begin
end.
2 Linux. DLL – . .so , , intel fortran gfortran , , DLL\SO. , FORTRAN:
Windows - INTEL FORTRAN, stdcall:
TSbros = procedure(
Nuzl,Nu,Ngran,Nmat,Nko,idmdt0,iadiab0: integer; // +++ 31.03.2014 (iadiab0)
var El,Iel,Uzel,Iuzel,
NYZL,G,Nnas,Nzad,Nelu,
Gran,Granu,Ngu,Ngut,Propm,Nelm,
Zadv,Pump,Nzadp;
Dtau,DtauG,Htau,TauE: TPPRealType;
…………………..
);stdcall;
Linux gfortran cdecl:
// GFortran
TSbros = procedure(
var Nuzl,Nu,Ngran,Nmat,Nko,idmdt0,iadiab0: integer; // +++ 31.03.2014 (iadiab0)
var El,Iel,Uzel,Iuzel,
NYZL,G,Nnas,Nzad,Nelu,
Gran,Granu,Ngu,Ngut,Propm,Nelm,
Zadv,Pump,Nzadp;
var Dtau,DtauG,Htau,TauE: TPPRealType;
………………….
);cdecl;
, Intel FORTRAN , , gfortran . Intel FORRAN Windows – stdcall, gfortran, Windows Linux – cdecl.
DLL: Intel Fortran Windows , gfortran _ :
{$IFDEF Windows}'wwww'{$ELSE}'wwww_'{$ENDIF}
. gcc. so- :
gcc -shared -fPIC -o ../../bin/libcommonclibs.so -s nn.c prime.c r_keygen.c rc4c.c rsa.c md5c.c -fpack-struct=1 -Wconversion
, , Pascal.
CodeTyphon Studio, , . , .
|
|
Delphi |
CodeTyphon Studio\ Lazarus |
TButton |
+ |
+ |
Tedit |
+ |
+ |
TjvComponentPanel |
+ |
+ |
TactionList |
+ |
+ |
TjvFormMagnet |
+ |
- |
TcontrolBar |
+ |
+ |
TtoolBar |
+ |
+ |
TjvOfficeColorPanel |
+ |
- ThexaColorPicker |
TcheckBox |
+ |
+ |
TcomboBox |
+ |
+ |
TjvListBox |
+ |
- TListBox |
TeeChart Pro |
+ |
- |
TjvSpinEdit |
+ |
- TspinEdit |
TjvFontComboBox |
+ |
- TplFontComboBox |
TBCEditor |
+ |
- TsynEdit |
TvirtualStringTree |
+ |
+ |
TPageControl |
+ |
+ |
TTabControl |
+ |
+ |
TPanel |
+ |
+ |
TBitBtn |
+ |
+ |
TJvButton |
+ |
- TBitBtn |
TScrollBar |
+ |
+ |
TFrame |
+ |
+ |
TJvListView |
+ |
- TListView |
TSpeedButton |
+ |
+ |
|
+ |
+ |
GLScenes |
+ |
+ |
DSPack |
+ |
- |
Indy |
+ |
+ |
TPngImage |
+ |
+ TPortableNetworkGraphic |
JVCL , . , , Linux , TeeChart Pro, , .
CodeTyphon Studio Windows Linux . git SmartGit, altlinux.
Lazarus\CodeTyphon (pas, dpr include-) UTF8 BOM ! , ! Delphi .
– (ctpr) .
ctpr-, CodeTyphon Studio xml- . ctpr .
– , . , ctpr-, Code Typhon, , dpr- ( ) – :
simmm,
{$IFDEF UNIX}
cthreads,
{$ENDIF }
{$IFDEF FPC}
Interfaces,
{$ENDIF}
:
{$IFDEF FPC}
exports
GetMemoryManager; // SO-
{$ENDIF}
COM- Excel - -.
«» . – , :
{$IFDEF FPC}
{$MODE Delphi}{$H+}
{$ELSE}
{$DEFINE Windows}
{$ENDIF}
CodeTyphon Studio, .
- uses – Windows Messages:
{$IFDEF FPC} FileUtil,{$ELSE} Windows,{$ENDIF}
(DataTypes.pas) :
{$IFDEF FPC}
PRect = ^TRect;
{$ENDIF}
TWindowsPointArray = array of {$IFNDEF FPC}Windows.{$ENDIF}TPoint;
, , Delphi Free Pascal :
Delphi – 1 , FreePascal – 4, , , :
//
SizeOfTColor = 4;
SizeOfTPenStyle = 1; //SizeOf(TPenStyle); // FPC enum 4 !
SizeOfTBrushStyle = 1; //SizeOf(TBrushStyle);
SizeOfTDataMode = 1; //SizeOf(TDataMode);
SizeOf !
, Windows:
{$IfDef FPC}
procedure ZeroMemory(const Data: pointer; Size: integer); inline;
begin
FillChar(Data^,Size,0);
end;
{$EndIf}
, , Windows - :
{$IfDef fpc}CreateDir(newdir){$else}CreateDirectory(PChar(newdir),nil) and (GetLastError <> ERROR_ALREADY_EXISTS){$endif}
Windows , .. Lazarus\CodeTyphon – UTF8 , Delphi – UTF16:
{$IFDEF FPC}
procedure SaveStr(const S:string;Stream:TStream);
var N,c: cardinal;
UniString: UnicodeString;
begin
UniString:=UTF8Decode(S);
N:=Length(UniString);
with Stream do begin
c:=N or $80000000;
Write(c,SizeOfInt);
if N > 0 then begin
Write(Pointer(UniString)^,N*2);
end;
end
end;
procedure LoadStr(var S:string;Stream:TStream);
var N: cardinal;
UniString: UnicodeString;
procedure DoLoadAsAnsi;
var tmps: ansistring;
begin
// - ansi
SetLength(tmps,N);
if N>0 then Stream.Read(Pointer(tmps)^, N);
S:=tmps;
end;
begin
with Stream do begin
Read(N,SizeOfInt);
if (N and $80000000) <> 0 then begin
//
N:=N and (not $80000000);
SetLength(S,N);
SetLength(UniString,N);
if N > 0 then begin
Stream.Read(Pointer(UniString)^, N*2);
S:=UTF8Encode(UniString);
end;
end
else
DoLoadAsAnsi;
end
end;
{$ELSE}
.......
, - Delphi, , 4- . 1 2- UTF16, 0 – ANSI .
, {$MODE Delphi}.
, :
, :
{$IFDEF FPC}
{$MODE Delphi}{$H+}
{$ENDIF}
uses - :
{$IFDEF FPC} LCLType, LCLIntf, LMessages, GraphType,{$ELSE}Windows, Messages,{$ENDIF}
:
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
, VCL. – !
implementation dfm-, {$R *.dfm} , CodeTyphon frm ( ):
{$IFDEF ENG}
{$IFnDEF FPC}
{$R *.eng.dfm}
{$ELSE}
{$R *.eng.frm}
{$ENDIF}
{$ELSE}
{$IFnDEF FPC}
{$R *.dfm}
{$ELSE}
{$R *.frm}
{$ENDIF}
{$ENDIF}
Delphi (dfm) CodeTyphon (frm). Lazarus\Code Typhon dfm-, ( ).
, – dfm- :
dfm . «» .
frm - , « \ (F12)» frm-. 2 : – - - – frm- « \ (F12)» :
, frm- FormCreate, . , \ \ GTK2 Lazarus\Code Typhon , .
– , :
cProgressBar: {$IFDEF FPC}TProgressBar{$ELSE}TJvGradientProgressBar{$ENDIF};
cMsgView: {$IFDEF FPC}TListBox{$ELSE}TJvListBox{$ENDIF};
, . – , , , API, :
- LoadLibrary – WinAPI DynLibs . Windows, – *.dll lib*.so .
SO , /bin PATH, :
fLibHandle:=LoadLibrary({$IFNDEF FPC}PChar{$ENDIF}(ExtractFilePath({$IFDEF FPC} ParamStr(0) {$ELSE} GetModuleName(HInstance) {$ENDIF})+rsalib_name));
SO\DLL THandle TLibHandle, .. :
Var fLibHandle: TLibHandle; \\ THandle
- (InitializeCriticalSection, CreateEvent ..) – syncobjs, Free Pascal Delphi ( TCriticalSection TEvent ):
WinAPI |
|
RTL_CRITICAL_SECTION |
TCriticalSection |
InitializeCriticalSection |
TCriticalSection.Create |
DeleteCriticalSection |
TCriticalSection.Free |
EnterCriticalSection |
TCriticalSection.Enter |
LeaveCriticalSection |
TCriticalSection.Leave |
hEvent |
TEvent |
CreateEvent |
TEvent.Create |
CloseHandle(hEvent) |
TEvent.Free |
SetEvent |
TEvent.SetEvent |
ResetEvent |
TEvent.ResetEvent |
WaitForSingleObjects |
TEvent.WaitFor |
EnterCriticalSection… TCriticalSection .. ! LCL, !
- – . Linux system, exec :
uses {$IFDEF Windows} Windows, {$ELSE} LCLType, unix, Baseunix,{$ENDIF} Classes, SysUtils;
………
//
function WinExecAndWait32(const FileName:string; Visibility : integer = 0;
TimeOut: cardinal = {$IFDEF Windows}INFINITE{$ELSE}maxLongInt{$ENDIF}):longword; var ss: AnsiString;
begin
ss := FileName;
Result:=fpSystem( ss );
end;
function MyWinExec(const S: string;aShowMode: cardinal):cardinal;
var ss : ansistring;
begin
{$IFDEF Windows}
ss:=S;
Result:=Windows.WinExec(PAnsiChar(ss),aShowMode);
{$ELSE}
// - &
// : fpSystem
// .
ss := S + ' &';
Result:=fpSystem( ss );
{$ENDIF}
end;
- Direct2D.
Windows GDI – GDI+ , ( Windows 7) Direct2D API, . . Linux 2 – TCanvas – . 2d- Linux ORCA2d TD2Canvas TDirect2Canvas . TD2Canvas cairo Linux. API-, . , - Free . - 1.
, TPaintBox, Direct2D :
:
ShemePanel: {$IFDEF FPC}TD2Scene{$ELSE}TPanel{$ENDIF};
PaintBox: {$IFDEF FPC}TD2Image{$ELSE}TPaintBox{$ENDIF}; //
:
{$IFDEF FPC}
PaintBox.Bitmap.SetSize(ShemePanel.Width,ShemePanel.Height);
PaintBox.OnPaint:=DoPaintPB;
Canvas:=TDirect2DCanvas.Create(PaintBox.Bitmap.Canvas);
Canvas.FBaseImageObject:=PaintBox;
{$ELSE}
Canvas:=TMyD2Canvas.Create(ShemePanel.Handle);
{$ENDIF}
, ORCA2D single.
, Linux Direct2D , , TD2Image OnPaint , .. . ShemePanel.Repaint Direct2D .
4: Linux
, , – (.. ). .. , . . - 2 . . - 2 5. . - common . - 15 . DLL try except finally 2 . Linux ( Windows ) , try except threadvar except.inc RTL . - threadvar- SO cthreads. SO . - , threadvar- var - . . cthreads . cthreads simm .
except.inc RTL Free Pascal:
{$ifdef FPC_HAS_FEATURE_THREADING}
ThreadVar
{$else FPC_HAS_FEATURE_THREADING}
Var
{$endif FPC_HAS_FEATURE_THREADING}
ExceptAddrStack : PExceptAddr;
ExceptObjectStack : PExceptObject;
ExceptTryLevel : ObjpasInt;
......
Function fpc_PushExceptAddr (Ft: {$ifdef CPU16}SmallInt{$else}Longint{$endif};_buf,_newaddr : pointer): PJmp_buf ;
[Public, Alias : 'FPC_PUSHEXCEPTADDR'];compilerproc;
var
_ExceptAddrstack : ^PExceptAddr;
begin
{$ifdef excdebug}
writeln ('In PushExceptAddr');
{$endif}
_ExceptAddrstack:=@ExceptAddrstack;
PExceptAddr(_newaddr)^.Next:=_ExceptAddrstack^;
_ExceptAddrStack^:=PExceptAddr(_newaddr);
PExceptAddr(_newaddr)^.Buf:=PJmp_Buf(_buf);
PExceptAddr(_newaddr)^.FrameType:=ft;
result:=PJmp_Buf(_buf);
end;
, cthreads threadvar- , , , . - .
5.
, FreePascal – , . - FreeLibrary . , - . fpc_ansistr_decr_ref, . – Delphi Windows . – , . Init, . , , Init TMain.AddMenuItem (TMain , , , . InterfaceUnit.pas).
:
AddMenuItem:function(Parent: Pointer;const Caption:string;OnClick: TNotifyEvent;Tag:NativeInt):Pointer;
DllInfo.Main.AddMenuItem(DllInfo.Main.Menu,txtTppTools,nil,0);
txtTppTools –
AddMenuItem Caption Caption TMenuItem. – !
:
FreePascal – .. - = - 1 , - - 1. shared object . – , (.. ). string - PChar. PChar , .. , , .
, PChar :
AddMenuItem:function(Parent: Pointer;Caption:PChar;OnClick: TNotifyEvent;Tag:NativeInt):Pointer;
InsertMenuItem:function(Parent: Pointer;Caption:PChar;OnClick: TNotifyEvent;Tag,AIndex:integer):Pointer;
InsertMenuItem:function(Parent: Pointer;Caption:PChar;OnClick: TNotifyEvent;Tag,AIndex:integer):Pointer;
SetAlias: function(aAlias,aAliasValue: PChar;fReplace: boolean):boolean;
:
SetComponentName: procedure(aComponentPtr: Pointer;aName: PChar);
TComponent(aComponentPtr).Name := aName
const … : string PChar .
6. Linux LCL
LCL VCL, .
TTabControl LCL , TTabControl.Tabs.Objects LCL VCL ! Objects Tabs TTabControl LCL ! , FPC Delphi :
{$IFDEF FPC}
TCComps.Tabs.Add( TranslationEngine.TranslateWordFunc( MainLibrary.Tabs[i], TID_PANELBUTTONS) );
TShowedTabList.Add(Tab);
{$ELSE}
TCComps.Tabs.AddObject( TranslationEngine.TranslateWordFunc(MainLibrary.Tabs[i],TID_PANELBUTTONS ),Tab);
{$ENDIF}
TControlBar TToolBar – frm-. TControlBar GTK2 .
( ) :
{$IFDEF FPC}
ActiveEditor.DefRect:=ActiveEditor.BoundsRect;
ActiveEditor.PaintTimer.Enabled:=False;
{$ENDIF}
ActiveEditor.BorderStyle:=bsNone;
{$IFDEF FPC}
RecreateWnd(ActiveEditor); //
{$ENDIF}
LCL ( bsSizeable bsNone), frm- , . override CreateParams :
procedure TEditForm.CreateParams(var Params :TCreateParams);
begin
// , !
if global_projects_window_no_border then begin
{$IFDEF FPC}
FFormBorderStyle:=bsNone;
{$ELSE}
// FBorderStyle RecreateWindow
TFormBorderStyle((@BorderStyle)^):=bsNone;
{$ENDIF}
end;
\ , .. .
{$IFDEF FPC}
// Linux , ..
PostMessage(Handle,WM_PaintSheme,0,0) ;
{$ELSE}
RepaintFormAll; // , .. !!!
{$ENDIF}
SO (DLL) , , – Action:=caFree ! OnClose Free – .
procedure TDebugBlockForm.FormClose(Sender: TObject; var Action: TCloseAction);
var i: integer;
begin
if aBlockPtr <> nil then begin
StopShowData;
TMBTYBlock(aBlockPtr).fBlockDebugForm:=nil;
for I := 0 to Length(aInputsDataList) - 1 do
aInputsDataList[i].fReplaceArray.Free;
for I := 0 to Length(aOutputsDataList) - 1 do
aOutputsDataList[i].fReplaceArray.Free;
end;
{$IFDEF FPC}
Free;
{$ELSE}
Action:=caFree;
{$ENDIF}
end;
7. Linux?
(2- 3- ). , . Delphi Windows TeeChart Pro Steema software , . 100 Windows 2017 . .
Linux Lazarus , . - TAChart, . IFDEF- , TChart- Delphi ( ).
TeeChart Pro :
:
! ! - LCL - !
, Code Typhon:
- Source .pas, .lpr, .lfm UTF8+BOM Linux.
- .lfm .frm CodeTyphon .
- teechart.lpk teechart.ctpkg
- lfm- IFDEF:
Windows- Code Typhon. !
, , .
Linux – usr\local\codetyphon\typhon\components my_TeeChartPro.
teechart.ctpkg teechartlinux.ctpkg. «». . , , OpenGLLinux :
, ( OpenGL ). . .. OpenGL .
TeCanvas.pas , Windows:
.
. IFDEF- Linux TeeChart Pro Linux .
, ☹ . FPC , .
, :
IsWindowsNT True . Linux Windows, 2- :
1. .
2. , .
, Linux. , TeCanvas.pas ( ).
TeeChart Pro LCL , . .
1. Delphi Linux . . Excel COM- COM- .
2. , , . , .
3. Java ( C++) - . , 3. , , .. , Windows-.
4. Code Typhon , Delphi. Lazarus .
5. Code Typhon\Lazarus , , Delphi . 90 % . Delphi Windows , .
6. , UTF8+BOM.
7. VCL LCL, FMX, .
8. Delphi , .. Win32 , Linux . Free Pascal Linux, FORTRAN – RTL .
:
