Exportar informações de um StringGrid para .xml
Mais uma vez, preciso da ajuda de vcs....
:!:
Tenho um StringGrid com algumas informações e preciso exporta-las para um arquivo .xml, tem como fazer isso :?:
Desde já agradeço pela atenção de todos.
:!:
Tenho um StringGrid com algumas informações e preciso exporta-las para um arquivo .xml, tem como fazer isso :?:
Desde já agradeço pela atenção de todos.
Semchance
Curtidas 0
Respostas
Semchance
27/07/2005
Ninguém...nenhuma dica ?
sobe
sobe
GOSTEI 0
Keidysakamoto
27/07/2005
se você jogar a informação do grid em um ClientDataset, é só fazer:
ClientDataSet1.SaveToFile(´arquivo.xml´,dfXML);
GOSTEI 0
Semchance
27/07/2005
Ok de um ClientDataset para Xml, tudo bem, mas como vou associar meu StringGrid a um ClientDataset ? Não tenho acesso a nenhuma tabela, as informações estão diretas no StringGrid.
Obs: Uso Delphi 5.
Obs: Uso Delphi 5.
GOSTEI 0
Semchance
27/07/2005
Galera, consegui fazer o que eu queria, mas foi preciso instalar um componente chamado NativeXML, mas ele é pago, alguem conhece um compativel mas Free ?
Obs : Delphi 5.
Obs : Delphi 5.
GOSTEI 0
Semchance
27/07/2005
Galera esquece minhas perguntas.....consegui fazer o ClientDataset, pegar informações de Strings, sem conexão com bancos....e é muito Facil...Segue as rotinas abaixo, caso alguem tb tenha a mesma duvida....
Basta colocar tres botões na tela e o codigo referente a cada botão
procedure TForm1.Button1Click(Sender: TObject);
begin
//Rotina para criar o ClientDataSet
with ClientDataSet1 do
begin
with FieldDefs.AddFieldDef do
begin
DataType := ftInteger;
Name := ´ID´;
end;
with FieldDefs.AddFieldDef do
begin
DataType := ftString;
Size := 20;
Name := ´Nome´;
end;
with IndexDefs.AddIndexDef do
begin
Fields := ´Id´;
Name := ´IntIndex´;
end;
CreateDataSet;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i :integer;
begin
//Rotina para Incluir dados no ClientDataSet
i:= 0;
While i < 3 do
begin
With ClientDataSet1 do
begin
Append;
FieldByName(´id´).AsInteger := i;
FieldByName(´Nome´).AsString := ´Mané da Silva´;
Post;
end;
inc(i);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
//Rotina para Criar o .Xml
ClientDataSet1.SaveToFile(´C:\ClientData.xml´,DfXml);
end;
O ClientDataset, alem de funcionar igual tabela...ele gera o arquivo.xml.
Valeu....
Basta colocar tres botões na tela e o codigo referente a cada botão
procedure TForm1.Button1Click(Sender: TObject);
begin
//Rotina para criar o ClientDataSet
with ClientDataSet1 do
begin
with FieldDefs.AddFieldDef do
begin
DataType := ftInteger;
Name := ´ID´;
end;
with FieldDefs.AddFieldDef do
begin
DataType := ftString;
Size := 20;
Name := ´Nome´;
end;
with IndexDefs.AddIndexDef do
begin
Fields := ´Id´;
Name := ´IntIndex´;
end;
CreateDataSet;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i :integer;
begin
//Rotina para Incluir dados no ClientDataSet
i:= 0;
While i < 3 do
begin
With ClientDataSet1 do
begin
Append;
FieldByName(´id´).AsInteger := i;
FieldByName(´Nome´).AsString := ´Mané da Silva´;
Post;
end;
inc(i);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
//Rotina para Criar o .Xml
ClientDataSet1.SaveToFile(´C:\ClientData.xml´,DfXml);
end;
O ClientDataset, alem de funcionar igual tabela...ele gera o arquivo.xml.
Valeu....
GOSTEI 0