Post StringList To StringGrid

Ahbap

Harbi Üye
Forum Üyesi
Katılım
29 Mayıs 2019
Mesajlar
8,562
Tepkime puanı
2
Kod:
function KurlariCek(XMLDosyasi: TXML********;Kayitlar: TStringList):Boolean;
var
  iNode: IXMLNode;
  c, r: integer;
begin
  XMLDosyasi.FileName := 'http://www.tcmb.gov.tr/kurlar/today.xml';
  XMLDosyasi.Active := True;
  r := 1;
  iNode := XMLDosyasi.********Element.ChildNodes.First;
 
 
 
 
  while iNode <> nil do
  begin
      c := 0;
      Kayitlar.Add(inttostr(r));
      inc(c);
      Kayitlar.Add(iNode.Attributes['Kod']);
      inc(c);
      Kayitlar.Add(iNode.ChildNodes.Nodes['Isim'].Text);
      inc(c);
      Kayitlar.Add(iNode.ChildNodes.Nodes['ForexBuying'].Text);
      inc(c);
      Kayitlar.Add( iNode.ChildNodes.Nodes['ForexSelling'].Text);
      inc(c);
      Kayitlar.Add(iNode.ChildNodes.Nodes['BanknoteBuying'].Text);
      inc(c);
      Kayitlar.Add(iNode.ChildNodes.Nodes['BanknoteSelling'].Text);
      inc(c);
      inc(r);
    iNode := iNode.NextSibling;
  end;
 
 
  XMLDosyasi.Active := False;
Result := True;
end;
 
 
procedure TForm1.btnKurlarClick(Sender: TObject);
var
  strListe: TStringList;
  Filtre, ListCount, Satir, i, j, k: Integer;
begin
  strListe := TStringList.Create;
  KurlariCek(XML********1, strListe);
 
 
  Filtre := 7; // Girdde listelemek üzere Column sayısını belirlemek
  ListCount := strListe.Count; // StringListimizin Toplam Satır Sayısı
  Satir := Trunc(ListCount / Filtre); // Toplam kaç satır olacağını hesapliyoruz
  StringGrid1.RowCount := Satir + 1; // String Gridimizin Kaç satır listeleyeceğini belirliyoruz
 
 
  j := 0;
  for k := 1 to Satir do // Satır Satıra ilerlemesi için for döngüyü kullaniyoruz
  begin
    for i := 1 to Filtre do // Column sırası için kullandığımız döngü buna göre  column column (-> | ->) ilerliyoruz
    begin
      StringGrid1.Cells[i, k] := strListe.Strings[j]; // StringGirilimiz sırasıyla dolduruyoruz (Column No > Satır No > [StirngListedeki Satır - sıfırdan başliyoruz])
      j := j + 1; // Bir sonraki Satıra geçmek için (j)yi bir arttırıyoruz
    end;
  end;
end;
 

HarbiMekân

Kurucu Admin
Harbi Üye
Katılım
13 Mart 2019
Mesajlar
8,163
Tepkime puanı
228
Paylaşım için teşekkürler hocam.
 

Nutella

Harbi Üye
Bayan Üye
Özel Üye
Katılım
2 Ocak 2021
Mesajlar
9,432
Tepkime puanı
8
Cinsiyet
  1. Bayan
Takım
Galatasaray
Paylaşım için teşekkürler.
 

SiyahLi

Harbi Üye
Forum Üyesi
Katılım
2 Mayıs 2020
Mesajlar
3,477
Tepkime puanı
8
Takım
Beşiktaş
Teşekkürler
 
İçerik sağlayıcı "paylaşım" sitelerinden biri olan Harbimekan.Com Forum, Eğlence ve Güncel Paylaşım Platformu Adresimizde 5651 Sayılı Kanun’un 8. Maddesine ve T.C.K’nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. Harbimekan.Com sitesindeki konular yada mesajlar hakkında yapılacak tüm hukuksal Şikayetler için info@harbimekan.com yada iletişim sayfası üzerinden iletişime geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 3 Gün (72 Saat) içerisinde Forum yönetimi olarak tarafımızdan gereken işlemler yapılacaktır.

Bu Site, Bilim ve Sağlık Haber Ajansı Üyesidir.

Yığıntı - 8kez - kaynak mağazam - Uğur Ağdaş - genel forum - webp converter