HowToDoThings.com Delphi

Wie Installieren und Deinstallieren Sie die Font-Eigenschaften aus Delphi Code

Zamrony P535 — Sat, 07 Mar 2009 03:20:44 -0600

How To Turn On / Off-Monitor mit Delphi

Zamrony P535 — Thu, 05 Mar 2009 20:20:17 -0600

Wie man ein Delphi-Konsole-Modus

Zamrony P535 — Mon, 02 Mar 2009 15:41:00 -0600

Wie Schirm mit Delphi

Zamrony P535 — Mon, 02 Mar 2009 09:51:27 -0600

Wie man einer Delphi-Anwendung auf Access

m_s — Wed, 25 Feb 2009 23:50:20 -0600

Die Programmierung mit Delphi

Zamrony P535 — Mon, 23 Feb 2009 22:31:47 -0600

Bestell-Linien

Peter5 — Sat, 27 Dec 2008 16:20:43 -0600

Bei der Gründung einer Assoziation im ECO Sie können nicht garantiert werden, in welcher Reihenfolge die Objekte am Ende des Vereins werden vorgestellt. Aus diesem Grund ECO eine Boolean "bestellt" Eigentum am Verein endet.

Wenn Sie Ordered = True in Ihr Modell und dann die Datenbank, ECO wird eine zusätzliche Spalte in Ihrer Datenbank die Ermittlung der Reihenfolge der Objekte.

Ich habe gerade die Schaffung SalesInvoice / SalesInvoiceLine Klassen und entschied sich zu einer Vereinigung bestellt, weil es im Grunde Standard-Industrie-Praxis, um jede Zeile der Rechnung / Bestellung mit einem sequencial Zahl, so dass es leicht identifyable bei der Diskussion darüber.

Es wäre schön, wenn ich haben einen OCL abgeleitete Attribut mit einem Ausdruck wie diese:

this.SalesInvoice.lines-> indexOf (Selbst-)

read more

Application.ProcessMessages Ersatz

Sat, 27 Dec 2008 15:51:19 -0600

Nicht nur ist Application.ProcessMessages recht lange auf den Typ, die oft zusätzliche Funktionalität werden muss, wenn seine verwendet werden. Zu diesem Zweck habe ich zwei grundlegende Wrapper genutzt werden können an ihrer Stelle:

...

Verfahren ProcessMsg (); Überlast;
Verfahren ProcessMsg (const SleepFor: Word); Überlast;

Umsetzung

Verfahren ProcessMsg ();
beginnen
ProcessMsg (0);
end;

Verfahren ProcessMsg (const SleepFor: Word); Überlast;
beginnen
Application.ProcessMessages ();
Sleep (SleepFor);
end;

...

Jetzt statt schriftlich Application.ProcessMessages (); in Ihrem Code können Sie schreiben ProcessMsg (); statt. Und in der Zukunft können Sie, was passiert, um Application.ProcessMessages Anrufe ohne Besuch viele verschiedene Bereiche Ihres Codes.

Wie zum Abrufen AutoInc Werte mit BDP in Delphi 2005

Sat, 27 Dec 2008 15:51:05 -0600

In diesem Artikel werde ich den Begriff "Identität" austauschbar zu beachten, Auto generiert (von RDMS) Werte in der Regel für eine Spalte, die den Primärschlüssel einer Tabelle. Diese werden als "Sequenzen" in Oracle und "Generatoren" in Interbase.
Eigentlich, gibt es 3 Optionen, um die Identität Wert zurück mit ADO. NET im Allgemeinen:

Verwenden Sie eine Batch-Abfrage (die Datenbank natürlich hat zur Unterstützung dieser)
Verwenden Sie eine gespeicherte Prozedur (wie die Insert-Befehl), die als Ausgabeparameter die "Identität" Wert (dies ist die schnellste und somit empfohlene Methode)
Handle Adapter's RowUpdated / RowUpdating Veranstaltung und eine "SELECT @ @ IDENTITY" (im Falle von SQL Server) im Code-Abfrage in diesem Event-Handler (langsamste)

Parameter vorhanden

Sat, 27 Dec 2008 15:50:43 -0600

Sie benötigen die Funktion in diesem Artikel (http://www.howtodothings.com/ViewArticle.aspx?Article=760), um diese ordnungsgemäß funktioniert

Funktion ParamExists (const paramname: string): Boolean;
var
S: string;
beginnen
Result: = GetParameterValue (paramname, ['/','-'], ':', S);
end;

Holen Sie sich Kommandozeilen-Parameter

Sat, 27 Dec 2008 15:50:32 -0600

(* GetParameterValue

GetParameterValue Rückkehr wird der Wert im Zusammenhang mit einem Parameter-Namen in der Form von

/ paramname: ParamValue
-paramname: ParamValue

und

/ paramname
-paramname

Paramname - Name des Parameters (paramname)
SwitchChars - Parameter wechseln Identifikatoren (/ oder -)
Seperator - Die Zeichen, dass sitzt zwischen paramname und ParamValue (:)
Value - Der Wert des Parameters (ParamValue), wenn er vorhanden ist

Liefert - Boolescher Wert, der Fall, wenn der Parameter gefunden wurde, false, wenn Parameter nicht vorhanden

typische Nutzung

Parameter
-P = c: \ temp \
-S

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

sValue wird c: \ temp \

*)
Funktion GetParameterValue (const paramname: string; SwitchChars: TSysCharSet;
Seperator: Char; var Value: string): Boolean;
var
I, Sep: Longint;

Holen Sie sich die Größe einer Datei

Sat, 27 Dec 2008 15:50:13 -0600

Funktion GetFileSize (const FileName: string): Integer;
var
sr: TSearchRec;
beginnen
Result: = 0;

wenn FindFirst (FileName, faAnyFile, sr) = 0, dann
beginnen
Result: = sr.Size;
FindClose (sr);
end;
end;

BaseForm Klasse

Sat, 27 Dec 2008 15:11:05 -0600

Haben Sie sich jemals selbst gefunden Addition der gleichen Code zu verschiedenen Formen? Nun können Sie die folgenden als Basis für alle Formen.

=============== BEGIN CODE ======================
Einheit BaseForm;

Schnittstelle

verwendet SysUtils, Klassen, Forms, Windows;

Typ
TBaseForm = class (TForm)
geschützt
Funktion IsModal (): Boolean;
Verfahren KeyDown (var Key: Word; Shift: TShiftState); override;
Verfahren SHOWERROR (E: Exception);
Funktion MsgBox (Msg: string;
uType: Integer = MB_OK oder MB_ICONSTOP): Integer; Überlast;
Funktion MsgBox (Msg, MsgCaption: string;
uType: Integer = MB_OK oder MB_ICONSTOP): Integer; Überlast;
end;

Umsetzung

Controls verwendet;

MsgBox-Funktion

Sat, 27 Dec 2008 15:10:47 -0600

Persönlich finde ich, sowohl die WinAPI MessageBox und Application.MessageBox und MessageDlg Funktionen cludgy und immer fügen Sie die folgende Funktion zu jedem App.

Funktion MsgBox (const Msg: string;
MsgType: Integer = MB_OK oder MB_ICONSTOP): Integer;
beginnen
Result: = MessageBox (Application.Handle, PChar (MSG),
PChar (Application.Title), MsgType);
end;

setzt voraus, dass Forms.pas ist in der Klausel verwendet.

Entfernen Sie ReadOnly-Flag aus Datei

Sat, 27 Dec 2008 15:10:36 -0600

Die folgende Funktion wird versuchen, entfernen Sie das lesen, nur Flagge auf eine Datei, benötigen Sie die Funktion in diesem Artikel (http://www.howtodothings.com/ViewArticle.aspx?Article=755).

Funktion RemoveReadOnly (const FileName: string): Boolean;
beginnen
(* Nehmen Erfolg *)
Result: = True;

(* Stellen Sie sicher, dass die Datei nur lesen, bevor
wir versuchen, und ändern Sie die Attribute *)
if (IsReadOnly (FileName)), dann
beginnen
SetFileAttributes (PChar (FileName), FILE_ATTRIBUTE_NORMAL);

Result: = nicht IsReadOnly (FileName);
end;
end;

Erkennen, ob Datei ist ReadOnly

Sat, 27 Dec 2008 15:10:25 -0600

Die folgende Funktion gibt "True", wenn eine Datei nur lesen.

Funktion IsReadOnly (const FileName: string): Boolean;
var
sr: TSearchRec;
beginnen
(* Nehmen Sie nicht nur lesen *)
Result: = False;

wenn FindFirst (FileName, faAnyFile, sr) = 0, dann
beginnen
Result: = (sr.Attr und faReadOnly) <> 0;
FindClose (sr);
end;
end;

Wie funktioniert BoldTreeView

Peter5 — Sat, 27 Dec 2008 15:10:15 -0600

Dies ist nur ein kurzer Satz von Anweisungen, anstatt einen umfassenden Artikel. Es ist eine Kopie von einer Entsendung Ich habe in einer Borland-Newsgroup ...

Ich gebe Ihnen ein Beispiel für ein Ich habe vor kurzem ....

01) Setzen Sie die BoldHandle Immobilie zu Ihrer BoldSystemHandle
02) Doppelklicken Sie auf die Baumansicht, um den Editor
03) Klicken Sie auf die "Root"-Element
04) Wenn es nicht schon ein Kind, klicken Sie auf "Hinzufügen US-Fragment"
05) In ElementExpression geben Sie die wichtigsten OCL, zum Beispiel
"Customer.allInstances"
06) Setzen Sie auf True InterpretAsList
07) Setzen Sie ControllerExpression zu "Customer" (einschließlich Anführungszeichen)

Was haben Sie jetzt ist eine Wurzel packt, dass eine Liste von Kunden. Die BTV weiß, dass es braucht ein "Knoten-Controller" als "Kunde" für jeden Eintrag in der Liste (was ist der Grund, warum InterpretAsList = True).

Speichern und Abrufen von ein Bitmap in ECO

Sat, 27 Dec 2008 14:40:58 -0600

Dieser Artikel zeigt die Grundlagen, wie Speichern und Abrufen von ein Bitmap in ein ECO-Variable.

Erstellen Sie zunächst ein ECO-Variable in der Klasse Sie möchten, halten Sie die Bitmap, zum Beispiel:

FCanvas: Byte

Beachten Sie, dass wir wirklich wollen ein Byte-Array, so der rechten Maustaste auf FCanvas und wählen Sie "Gehe zu Definition".
Sie können sich nun ändern Sie die Definition auf byte [] wie folgt:

private byte [] FCanvas

Geben Sie das Bitmap zu FCanvas verwenden Sie die folgende:

ImageConverter ic = new ImageConverter ();

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

FCanvas = ba;

Um die Bitmap aus FCanvas verwenden Sie die folgende:

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

Zwei Funktionen zur Bewertung OCL

Sat, 27 Dec 2008 14:40:34 -0600

Mit Hilfe von Jonas Hogstrom und Jan Norden Ich habe 2 Funktionen zu bewerten OCL.

Erstens ist zu bewerten, OCL in EcoSpace:

öffentlichen Objekt EvaluateOclInEcoSpace (IElement rootValue, String OCL)
(
Objekt result = null;
IElement e = ((IOclService)
this.GetEcoService (typeof (IOclService))). EvaluateAndSubscribe (rootValue, OCL,
null, null);
if (e! = null)
result = e.AsObject;
return result;
)

Zweitens ist zu bewerten, OCL in PS:

öffentlichen Objekt EvaluateOclInDB (IElement rootValue, String OCL)
(
Objekt result = null;
IElement InternalElement = null;

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

read more

Dynamische TableStyles Auf der Grundlage von Objekttyp

Sat, 27 Dec 2008 13:41:04 -0600

Hier ist ein Beispiel für die Verwendung verschiedener TableStyles je nach Art des aktuell ausgewählten Objekt in einem DataGrid. Ich habe 2 Netze, jeder Haken zu ExpressionHandles. Ich möchte, um eine andere Gruppe von Spalten, je nachdem, welche Art von Objekt in der oberen Raster.

Erstens die Anwendung wissen müssen, wenn ein neues Objekt ausgewählt wurde. Hier ein CurrencyManager wird angeschlossen. DgStock ist ein DataGrid, ehRoot ist ein ExpressionHandle mit den Lager-Objekte.

private

cmStock: CurrencyManager;

....

Verfahren TfrmStock.TfrmStock_Load (Absender: System.Object; e: System.EventArgs);
beginnen
cmStock: = CurrencyManager (dgStock.BindingContext [Self.ehRoot]);
Include (cmStock.PositionChanged, Self.StockGridRowChanged);
end;