Exporting ListView to Excel

[fic]

Hi all,

I'm trying to export a Listview to an Excel2010-sheet.

Excel opens well, but then when I try to create the columnheaders, I got into problems

Look at the code below :
   {create the columns}
    for x := 0 to (lvGPMI.Columns.Count -1) do begin
      //ShowMessage(lvGPMI.Columns.Items

• .Caption);

      tmp := lvGPMI.Columns.Items

• .Caption;

      Sheet.Cells[1, (x + 1)] := tmp; //'haha';
      //Sheet.Cells[1, (x + 1)] := lvGPMI.Columns.Items

• .Caption;

    end;

When I put the caption of the ListView in Excel, it appears as some Chinese characters.
When I replace the tmp with 'haha', all works just fine.
How come the ListView-caption is not accepted as normal text, and the 'haha' is?

I really would like to know an answer to that.

TIA,

fic.

[Blaazen]

Please, edit your post and close the code to tags

Code: [Select]

[code]because forum changes [indexes] to whatever.

[fic]

Apparently :-(

Got any workaround suggestion? Or just an answer?

Thanx

[taazz]

most likely the lcl utf8 support is getting in the way try to convert it to using utfdecode if memory serves me right.

[fic]

Unfortunately, I tried that allready...
I'ts not happening.
Going berzerk....

[wp]

Got any workaround suggestion?

What Blaazen is trying to say is:
Write [ code] in front of "{create the columns]", and [ /code] after "end;" - then the forum software will leave the expressions in square brackets untouched. Please don't type the empty space after "[" - I have to insert it here otherwise the software will do it's own thing... Or select the code and click at the "#" button in the toolbar above the memo, this will add the [...] expression automatically.

[fic]

Thx, I will try this tomorrow morning.

Thank you guys!

Much appreciated :-)

fic.

[engkin]

Quoted fic's post and:

Code: [Select]

   {create the columns}
    for x := 0 to (lvGPMI.Columns.Count -1) do begin
      //ShowMessage(lvGPMI.Columns.Items[x].Caption);
      tmp := lvGPMI.Columns.Items[x].Caption;
      Sheet.Cells[1, (x + 1)] := tmp; //'haha';
      //Sheet.Cells[1, (x + 1)] := lvGPMI.Columns.Items[x].Caption;
    end;


[fic]

Stupid me

I declared tmp as a string.
It should've been a Variant.
Everything works real fine now.
Thanks.