unit MDIClass;
interface
uses
//----------------------------------------------------------------------------
//local
//----------------------------------------------------------------------------
GenDefs,Graphs,OwnUtils,
//----------------------------------------------------------------------------
//global
//----------------------------------------------------------------------------
ComCtrls,ExtCtrls,Graphics,Forms,Types;
type
TDocument= class (TObject)
Processor:JString;
filelength:integer ;
KeyVerbs:PAnsiChar;
ReturnValue:integer ;
Source: array of TSources;
CNav,CSem,CMes,CFun,Cattr:PAnsiChar;
NavL,SemL:PLongTexts;
Fnr:integer ;
GC,GD:TGraph;
TFrame1,TFrame2,TProc:integer ;
Previewrepresentation:boolean ;
public
constructor create();
destructor Destroy;override;
end ;
var
MDI:TDocument;
implementation
//------------------------------------------------------------------
//TDocument
//
//------------------------------------------------------------------
constructor TDocument.create;
begin
GC.Free;
GD.Free;
Previewrepresentation:=false;
inherited create();
end ;
//------------------------------------------------------------------
//TDocument
//
//------------------------------------------------------------------
destructor TDocument.Destroy;
begin
inherited Free;
end ;
//------------------------------------------------------------------
//--
//Ende dieser Quelle --
//--
//------------------------------------------------------------------
end .
quality 93%
¤ Dauer der Verarbeitung: 0.11 Sekunden
(vorverarbeitet)
¤
*© Formatika GbR, Deutschland