Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: gforrest
  • Content: Threads
  • Order by date
  1. gforrest

    Delphi Enterprise vs. Professional

    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...
  2. gforrest

    Print a File

    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
  3. gforrest

    Restrict key Input

    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;
  4. gforrest

    Detecting Entry of Text

    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
  5. gforrest

    Initializing an Array

    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.
  6. gforrest

    Tab Stop Question

    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...
  7. gforrest

    Globally Clear Multiple Edit Boxes

    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.
  8. gforrest

    Info from Two Dimensional Array

    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...
  9. gforrest

    ENTER key act as RETURN key

    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
  10. gforrest

    W"rite From Memo Box

    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...
  11. gforrest

    Edit Input to Edit Box

    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.
  12. gforrest

    Form Closing

    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...
  13. gforrest

    Write From Memo Box to File

    Hi Guys, I'm using the following code to read some info from a file 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 an, "Access Violation&quot...
  14. gforrest

    Memo Box equals Null

    Hi, Quick question. I'm want to know if a memo box is empty (i.e. equals a null value) I tried using: if EdtLgMb.Lines = '' then but I get a error telling me that Strings and TStrings are incompatible. How do I get around this? Thanks.
  15. gforrest

    String to Single ??

    Hi, Does anyone know how to convert Singles to Strings and vice versa? I'm looking for something like StrToInt or IntToStr type functions for the following code as I'm getting an error on the last line. Thanks. procedure TUSXchgFrm.FormActivate(Sender: TObject); var RecINFO...
  16. gforrest

    Writing to a File

    Hi, I'm using following code to write items to a file using the write_options function. This function only has one parameter and writes the contains of the entire file. Before calling it I'm changing one value in the file (NewID). NOTE: RecINFO is the name of a record and max_discount is an...
  17. gforrest

    TStrings and Arrays

    Hi, I'm trying to get data from a record (structure) and copy it to a memo box component. I keep getting compatibility errors. Here's the code: procedure TEdtLgFrm.FormActivate(Sender: TObject); var RecINFO : INFO; //INFO is a Record begin read_options(@RecINFO)...
  18. gforrest

    Values from DLL in 'C'

    Hi, I'm using the attached Delphi Record to get data from a DLL written in 'C'. For some reason I get incorrect values returned (eg. I get a value of 49 when I'm expecting a value of 999). Has anyone had any experience with this? Thanks very much. unit optsrecord; interface type ITEM =...
  19. gforrest

    Pragma for Delphi?

    Does anyone know of a Delphi Word Alignment control much like pragma in 'C'? Thanks.
  20. gforrest

    SizeOf Function

    Hi, I'm using the SizeOf Function to obtain the size of a record. I appear to get confusing results. Specifically, when I comment out a 'Char' the value of my Record drops by 4. I thought a 'Char' was only 1(??). If I comment out a 'Word' the value also drops by 4, which I would expect...

Part and Inventory Search

Back
Top