HowToDoThings.com Delphi

Comment Ajouter Formulaire Ombre sur Windows XP

Zamrony P535 — Tue, 31 Mar 2009 09:56:46 -0500

Comment faire pour installer et désinstaller des polices de Delphi Code

Zamrony P535 — Sun, 29 Mar 2009 13:51:33 -0500

How To Turn On / Off Monitor avec Delphi

Zamrony P535 — Sun, 29 Mar 2009 07:10:51 -0500

Comment un programme de Delphi en mode console

Zamrony P535 — Sat, 28 Mar 2009 12:31:25 -0500

Comment faire pour capturer l'écran avec Delphi

Zamrony P535 — Sat, 28 Mar 2009 10:30:12 -0500

Comment connecter un Delphi demande d'accès

m_s — Wed, 25 Mar 2009 00:11:34 -0500

Comment faire un programme avec Delphi

Zamrony P535 — Sun, 22 Mar 2009 23:00:48 -0500

Bon de commande de lignes

Peter5 — Sat, 21 Feb 2009 10:40:49 -0600

Lors de la création d'une association ECO-vous ne sont pas garantis de l'ordre dans lequel les objets à la fin de l'association sera présentée. Pour cette raison, ECO offre un booléen «ordonné» de propriété sur l'association se termine.

Lorsque vous définissez Ordered = True dans votre modèle, puis créer votre base de données, ECO permettra de créer une colonne supplémentaire dans votre base de données identifiant la séquence des objets.

Je viens de créer SalesInvoice / SalesInvoiceLine classes et a choisi d'avoir un ordre d'association, essentiellement parce qu'il est de pratiquer l'industrie afin d'identifier chaque ligne d'une facture / commande avec une Sequencial nombre, le rendant facilement identifyable il lors de l'examen.

Il aurait été bien si je pouvais avoir utilisé un attribut dérivé OCL avec une expression similaire à ceci:

this.SalesInvoice.lines-> indexOf (self)

read more

Application.ProcessMessages remplacement

Sat, 21 Feb 2009 10:21:39 -0600

Non seulement Application.ProcessMessages est assez long à taper, souvent des fonctionnalités supplémentaires doit être appelée lorsque son utilisation. À cette fin, j'ai créé deux enveloppes de base qui peut être utilisé à sa place:

...

procédure ProcessMsg (); surcharge;
procédure ProcessMsg (const SleepFor: Word); surcharge;

la mise en œuvre

procédure ProcessMsg ();
commencer
ProcessMsg (0);
fin;

procédure ProcessMsg (const SleepFor: Word); surcharge;
commencer
Application.ProcessMessages ();
Sleep (SleepFor);
fin;

...

Maintenant, au lieu d'écrire Application.ProcessMessages (); dans votre code, vous pouvez écrire ProcessMsg (); la place. Et dans l'avenir, vous pouvez étendre ce qui se passe autour Application.ProcessMessages appels sans visiter beaucoup de domaines différents de votre code.

Comment faire pour récupérer les valeurs AutoInc avec BDP dans Delphi 2005

Sat, 21 Feb 2009 10:21:21 -0600

Dans cet article, je vais utiliser le terme «identité» de façon interchangeable à noter Auto généré (à partir de RDMS) en général pour des valeurs d'une colonne représentant la clé primaire d'une table. Ce sont les «séquences» en Oracle et "producteurs" de Interbase.
En fait, il existe 3 options pour obtenir la valeur d'identité en utilisant ADO. NET en général:

L'utilisation d'un lot de requêtes (la base de données est évidemment à l'appui de cette)
Utilisez une procédure stockée (comme la commande Insérer) comme ayant un paramètre de sortie de la «Identité» de valeur (ce qui est le plus rapide et donc la méthode recommandée)
Handle Adapter la RowUpdated / RowUpdating événement et publiera un "SELECT @ @ IDENTITY" (dans le cas de SQL Server) dans le code de requête dans ce gestionnaire d'événement (plus lent)

Paramètre existe

Sat, 21 Feb 2009 10:20:46 -0600

Vous aurez besoin de la fonction dans cet article (http://www.howtodothings.com/ViewArticle.aspx?Article=760) pour obtenir ce travail correctement

ParamExists fonction (const paramname: string): Boolean;
var
S: string;
commencer
Résultat: = GetParameterValue (paramname, ['/','-'], ':', S);
fin;

Get paramètres de ligne de commande

Sat, 21 Feb 2009 10:20:29 -0600

(* GetParameterValue

GetParameterValue sera de retour la valeur associée à un nom de paramètre sous la forme de

/ paramname: paramvalue
-paramname: paramvalue

/ paramname
-paramname

Paramname - Nom du paramètre (paramname)
SwitchChars - changer les identificateurs de paramètres (/ ou -)
Seperator - Le char qui se trouve entre paramname et paramvalue (:)
Valeur - La valeur du paramètre (paramvalue) si elle existe

Returns - booléenne, true si le paramètre a été trouvé, false si le paramètre n'existe pas

usage typique

Paramètre
-P = c: \ temp \
-S

GetParameterValue ( 'p', ['/','-'], '=', sValue);

sValue contiendra c: \ temp \

*)
GetParameterValue fonction (const paramname: string; SwitchChars: TSysCharSet;
Seperator: Char; var Valeur: string): Boolean;
var
I, Sep: longint;

Obtenir la taille d'un fichier

Sat, 21 Feb 2009 10:20:09 -0600

fonction GetFileSize (const FileName: string): Integer;
var
sr: TSearchRec;
commencer
Résultat: = 0;

si FindFirst (FileName, faAnyFile, sr) = 0 alors
commencer
Résultat: = sr.Size;
FindClose (sr);
fin;
fin;

BaseForm classe

Sat, 21 Feb 2009 09:01:26 -0600

Avez-vous déjà trouvé votre ajoutant le même code à des formes différentes? Eh bien maintenant vous pouvez utiliser le texte suivant en tant que classe de base pour toutes les formes.

=============== BEGIN CODE ======================
BaseForm unité;

interface

utilise sysutils, Classes, Forms, Windows;

type
TBaseForm = class (TForm)
protégées
IsModal fonction (): Boolean;
procédure keydown (var Key: Word; Maj: TShiftState); override;
procédure ShowError (E: Exception);
fonction MsgBox (Msg: string;
uType: Integer = MB_OK ou MB_ICONSTOP): Integer; surcharge;
fonction MsgBox (Msg, MsgCaption: string;
uType: Integer = MB_OK ou MB_ICONSTOP): Integer; surcharge;
fin;

la mise en œuvre

utilise des contrôles;

Fonction MsgBox

Sat, 21 Feb 2009 09:01:09 -0600

Personnellement, je trouve à la fois la WINAPI MessageBox et Application.MessageBox et MessageDlg fonctions cludgy et toujours ajouter la fonction suivante à toutes les applications.

fonction MsgBox (const Msg: string;
MsgType: Integer = MB_OK ou MB_ICONSTOP): Integer;
commencer
Résultat: = MessageBox (Application.Handle, PChar (MSG),
PChar (Application.Title), MsgType);
fin;

exige que Forms.pas est utilise dans la clause.

Supprimer ReadOnly pavillon à partir du fichier

Sat, 21 Feb 2009 09:00:58 -0600

La fonction suivante va tenter de supprimer la lecture seule sur un fichier, vous aurez besoin de la fonction dans cet article (http://www.howtodothings.com/ViewArticle.aspx?Article=755).

fonction RemoveReadOnly (const FileName: string): Boolean;
commencer
(* Supposons Succès *)
Résultat: = True;

(* Assurez-vous que le fichier est en lecture seule, avant
nous essayons de changer les attributs *)
if (IsReadOnly (FileName)) then
commencer
SetFileAttributes (PChar (FileName), FILE_ATTRIBUTE_NORMAL);

Résultat: = pas IsReadOnly (FileName);
fin;
fin;

Détecter si le fichier est ReadOnly

Sat, 21 Feb 2009 09:00:45 -0600

La fonction suivante renvoie True si un fichier est en lecture seule.

fonction IsReadOnly (const FileName: string): Boolean;
var
sr: TSearchRec;
commencer
(* Supposons pas lu seulement *)
Résultat: = False;

si FindFirst (FileName, faAnyFile, sr) = 0 alors
commencer
Résultat: = (sr.Attr et faReadOnly) <> 0;
FindClose (sr);
fin;
fin;

Comment fonctionne BoldTreeView

Peter5 — Sat, 21 Feb 2009 09:00:12 -0600

Ceci est juste un petit jeu d'instructions, plutôt que d'un article. Il est une copie d'une annonce que j'ai faite dans un groupe de discussion Borland ...

Je vais vous donner un exemple de celle que j'ai fait récemment ....

01) Régler la propriété BoldHandle à votre BoldSystemHandle
02) Double-cliquez sur l'arborescence de mettre de l'éditeur
03) Cliquez sur le bouton "Root" element
04) Si elle ne l'a pas déjà eu un enfant, cliquez sur "Ajouter une liste Fragment"
05) Dans ElementExpression entre les principaux OCL, par exemple
"Customer.allInstances"
06) Mettre à True InterpretAsList
07) Mettre ControllerExpression à la clientèle (y compris les guillemets)

Qu'est-ce que vous avez maintenant est une racine qui récupère une liste de clients. La BTV sait qu'il a besoin d'un «nœud de contrôleur» appelé «client» pour représenter chaque élément de la liste (qui est la raison pour laquelle InterpretAsList = True).

Stocker et de récupérer dans un Bitmap ECO

Sat, 21 Feb 2009 07:01:21 -0600

Cet article présente les bases de la façon de stocker et de récupérer une image dans un ECO variable.

Tout d'abord créer un ECO variable dans la classe que vous souhaitez garder l'image, par exemple:

FCanvas: Byte

Notez que nous voulons vraiment avoir un tableau d'octets, alors clic droit sur FCanvas et sélectionnez "Aller à la définition".
Vous pouvez maintenant modifier la définition de byte [] comme suit:

privé byte [] FCanvas

Pour écrire le Bitmap FCanvas à utiliser le texte suivant:

ImageConverter ic = new ImageConverter ();

System.Byte [] ba = (System.Byte []) ic.ConvertTo (bmp, typeof (System.Byte []));

FCanvas = ba;

Pour récupérer l'image bitmap de FCanvas utiliser le texte suivant:

System.IO.Stream str = new System.IO.MemoryStream (FCanvas);

Deux fonctions pour évaluer OCL

Sat, 21 Feb 2009 07:00:42 -0600

Avec l'aide de Jonas Hogstrom et Jan Nordén J'ai écrit 2 fonctions pour évaluer OCL.

Le premier est d'évaluer dans Ecospace OCL:

EvaluateOclInEcoSpace objet public (IElement rootValue, string OCL)
(
object result = null;
IElement e = ((IOclService)
this.GetEcoService (typeof (IOclService))). EvaluateAndSubscribe (rootValue, OCL,
null, null);
if (e! = null)
result = e.AsObject;
return result;
)

Le second est d'évaluer OCL en PS:

EvaluateOclInDB objet public (IElement rootValue, string OCL)
(
object result = null;
IElement InternalElement = null;

IOclService oclService = (IOclService)
this.GetEcoService (typeof (IOclService));

read more