listview elemanlarını nasıl kaydettirebilirim

[gencalnet]

arkadaşlar delphide çok yeni biriyim.üzerinde çalıştığım bir projem var bu projede kullandığım birde listview var ben bu listview in içindeki elemanları nasıl kaydettirebilirim.Örneğin listbox ta kaydettirmek için şöyle bir kod yeterli listview1.Items.savetofile('aa.dat') işte böyle listview deki elemanları nasıl kaydedebilirim???

[metinkorkmaz]

Kod: Tümünü seç

procedure listekaydet;
var
  slist : TStringlist;
  i, z: integer
begin
  slist:=TStringlist.Create;
  try
    for i:=0 to listview1.items-1 do
    begin
       slist.add(listview1.items[i].Caption);
       for z:=0 to listview1.items[i].Subitems.Count -1 do
          slist.add(listview1.items[i].Subitems[z]);    
    end;
    slist.Savetofile('dosya1.txt);
  finally
    slist.Free;
  end;
end;

procedure listeload;
var
  slist : TStringlist;
  i, z, k: integer
begin
  slist:=TStringlist.Create;
  try
    listview1.items.clear;
    slist.Loadfromfile('dosya1.txt');
    k:=0;
    for i:=0 to listview1.items-1 do
    begin
       listview1.items[i].Caption:=slist[k];
       inc(k);
       for z:=0 to listview1.items[i].Subitems.Count -1 do
       begin
          listview1.items[i].Subitems[z]:=slist[k];    
          inc(k);
       end; 
    end;
  finally
    slist.Free;
  end;
end;

Bu kod işini görür. Kod u denemedim, şimdi sen sorunca yazdım. O yüzden ufak tefek hatalar olablir

Ayrıca yeni başladıgını düşünerek, daha iyi anlaman için with ile bazı kısaltmalar yapmadım. Listview1.columns bilgilerini kaydettirmedim, columns bilgilerinin her seferinde formla geldigini düşündüm. Bu kod çok genel degildir, ama işini görür. Hata kontrollerini de koymak gerekebilir, gerçi try ... finally oldugu için program sorunları belli etmeyecektir

[gencalnet]

ben galia soruyu yanlış sordum listviewde ki elemanları veritabanina nasıl kaydettirebilirim?

[fduman]

Yukarıdaki kodu VT'ye göre birazcık değiştirerek.

[aslangeri]

Yukarıdaki kodu VT'ye göre birazcık değiştirerek.

[fduman]

Veritabanına nasıl kayıt yazılacağını biliyor musun? Eğer bilmiyorsan sitede arama yaparak ulaşabilirsin. post firebird query kelimelerini kullanarak arama yaparsan çözüme ulaşacağına eminim. Takıldığın yerde yardımcı olmaya çalışalım.