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!

Register Log in
  • Congratulations derfloh 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: Sisto
  • Order by date
  1. Sisto

    Help With ActiveX Component

    I have an ActiveX component (DSIClientX) in my application. A call to ServerIPConfig is supposed to return an XML result of type BSTR (WIDESTRING). I am not getting my result string. XMLResult : WideString; XMLResult := DSIClientX.ServerIPConfig('b2.backuppay.com;X1.mercurypay.com',0) Does...
  2. Sisto

    Compile a delphi 3 proj using Delphi 6

    I recently installed Delphi 6 and I need to convert some projects from Delphi 3 to 6. Whenever I try to build my project using Delphi 6 I get the message: [Fatal Error] SQLEditor.dpr(17): Unit Forms was compiled with a different version of Math.Max SQLEditor is the name of my project. Any...
  3. Sisto

    Computer freezes during startup: Cleaning: /tmp /var/lock /var/run

    Thankyou ifincham. FYI: I have Debian and I found the error in /etc/init.d/bootmisc.sh Something I added a long time ago, just forgot about it.
  4. Sisto

    finding duplicates in a CSV file

    If the unique records in your daily CSV file is going to be appended to another file, a database file, then I would consider using some database components. Otherwise the first method you described is fine for the sakes of simplicity. In my opinion. Some methods and declarations which might be...
  5. Sisto

    Computer freezes during startup: Cleaning: /tmp /var/lock /var/run

    The last sceen message is: Cleaning: /tmp /var/lock /var/run <then the computer locks up> Most start-ups the computer freezes at this point. Sometimes it gets past this point and the server is up and running normally. Does anyone know why this is happening or how to debug the problem. Sisto
  6. Sisto

    can somebody tell me how to get a list of all files in a dir??

    ...making this call: Var MyDocuments : TStrings; MyDocuments := TStringList.create; GetFileList(MyDocuments,'c:\my documents\*.doc',faAnyFile); FYI: Constant Value Description faReadOnly $00000001 Read-only files faHidden $00000002 Hidden files faSysFile $00000004...
  7. Sisto

    Reloading the Registry

    Some changes to the Registry do not take effect until the system is restarted. I want to know if there is a command to have the system reload the registry after changes are made to it. Thanxs, Sisto
  8. Sisto

    Reloading the Registry

    What is the command to reload the registry? Thanxs a million. :)
  9. Sisto

    Units to DLLs

    -------------------------------------------- Here is how I convert my units to DLL’s -------------------------------------------- Unit RsrFMgmt; Interface uses ShareMem, SysUtils; function Func1(Var p1,p2,p3 : String) : Boolean; function Func2(a,b : Integer; Var c,d : Integer) : boolean...
  10. Sisto

    Memo lines

    ...1 of memo: aLine := aDBMemo.lines[0]; Length of line 1 (use index 0); Line 2 use index 1 and so on. LineLength := Length(aDBMemo.lines[0]); 3rd Character of line 2 (Same rule, 1st char use index 0) aChar := aDBMemo.lines[1][2] * aDBMemo.lines[index of line][index of character] * Good...
  11. Sisto

    TRegistry.ReadString

    Thankyou TealWren. I figured it out. The second parameter was left out due to a typo. The parameter that seems to work is as follows: RegistryDB.OpenKey('.lay/',false); aStringValue := RegistryDB.ReadString(''); Thanks again.
  12. Sisto

    Convert a TColor variable to a string and vice versa

    If the tests are that simple why not just use: var clr, newClr : TColor; begin if Clr = $00FFFFFF then newClr := $00000000 Hint: Put your cursor on the TColor text in your IDE and press Ctrl-F1 $00FFFFFF can also be represented as clWhite $00000000 = clWhite end;
  13. Sisto

    How to convert Float to Integer?!

    I normally use Trunc myself: Var aReal : Real; aInt : Integer; aInt := Trunc(aReal); If aReal is within the integer range!
  14. Sisto

    open a text file

    Oops, Don't know how that happened. Ignore my reply.
  15. Sisto

    TRegistry.ReadString

    I am trying to read the (Default) value of the key .lay and the following does not work. Any suggestions? I am trying the following: Var RegistryDB : TRegistry; aStringValue : String; ... RegistryDB.RootKey := HKEY_CLASSES_ROOT; {working} RegistryDB.OpenKey('.lay\'); {working} aStringValue...
  16. Sisto

    open a text file

    TRegistry.ReadString I am trying to read the (Default) value of the key .lay and the following does not work. Any suggestions? I am trying the following: Var RegistryDB : TRegistry; aStringValue : String; ... RegistryDB.RootKey := HKEY_CLASSES_ROOT; {working} RegistryDB.OpenKey('.lay\')...
  17. Sisto

    DLL vs Units

    I personally keep my units until i am very sure the functions in them are running perfectly. This is very helpful for debugging. When my program appears complete, I convert my units to DLL's. When many users are using your software, it is much easier to send them an updated DLL than to recompile...
  18. Sisto

    Read/write color of specific pixel on image

    The TCanvas property is included in the TImage property. Review the following TCanvas property for more info. property Pixels[X, Y: Integer]: TColor; Var anImage : TImage; OriginalColor : TColor; To get pixel color, OriginalColor := anImage.Canvas.Pixels[x,y]; To set pixel color...
  19. Sisto

    Select Problem

    Thank you MalcolmW, I am using a strange Database-engine (BDE). The column number method did not work for me, although I did find out what does work. It is as follows: SELECT aTable.&quot;Date&quot; from aTable Thanks a million for your input.
  20. Sisto

    Select Problem

    Hello again &quot;wushutwist&quot;, I'm using the Borland Database Engine (BDE v.5). Thanks for the input. MS SQL isn't so bad. Sisto

Part and Inventory Search

Back
Top