cao

MemCpy (Destination, Source, Num) destination - Pointer to the destination array where the content is to be copied source - Pointer to the source of data to be copied num - Number of bytes to copy. Delphi procedure Move(const Source; var Dest; Count: Integer); Move(Source, Destination, SizeOf(Destinaton)); { SizeOf = …

[QUOTE=samyot2002;1189390]Hi, I am creating an inventory control database, and my products are using serial numbers, I am stock in desinging the tables needed . Produts in stock 50 I need to store 50 serial numbers for that product. One product number has many serial numbers. Products can be in many …

To Add to what FlamingClaw said Your function needs to be refined still further. Understand the difference between a function and a procedure. You have not used the result of the function in the application but seem to have tried to use the result in the function itself. [CODE=pascal] procedure …

Hi [code] procedure TForm1.Button1Click(Sender: TObject); var astring:string; begin aString:='09-120-123456'; astring[7]:='0'; delete(astring,3,1); Showmessage(astring); end; [/code]

Since you did not state which components you use to connect to Excel I have used ADO [code] procedure TForm1.Button1Click(Sender: TObject); begin {Depending on which components you use to connect to SQL Server the syntax might vary but the underlying concept should be the same This example does not not …

You did not state what type of db table you are using but have a look at the sql command union

Hi Com port communication must be handled as a file input outout. The process in simplified terms is Assign a comport to a file Open the file read the data process the data close the file Factors that must be considered are Speed, parity, stop bits, x on x off …

You are attempting to trap the key stroke on the form instead of a specific component. Set the KeyPreview property to true or in the OnCreate Method as below Add a FormKeyDown Event to process your requirements [code] type TForm1 = class(TForm) GroupBox1: TGroupBox; Edit1: TEdit; procedure FormKeyDown(Sender: TObject; var …

var xx:Integer; begin try xx:=strtoint(something.text); if xx<1 then showmessage('number too small') else if xx>65535 then showmessage('number too big') else Showmessage('number accepted'); except showmessage('Not a valid number'); end; end;

unit IntObject; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) ListView1: TListView; procedure FormCreate(Sender: TObject); procedure ListView1DblClick(Sender: TObject); procedure ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); private { Private declarations } aValue:Integer; public { Public declarations } end; var Form1 : TForm1; implementation {$R …