Delphi Object PASCAL Topic Most Read Threads

{Too Long!}

i try to save a file on the disk using the following code, please:, , procedure SaveFile;, , begin, AssignFile(PathFilerout, temp '\Path.Ini');, Rewrite(PathFilerout);, Writeln(PathFilerout, TimeForm.OpenDialog1.Filename);, Writeln(PathFilerout,TimeForm.Edit1.Text);, Writeln(PathFilerout,TimeForm.Edit2.Text);, CloseFile(PathFilerout);, end;, , now when the program reaches: , Rewrite(PathFilerout);, , an exception occurs and the 'I/O Error 32', occur., , I have searched ALL help menu and havent found any error w/ a number 32.., , does anyone know whats wrong and how can i gget rid of this problem??

Is there a Delphi component that can read the old Borland Database Toolbox files - it was a superb fast DOS database and I want to develop a reader for some old data going back to 1978!, , Thanks, , Michael Jarmulowicz

I'm looking for a tutorial on how to set-up delphi to access paradox 4.0 tables in a multi-user environment. Using Delphi 6 enterprise on a novel network. I've searched hi and low and can't find any information. Any suggestions would be greatly appreciated! Thanks in advance.

{Too Long!}

Can anyone give me an explanation as to why the following first assert fails? (i use D7), , var dt1, dt2: TDateTime;, begin, dt1 := Now;, dt2 := IncHour(dt1, 1);, Assert(HoursBetween(dt1, dt2) = 1, '1st assert!');, , dt1 := Now;, dt2 := IncHour(dt1, 2);, Assert(HoursBetween(dt1, dt2) = 2, '2nd assert!');

Hi all,, , soz if this is a bit lame. Just converting from c++ to delphi. Can't seem to find a method of returning size of multidimensional array:, , (1D) size := High(arr)-Low(arr);, (2D) size := ????, , Thanks in advance!, , pea

I am developing an application that uses Crystal Reports as the reporting mechanism. But I am having trouble in getting Delphi to pass a parameter to the report. Does nayone have any suggestions? Thanks.

I have a program that does a lot with strings, and is required to work everywhere in the world, so also in Asia for example. What is the way to do this in Delphi? Only use the Ansi... string functions? If i understand correctly the default string type should support this. If i write code like, , var SomeString: string;, SomeChar: char;, begin, if SomeString[1] = SomeChar then blablaDoes this work in other locales? If not how to do this? How do i get the length of a string (in characters)?, , If i understand correctly the only reason Delphi is not 100% unicode is because it would break Win9x compatibility. Please go ahead Borland! I don't want to worry about this crap...

Hi,, , I have a server application along with plugins that uses a socket connection to receive and send information to our unix based system. Mostly it works fine, but I have just added a new plugin to add appointments to OUTLOOK and have encountered the following error 'EOleSysError with message 'CoInitialize has not been called'. I have added the following code attempting to overcome this problem but still it persists. Can anyone help, I would really appreciate it., , Best Regards, , Sean, , , procedure LibExit; , begin , // library exit code , CoUnInitialize;, ExitProc := SaveExit; // restore exit procedure chain, end; , , , exports, RegisterPlugin,, ADDAPP;, , begin, CoInitialize(nil);, SaveExit := ExitProc; // Save exit procedure chain, ExitProc := @LibExit; // Install LibExit exit procedure , end.

Can i terminate a (long) for,while,repeat loop when i'm tired to waiting for the end ,with a click on a button? , , And can i resume it after?, , thank you!!

Is there a free unit, component or tutorial for creating PDF files? I only need very basic features. Just be able to insert some simple text and pictures in a PDF., If somebody has experience with a good commercial PDF product, i also like to hear. But for what i need, i hope there's something free.

I was reading a bit about class contracts in Prism, does Delphi 2009 support class contracts? I've looked everywhere.

Hi, I'm tring to convert some forms from PARADOX to DELPHI., i need to maximize from adn consequently all objects. In paradox i use bestfit instruction., , So can anyone give me a suggestion? I am rookie in Delphi., , Thanks, Fernando

{Too Long!}

I have been searching a lot for a way to get the subdirectories of any directory. I haven't found a way yet so I hope you can help me.

I wish to send a SMTP email from within my console application .., two questions:, , how do i used a VCL component from within a delphi console application.., , or it not possible , a way to connect and send to an SMTP server from within my Console app, , thanks in advance.

{Too Long!}

Hi,, I'm trying to find a form by browsing through Delphi's application components and show the form when the right name has been found. Unfortunately, I hit a compiler error I don't know how to go about it., , var, ShowThisForm: TForm ;, , begin, for i := 0 to ComponentCount - 1 do, begin, if Application.Components[i] is TForm then, begin, if FrmNam = Application.Components[i].Name then, begin, ShowThisForm := Application.Components[i] ;, ShowThisForm.Show ;, exit ;, end ;, end ;, end ;, end ;, , end ;

Hi,, I want to make my app disappear when the user double clicks on the title bar (just like a Linux app) so all that remains is the title bar, and when they double click on the title bar again the window animates back to its former self., Can anybody help me with this?, , Merlin

How to hide an application from the list with the start-menu-button on it (no, im not english)?

Hi,, , I have a thread that needs some components from the Form it was called by. I thought of creating a new method Create that would require in his parameters these components, and then set them so I can use them in my thread (I suspect there is a better way to do it). But, when I change the Create method, the Execute method is never called... any idea why?, , Also, I did some testing, and when I start a thread with a call to the Sleep method, even my main program sleeps... any idea how to fix this?

example: 'ciao', , it is possible?!? : , , array[1]:='c';, array[2]:='i';, array[3]:='a';, array[4]:='o';, , -----------------------------------, , there is a function that get the seconds from the start of pc?, , sorry but i don't know english very well!!!!!, help me!!!

I have a Delphi program that accesses a DLL (written in C++), which requires a CWnd Handle as a parameter. I tried passing the HWnd handle of a panel but it doesn't work. Has someone tried doing this before? It would greatly help. Thanks.

Now I will readily admit that I aren't the brightest candle in the shop window when it comes to SQL, so I need help (Im looking at you Mr Wehrly!)., , My report splits into four groups, each group containing a list of items for that group and their current value. I list my data using QRDBEdits and it works fine. However, I would like to exclude any items where the figure is "0.00". I figure to do this I need a QRExpr instead of the QRDBEdit but I dont know how to make it work properly with the SQL code. In delphi, I would write something like this., , if Currency((Query2.Debit - Query2.Credit)) <> 0 then , , but how to do it in Sql???, , Answer this for me and Ill get around to sending Mike my picture for the avatars. Im growing my beard as we speak!