Delphi VCL Component >> Delphi 7, Excel - have problem - looking for sample code

by Rol » Fri, 12 Nov 2004 01:15:51 GMT

Hi all,

I had an app that worked just fine in D5; no longer under D7 (as I've read
from others as well).

Have heard of sample code floating around but cannot find it. Can anyone
point me in the right direction please.

I need to

- create workbook with shhets
- insert data into cells
- set come cell properties (bold fint etc.)

TIA !!!!

Similar Threads

1. Delphi 7 and Excel - Sample Code Pls

2. Delphi 7 and Excel: need sample code please

Hi all, 

I had an app that worked just fine in D5; no longer under D7 (as I've read 
from others as well). 

Have heard of sample code floating around but cannot find it. Can anyone 
point me in the right direction please.

I need to 

    	- create workbook with shhets
    	- insert data into cells
    	- set come cell properties (bold fint etc.)
    
TIA !!!!

3. Having C code looking like C++ code

4. [OT] Using Outlook Express (was: Having C code looking like C++ code)

"Fronsac" < XXXX@XXXXX.COM > wrote in message
news:bUjib.17268$ XXXX@XXXXX.COM ...
> > Cross-posting is the posting of one article to more than one
newsgroup
> > (rather than posting two identical articles to one newsgroup
each).
> Typical
> > newsreaders allow you to do this by typing more than one group
name into
> > the "Groups" header when you are creating your article.
>
> Thanks a lot. I'm not sure Outlook Express does this, but Outlook is
only a
> temporary solution anyway. Thanks for the info.

Outlook Express does support cross-posting.  If you click "Newsgroups"
(the icon and label, not the text-box to it's right) a dialog will
appear.  Here you can select one or more destination groups.
Alternatively, you can type them in the text-box separated by commas,
if you really want.  If you do cross-post, you might also want to set
up where follow-ups to your post are sent, rather than have them
bounce around all of the groups (why have a potentially huge
conversation appear in multiple groups?).  To do this, select "All
Headers" from the "View" menu then use the "Followup-To" section like
the "Newgroups" section, but only add one newgroup (the most
appropriate for your question is probably best).  You can ignore the
other sections it adds (except "Subject", of course).

Mike

-- 
Michael Winter
M.Winter@[no-spam]blueyonder.co.uk (remove [no-spam] to reply)


5. Looking for sample code that would allow me to kill any modal dialog present in Excel - Excel

6. Error in code look here Sampling data every 15 seconds with macros

Sub AUTO()
'This routine is for auto operation of data collection. It will
'run the data collection routine MANUAL, the choosen number of
'times

'Gets the number of data points to be collected
data_points = Worksheets("ALCOHOL").Range("L7").Value

'Setup FOR - NEXT loop to cycle through number of data points
For cycles = 1 To data_points

'Gets time from SLC 500 in hours,minute,seconds
slc_time = Worksheets("ALCOHOL").Range("L6").Value

'Delays data collection by one minute from current slc_time
Application.OnTime slc_time + TimeValue("00:00:15"), "MANUAL"

Next cycles
End Sub


TIA
Regards
Blank

7. looking for sample code

8. looking for coding samples

I have the following in VBA and need it in Delphi... the DMO import is not 
happy under D7

Sub enumerate_databases(srvname As String, login As String, password As 
String)
Dim srv1 As SQLDMO.SQLServer
Dim dbs As SQLDMO.Database

'Connect to a SQL Server
Set srv1 = New SQLDMO.SQLServer
srv1.Connect srvname, login, password

'Enumerate the databases on connected server
For Each dbs In SQLDMO.SQLServers(srvname).Databases
    Debug.Print dbs.Name
Next

'Cleanup routine
srv1.Disconnect
Set srv1 = Nothing

End Sub

I have the following sample but having a mental block with OLE

procedure TForm1.Button3Click(Sender: TObject);
var
  oDmo,oApp,oServers: OleVariant;
  bResult : boolean;
  i ,x : integer;
  AStrings: TStringlist;
begin
  try
    oDMO := CreateOleObject('SQLDMO.SQLServer');
    oApp := oDMO.Application;
   oServers := oApp.ListAvailableSQLServers;

   try
      AStrings.BeginUpdate;
      for i := 1 to oServers.Count do
      AStrings.Add(oServers.Item(i));
    finally
      AStrings.EndUpdate;
    end;

    bResult := true;
  except
    bResult := false;
  end;

  oServers := Unassigned;
  oApp := Unassigned;
  oDMO := Unassigned;
  oDBS := Unassigned;

end;