| Class TACTextAss (unit AcTxtAssist) |
TComponent
***************************************************************************** * TACTextAss *
| Constructors |
Constructor Create(AOwner: TComponent);| Functions |
Procedure Add(Titolo,Words,Termine:String;ID:Integer);***************************************************************************** * Add * * * * Aggiunge nel file un record nuovo * * * * Nome Descrizione * * --------------- ---------------------------------------------------------- * * Desc Descrizione * * Words Parole per la ricerca * * ID ID per riferimento all help *
Procedure CreateFile;***************************************************************************** * CreateFile * * * * Crea un file per la guida vuoto *
Procedure Edit(Num:Integer;Titolo,Words,Termine:String;ID:Integer);
Procedure FindWord(frase:String);
Procedure Get(Num:Integer;Var Titolo,Words,Termine:String;Var ID:Integer);
Function RecordCount : Integer;
Procedure SetFName (Nome:String);***************************************************************************** * SetFname * * * * Imposta il nome del file *
| Properties |
property AfterReadEveryOne : TACTextProcedureFind
property FileName : String| Events |
| Variables |
FName : String;
FProcFind : TACTextProcedureFind;| Constructors |
Constructor Create(AOwner: TComponent);***************************************************************************** * Create *
| Functions |
Procedure Add(Titolo,Words,Termine:String;ID:Integer);Crea il file vuoto per l'help
***************************************************************************** * Add * * * * Aggiunge nel file un record nuovo * * * * Nome Descrizione * * --------------- ---------------------------------------------------------- * * Desc Descrizione * * Words Parole per la ricerca * * ID ID per riferimento all help *
Procedure CreateFile;Public declarations
***************************************************************************** * CreateFile * * * * Crea un file per la guida vuoto *
Procedure Edit(Num:Integer;Titolo,Words,Termine:String;ID:Integer);***************************************************************************** * Add * * * * Edita o il record desiderato * * * * Nome Descrizione * * --------------- ---------------------------------------------------------- * * Num Numero del record, i record iniziano con il numero 0 * * Desc Descrizione * * Words Parole per la ricerca * * ID ID per riferimento all help *
Procedure FindWord(frase:String);***************************************************************************** * FindWord * * * * Restituisce il numero di record * * *
Procedure Get(Num:Integer;Var Titolo,Words,Termine:String;Var ID:Integer);***************************************************************************** * Get * * * * Restituisce le informazioni sul record interessato * * * * Nome Descrizione * * --------------- ---------------------------------------------------------- * * Num Numero del record, i record iniziano con il numero 0 * * Desc Descrizione * * Words Parole per la ricerca * * ID ID per riferimento all help *
Function RecordCount : Integer;***************************************************************************** * RecordCount * * * * Restituisce il numero di record *
Procedure SetFName (Nome:String);Protected declarations
***************************************************************************** * SetFname * * * * Imposta il nome del file *
| Properties |
property AfterReadEveryOne : TACTextProcedureFind
property FileName : StringPublished declarations
| Events |
| Variables |
FName : String;Private declarations
FProcFind : TACTextProcedureFind;Nome del file