Dataset ten XML e aktarım

Yazan:
5 Ekim 2010
Reklam Alanı

procedure TForm1.xmlyap(xds:toraquery);
var
i,fc:integer;
begin
xds.First;
fc:=xds.FieldCount-1;
Memo1.Lines.Clear;
Memo1.Lines.Add(‘<?xml version=”1.0″ encoding=”ISO-8859-9″ ?>’);
Memo1.Lines.Add(‘<’+xds.Name+’XML>’);
for i:=0 to xds.RecordCount-1 do
begin
Memo1.Lines.Add(‘<’+xds.Name+’>’);
if  0<=fc then
Memo1.Lines.Add(‘<’+xds.FieldDefs.Items[0].DisplayName+’>’+xds.Fields[0].AsString+’</’+xds.FieldDefs.Items[0].DisplayName+’>’);
if  1<=fc then
Memo1.Lines.Add(‘<’+xds.FieldDefs.Items[1].DisplayName+’>’+xds.Fields[1].AsString+’</’+xds.FieldDefs.Items[1].DisplayName+’>’);
Memo1.Lines.Add(‘</’+xds.Name+’>’);
xds.Next;
end;
Memo1.Lines.Add(‘</’+xds.Name+’XML>’);
Memo1.Lines.SaveToFile(‘deneme.xml’);

end;

Benzer Yazılar:

  1. Bilgisayardaki Sürücü Listesini Almak
  2. Tüm Dosya ve Klasörlerin Listesini Almak
  3. ASCII Kodlarını Bulmak
  4. Metin İçerisinden Bir Karakter Silmek
  5. Merkez Bankasindan Gunluk Doviz Kurlarini Alma Kodu
  6. Ekran Klavyesi
  7. Dosya Uzantısından Programın Tespiti
  8. Delphi ile Mp3 dosya çalmak çaldırmak
 Etiketler:
Borland Delphi

Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.

Yorum yapın

Güvenlik Kodunun Resmi
*

Gizlilik Politikası