Recent content by gforrest

Yes. In fact the code uses MSSQL. Is it possible to install a copy of the appropriate driver and get the code to run? Thanks. Glenn.

Hi, I'm attempting to run some code in Delphi Professional Editon (ver 5.0). I believe the code was written in Delphi Enterprise Edition. I receive the following error message: Project LARS.exe raised exception class EDBEngineError with message 'Your application is not enabled for use...

Is there a simple way to print a text file from Delphi? I have a file in the same directory as my code and I simply want to send it to print. Thanks

Hi Gang, Anyone know how I change this code to allow the use of the backspace key? Thanks. if not (Key in [Ɔ'..' 9']) then //Allow numeric characters only Key := #0;

Hi, I have a form with several edit boxes on it. The first box will always appear with text in it. The rest will be used for input. Is there a simple way to detect whether or not someone has entered text into an edit box and moreover, which edit box? Thanks. Glenn

Hi, I have an array in a file c_table: packed Array[0..7] of TCASHIER_TABLE; Does anyone know how I can initialize this to zeros or nulls? Thanks. Glenn.

Hi, I have a form with multiple edit boxes. The boxes are set to TabStop is False. For some reason when I run the program, my cursor still stops at these edit boxes. I configured an other form in the same manner and my cursor doesn't stop at the edit boxes. Anyone know how I can stop tab stops...

Hi, I have 28 edit boxes on a form. I want to clear the Text property of all of them (eg. EditBox1.Text :=''). Is there a way to do this globally without having to reference each individual box? Thanks.

Here's how I fixed it: procedure TTaxOptFrm.FormActivate(Sender: TObject); var RecINFO : INFO; begin read_options(@RecINFO); CurGstRegEdt.Text := RecINFO.gst_reg_number; CurPstEdt.Text := FloatToStr(RecInfo.taxpcr[0,1]); CurGstEdt.Text...

Hi, I'm using this bit of code to read some information stored in a two dimensional array of Single at the line indicated. No luck so far. The information is at 0,1 in the array but I'm not sure how to get it. Any thoughts would be apprecicated. Thanks. procedure...

Hi, I want to have the ENTER key act as a RETURN key inside a Memo box so that users may enter multiple lines of text. Currently, if the user presses the ENTER key the form closes which I don't want to have happen. I have set the default property on the OK button on the form to FALSE. Thanks

Hi Guys, I'm using the following code to read some info from a file, which I access via a structure, into a Memo Box and then write new info from the Memo Box back to the file. The read portion under Form Activate works OK but when I attempt to write using the 'EdtLgOkBtnClick' procedure I get...

Hi, I want to restrict the input of an Edit Box to numeric values only. No alpha characters. Anyone know how I do this? Thanks.

You make a good point. The reason I can't do this is because I access the file via a Delphi record (structure) that talks to a DLL written in 'C'. The information that I want is stored as an Array of Char.

Hi, I have two forms using this code: begin if NewTermIdEdt.Text = '' then begin ShowMessage('Please Enter Information'); Exit; end However, the two recact differently when the user clicks on the 'OK' button after the ShowMessage procedure. On one the form remains visible. On the other...