HowToDoThings.com Delphi

Updating a table with data from another table with Local SQL

Sun, 19 Aug 2001 23:00:00 -0500

The UPDATE sentence of Local SQL (the SQL used by the BDE) doesn't support JOIN... How two update a table with data from another table?

Updating a table with data from another table with Local SQL

+-------------+ +-------------+ | Orders.db | | Customer.db | +-------------+ +-------------+ | CustNo | <<---------> | CustNo | | ShipToAddr1 | | Addr1 | | ShipToAddr2 | | Addr2 | +-------------+ +-------------+

Assuming that we wanted to update the fields ShipToAddr1 and ShipToAddr2 of the Orders.db table with the values of the fields Addr1 and Addr2 respectively from the table Customer.db, for those records of Orders that have both fields blank, and joining the tables by the field CustNo present in both tables, perhaps we would be temped to write:

Embedding files as resources in a Delphi executable

Sun, 19 Aug 2001 23:00:00 -0500

How to embed icons, cursors, animated cursors, bitmaps, jpeg images, wave files, text files and any other file inside a Delphi executable.

Embedding files as resources in a Delphi executable

It is possible to embed any kind of file in an executable using resource files (*.RES). Certain kinds of resources are recognized by the API and can be used directly. Others are simply taken as binary data and its up to you to use them. In this article we will see examples of both kinds.

To create the resource file we start with the source file (*.RC), for example named RESOURCES.RC, which is a simple text file that contains the resource entries (name, class and file):

sample_bmp BITMAP sample.bmp sample_ico ICON sample.ico sample_cur CURSOR sample.cur sample_ani ANICURSOR sample.ani sample_jpg JPEG sample.jpg


read more



A String class for delphi
Thu, 18 Apr 2002 23:00:00 -0500
A string class wich incapsulates several string functions

I have done this small string class basing myself on QStrings and FastStrings, thus this class is fast and handles several string functions. BTW in order to compile and use this class you will need FastStrings (you can get a copy at Peter Morris Homepage).





Why make a string class? well although this class lacks operator overloading I need it, and thought someone migth benefit of it.





UPDATE: Added case sensitive StartsWith and EndsWith


FIXED : Bugs in Left, Right, Faster WordCount (copied from QStrings)








unit IMLCommon;





interface





uses


  SysUtils, Classes;





type


  TCharSet = Set of Char;





  TString = class


  private

read more