| Kaf_Dağı | 18 Mart 2015 14:35 |
Post StringList To StringGrid
burada anlatmak istediğim StringList'ten StringGrid'e verileri nasıl aktaracağımız.
benim izlediğim yol şu şekilde : Kod:
function KurlariCek(XMLDosyasi: TXML********;Kayitlar: TStringList):Boolean;
var
iNode: IXMLNode;
c, r: integer;
begin
XMLDosyasi.FileName := '
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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;
| 