Search results for query: *

Thanks for your suggestion. But I had a better idea. In one of the worksheet of the Excel template, I preset a cell to be General in Number format. During the creation of worksheet at runtime, I assign the numberformatlocal of that cell to the new worksheet. This will ensure it caters for all...

Attached please find the code written in Delphi 7.0: WorkSheet.XLSheet.Columns[4].NumberFormat := 'General';

This is what I did. But the Japanese Excel replies "Cannot setup Range Class Number Format Property". Any clue?

Thanks for your reply. How could I create a macro to format a cell as "General" in a single Excel file that works for different office, like English, Japanese, Korean, etc? Fam

Hi, I set NumberFormat for a cell to be "General". But it falls when using Excel 2002 Japan version where it uses NumberFormatLocal =?{some japanese word}. How to tackle the General format in different Office? Regards,

I have tried, but it doesn't work. Only when I open another file in another folder, then the lock to the folder is released. Just wonder what is being locked and how to release it. Anyone has any idea? Thanks in advance.

Thanks for your input, But even I do not do anything after the execute command, i.e. I purposely remark all the codes after the execute command, the folder is still locked until the application is terminated. if opendialog.execute then begin { : : } end;

Hi, I am using Delphi v7.0 to create an Open dialog box to open a file. After calling .Execute, the folder that is being accessed in Opendialog box will be locked until the whole application is terminated. Is there any way that I can release the lock of the folder without terminating the...

1. Register your VB DLL, type RegSvr32 <dll> 2. In Delphi, go to Project | Type import Library, select the vb dll and create unit. 3. Define the classes in delphi and you can start calling the method. Cheers!

Sorry, the code is a bit long. The error occurs at DisplayChart: : ActiveSheet.Paste Sub AllTempChartDisplay() Dim l_i As Integer Dim l_j As Integer Dim l_ischar As Boolean Dim l_vactiveworkbookname As String Dim l_vactrow As Long Dim l_vscount As Integer Dim l_ffound As Boolean Dim...

Thanks for your clue, I have tried moving chart 4 to chart 1, copy and paste has no problem. When I try to copy chart 3 which is now chart 4, GPF error occurs. Regards, Fam

Hi, I created 21 chart sheets using MS Excel XP and a macro to copy one of the chart to a new worksheet. It works perfectly fine under Excel 2K and XP. But in Excel 97, when I copy the chart, say 5th chart to a new worksheet, it gives me GPF error at the Paste command. I suspect it is a...

The problem may caused by the Delphi components that you use does not support unicode texts. You can either change to the component that support unicode or use ANSI text. If your text is ANSI, try switch your WinXP PC to Chinese language mode in Regional Settings. Hope it helps!

There is a sample in Delphi 5 to retrieve the icon list from the system and get the imageindex for each file. Please refer to ..\Delphi5\Demos\Virtual Listview.

I recently upgraded my PC from W2K to Win XP. After upgraded, I cannot trace through the program anymore in Delphi5. It used to be no problem in W2K PC. Is anyone encounter this problem before? Any help is appreciated. Regards, Fam

I found the following example to retrieve the contact list. But when execute the code, it give me GPF. An idea what is going wrong here? Regards, Fam const olFolderContacts = $0000000A; var outlook, NameSpace, Contacts, Contact: Variant; i: Integer; begin outlook :=...

One way is read the file, search for the keyword and write the text to another file. If you need to maintain the same file name, what you can do is at the end of the process, delete the original file and rename back the new file to the original filename.

Hi, I would like to know how to access Outlook address list through Delphi. An example will be appreciated! Regards, Fam

I have written a recursive procedure to delete the whole directory inclding the sub folder. Hope it helps. procedure DeleteOneDirectory; var l_attr : word; l_SearchRec : TSearchRec; begin if FindFirst(path+'\*.*',faAnyFile,l_SearchRec) = 0 then begin Repeat if...

I have tried to set breakpoint at the first line, but it doesn't stop there.