12 Discussion / Question Topics

Remove Filter
Member Avatar for Morten Brendefu

Dear enlightened ones. First of all. I am using Delphi 9. My code compiles and run with no error at all, still I am confused about the structure window in the Delphi window. It tells me that I have redeclared some identifiers. The thing is that I have a few …

Member Avatar for pritaeas
0
976
Member Avatar for Morten Brendefu

Dear knowledgeable ones. Some time ago I made a few of my routines kind of universal, and I wonder if there is any way in Delphi (My version is Delphi9) that can be used to reuse this code in example below. As you see, the two procedures are almost identical, …

Member Avatar for pritaeas
0
283
Member Avatar for Morten Brendefu

In my Delphi9, I have the ability to "Shrink" complete procedures and functions so that only the first line is visible. There is a small + or - at the beginning of first line of a routine, and when pressed, the code is 'minimized' or 'maximized'. I find this to …

Member Avatar for pritaeas
0
264
Member Avatar for Morten Brendefu

I am trying to write a few very dynamic procedures and functions and wonder about transferring parameters to a procedure as an Array. This is actually easy enough done.... just that I would like to pass something like [CODE] VAR a,b,c : INTEGER; Name, Text1,Text2 : STRING; todaysDate : TDate; …

Member Avatar for Morten Brendefu
0
1K
Member Avatar for Morten Brendefu

Dear enlighted ones. I happen to try to finsh a kind of a function library that my Main program can utilize. As of now, Everything work great... but. I would like to implement some kind of error handling. The way I do this also work, but the error is generated …

Member Avatar for Morten Brendefu
0
584
Member Avatar for Morten Brendefu

I have tried searching internet a little bit and found some useful information about the command [CODE]SetLength[/CODE] I just wonder about a few things as I would like an array to "constantly" be redefined in size. When using it in one part of my program, it will be defined in …

Member Avatar for Morten Brendefu
0
139
Member Avatar for Morten Brendefu

Dear knowledgeable ones A new problem have arisen. I have now an SQL database file with about 100 tables in it. I would like to automatically go through all of these tables and check if the column "Owner" exist. If this field does not exist, then it should be created …

Member Avatar for Morten Brendefu
0
167
Member Avatar for Morten Brendefu

Dear knowledgeable ones. I started on a project to be able to use a smart card and a smart card reader in order to limit access to a program. I had some sample code written in Visual Basic, and wanted to translate this to Delphi instead, something I think I …

Member Avatar for pritaeas
0
821
Member Avatar for Morten Brendefu

I did an experiment regarding sorting of 256.000 random "names" using TListBox component. A friend of mine say that TListBox is faster than my code at sorting, so I wanted to test this out of curiosity. Method of testing. When I have created 256 thousand random textstrings, each 6 characters, …

Member Avatar for TrustyTony
0
2K
Member Avatar for Morten Brendefu

I am trying to draw a few items on a canvas using Canvas.TextOut mainly. My problem is that when I grab the form holding the canvas and then move the form outside of the screen and back again, all text and drawings have vanished, as if they have been erased. …

Member Avatar for Wolfgan
0
138
Member Avatar for Morten Brendefu

I am designing a lot of TCheckBox at runtime, and uses mathematical formulas for placing these in columns and rows afterwards on a form. I assign an on click event that is exactly the same on all of them, and everything work, except... Color. My OnClick event is made like …

Member Avatar for Wolfgan
0
3K
Member Avatar for Morten Brendefu

A "normal" Delphi snippet: [CODE]Procedure help_me1(Sender: TObject); BEGIN {100 lines of code} END; Procedure help_me2(Sender: TObject); BEGIN {100 lines of copy and paste code} END;[/CODE] [COLOR="Green"]How can I make this so that I end up with ONE procedure with 100 lines of code?[/COLOR] [CODE]Procedure much_reuseable_code(choice:BYTE); BEGIN {100 lines of code} …

Member Avatar for Morten Brendefu
0
198