Delphi dicas

Criar xml apartir de stringgrid

//ESTE EXEMPLO,MOSTRA COMO PRODUZIR UM ARQUIVO XML SENDO

//SEUS DADOS APRESENTADO EM FORMA DE ATRIBUTOS APARTIR DE

//UM STRINGGRID.

//ESTE EXEMPLO É EXCLUSIVO DESTE SITE(NO QUAL RESOLVI PUBLICA-

//LO)

//NESTE EXEMPLO,O NUMERO DE COLUNAS DO STRINGGRID É DE 33

//COLUNAS(STRINGGRID1.COLSCOUNT=33)

//O NUMERO DE LINHAS É DE 1001(STRINGGRID1.ROWSCOUNT=1001)

//DEVE TER UMA LINHA FIXA(FIXEDROWS=1)

//FIXEDCOLS=0(SEM COLUNAS FIXAS)

//EM OPTIONS,VOCE PODE OPTAR POR ALWAYS SHOW EDITOR=TRUE

//GOEDITING=TRUE

//COLSSIZING=TRUE

//COLSMOVING=TRUE

//EM ALTERNATE COLO (ESCOLHA SUA PREFERENCIA)







procedure TForm7.BitBtn2Click(Sender: TObject);

var c,P,L,K,cx,lx:integer;

var a,b,xb:string;

var f:textfile;

var temp,x,y:integer;

var tempstr,DD:string;

var arq:tstringlist;//criar um stringlist

//abaixo cada variavel de prefixo b,representa uma coluna do stringgrid(exemplo : b1)

var b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20,b21,b22,b23,b24,b25,b26,b27,b28,b29,b30,b31,b32,b33,data,hora:string;

begin

        arq:=tstringlist.create;

        DD:=' ="';//separador do xml

        ARQ.ADD('');//cabeçalho

        ARQ.ADD('');//nome da tabela

        ARQ.ADD('');//abre a estrutura do xml

        IF B='' THEN

        L:=0;//se acelula estiver vazia ignora-a



        repeat

                //colunas do stringgrid

                b:=string((form1.Stringgrid1.cells[0,L]));//nome

                B2:=string((form1.Stringgrid1.cells[0+2,L]));

                b3:=string((form1.Stringgrid1.cells[0+3,L]));

                B4:=string((form1.Stringgrid1.cells[0+4,L]));

                b1:=string((form1.Stringgrid1.cells[0+1,L]));//X

                b5:=string((form1.Stringgrid1.cells[0+5,L]));

                b6:=string((form1.Stringgrid1.cells[0+6,L]));



                b7:=string((form1.Stringgrid1.cells[0+7,L]));//nome

                B8:=string((form1.Stringgrid1.cells[0+8,L]));

                b9:=string((form1.Stringgrid1.cells[0+9,L]));

                B10:=string((form1.Stringgrid1.cells[0+10,L]));

                b11:=string((form1.Stringgrid1.cells[0+11,L]));

                B12:=string((form1.Stringgrid1.cells[0+12,L]));

                b13:=string((form1.Stringgrid1.cells[0+13,L]));

                b14:=string((form1.Stringgrid1.cells[0+14,L]));



                b15:=string((form1.Stringgrid1.cells[0+15,L]));//nome

                B16:=string((form1.Stringgrid1.cells[0+16,L]));

                b17:=string((form1.Stringgrid1.cells[0+17,L]));

                B18:=string((form1.Stringgrid1.cells[0+18,L]));

                b19:=string((form1.Stringgrid1.cells[0+19,L]));

                B20:=string((form1.Stringgrid1.cells[0+20,L]));

                b21:=string((form1.Stringgrid1.cells[0+21,L]));

                b22:=string((form1.Stringgrid1.cells[0+22,L]));



                b23:=string((form1.Stringgrid1.cells[0+23,L]));//nome

                B24:=string((form1.Stringgrid1.cells[0+24,L]));

                b25:=string((form1.Stringgrid1.cells[0+25,L]));

                B26:=string((form1.Stringgrid1.cells[0+26,L]));

                b27:=string((form1.Stringgrid1.cells[0+27,L]));

                B28:=string((form1.Stringgrid1.cells[0+28,L]));

                b29:=string((form1.Stringgrid1.cells[0+29,L]));

                b30:=string((form1.Stringgrid1.cells[0+30,L]));



                b31:=string((form1.Stringgrid1.cells[0+31,L]));//nome

                B32:=string((form1.Stringgrid1.cells[0+32,L]));







                K:=K+1;

                //COMPARAÇÃO

                IF B<>'' THEN

                ARQ.ADD('');



                //se a celula contiver uma string,então pegue-a,conforme seus respectivos

                //campos

                L:=L+1;

                IF B<>'' THEN

                ARQ.ADD((' DIA')+INTTOSTR(L)+STRING(DD)+(B)+'"');

                IF B<>'' THEN

                ARQ.ADD((' MES')+INTTOSTR(L)+STRING(DD)+(B1)+'"');

                IF B<>'' THEN

                ARQ.ADD((' ANO')+INTTOSTR(L)+STRING(DD)+(B2)+'"');

                IF B<>'' THEN

                ARQ.ADD((' APELIDO')+INTTOSTR(L)+STRING(DD)+(B3)+'"');

                IF B<>'' THEN

                ARQ.ADD((' NOME')+INTTOSTR(L)+STRING(DD)+(B4)+'"');

                IF B<>'' THEN

                ARQ.ADD((' RG')+INTTOSTR(L)+STRING(DD)+(B5)+'"');

                IF B<>'' THEN

                ARQ.ADD((' UF')+INTTOSTR(L)+STRING(DD)+(B6)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CPF')+INTTOSTR(L)+STRING(DD)+(B7)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CTPS')+INTTOSTR(L)+STRING(DD)+(B8)+'"');

                IF B<>'' THEN

                ARQ.ADD((' SERIE')+INTTOSTR(L)+STRING(DD)+(B9)+'"');

                IF B<>'' THEN

                ARQ.ADD(('ORIGEM_UF')+INTTOSTR(L)+STRING(DD)+(B10)+'"');

                IF B<>'' THEN

                ARQ.ADD((' ENDERECO')+INTTOSTR(L)+STRING(DD)+(B11)+'"');

                IF B<>'' THEN

                ARQ.ADD((' BAIRRO')+INTTOSTR(L)+STRING(DD)+(B12)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CEP')+INTTOSTR(L)+STRING(DD)+(B13)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CIDADE')+INTTOSTR(L)+STRING(DD)+(B14)+'"');

                IF B<>'' THEN

                ARQ.ADD(('RESIDENCIA_UF')+INTTOSTR(L)+STRING(DD)+(B15)+'"');

                IF B<>'' THEN

                ARQ.ADD((' ALTURA')+INTTOSTR(L)+STRING(DD)+(B16)+'"');

                IF B<>'' THEN

                ARQ.ADD((' PESO')+INTTOSTR(L)+STRING(DD)+(B17)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CUTIS')+INTTOSTR(L)+STRING(DD)+(B18)+'"');

                IF B<>'' THEN

                ARQ.ADD((' SINAL_PARTICULAR')+INTTOSTR(L)+STRING(DD)+(B19)+'"');

                IF B<>'' THEN

                ARQ.ADD((' SITUACAO_JURIDICA')+INTTOSTR(L)+STRING(DD)+(B20)+'"');

                IF B<>'' THEN

                ARQ.ADD((' ARTIGO')+INTTOSTR(L)+STRING(DD)+(B21)+'"');

                IF B<>'' THEN

                ARQ.ADD((' DATA_DA_OCORRENCIA')+INTTOSTR(L)+STRING(DD)+(B22)+'"');

                IF B<>'' THEN

                ARQ.ADD((' LOCAL_DA_OCORRENCIA')+INTTOSTR(L)+STRING(DD)+(B23)+'"');

                IF B<>'' THEN

                ARQ.ADD((' OCORRENCIA')+INTTOSTR(L)+STRING(DD)+(B24)+'"');

                IF B<>'' THEN

                ARQ.ADD((' APURADOR_DO_CASO')+INTTOSTR(L)+STRING(DD)+(B25)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CADASTRO_DA_IMPRESSAO_A')+INTTOSTR(L)+STRING(DD)+(B26)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CADASTRO_DA_IMPRESSAO_B')+INTTOSTR(L)+STRING(DD)+(B27)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CADASTRO_DA_IMPRESSAO_C')+INTTOSTR(L)+STRING(DD)+(B28)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CADASTRO_DA_IMPRESSAO_D')+INTTOSTR(L)+STRING(DD)+(B29)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CADASTRO_DA_IMPRESSAO_E')+INTTOSTR(L)+STRING(DD)+(B30)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CADASTRO_DA_IMPRESSAO_F')+INTTOSTR(L)+STRING(DD)+(B31)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CADASTRO_DA_IMPRESSAO_G')+INTTOSTR(L)+STRING(DD)+(B32)+'"');

                IF B<>'' THEN

                ARQ.ADD((' CADASTRO_DA_IMPRESSAO_H')+INTTOSTR(L)+STRING(DD)+(B33)+'"/>');





                UNTIL(L=1001);

                ARQ.ADD('');//fecha se a estrutura do xml (de atributos)

                ARQ.ADD('');//tab



                arq.SAVETOFILE('c:
elatorio(atr).XML');//salva para seu endereço

                showmessage('Seu relatório foi criado com sucesso no endereço '+('c:'));





        end;

        //PARA VISUALIZAR O ARQUIVO COMO DESENVOLVIDO,USE UM PARSER

        //DE XML E VOCÊ VERÁ O RESULTADO