inifiles ile ilgili (Forumda arama yaptım)

[barutali]

Konuyu okuyan herkese öncelikle Merhaba;

Forumda ini dosyaları ile ilgili bir çok kaynak var ama yapmak istediğimle ilgili tam olarak bi bilgi yok..

aşağıdaki gibi verileri kayıt ettiriyorum fakat

örneğin : bitane kayıt yapıyor.

Kod: Tümünü seç

[vidad]
ad=ad_değeri
[vidlink]
link=link_değeri

şeklinde oluşuyor...

programı yeniden çalıştırdığımda bu verileri okurkende sorun yok
2. kayıtı girdiğimde 1. nin üstüne yazıyor...

Kod: Tümünü seç

[0]ad=ad_değeri
[1]ad=ad_değeri
....

Kod: Tümünü seç

[0]link=link_değeri
[1]link=link_değeri 
....

gibi yaptırmam için nasıl bi değişiklik yapmam gerekiyor acaba
yardımcı olabilcek arkadaşlara şimdiden teşekkürler...

Kod: Tümünü seç

var
  ini1 : TINIFile;
  ad, link : string;
begin
  ad  :=Ladi.Caption;
  link:=edLink.Text;
  ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'SETTINGS.INI');
  ini1.WriteString('VidAd','Ad', ad);
  ini1.WriteString('VidLink','Link', link);
  ini1.Free;

[khanco]

linkle birlikte vidad değeri her kayıtta değiştir.

[aslangeri]

s.a.
arkadaşım ini file ları tablo gibi düşünme.
değişken ve o değişkenin değeri gibi düşün.
böyle olunca bir değişkende bir değer saklayabilirsin.
kolay gelsin.

[ikutluay]

kardeş ini yerine tstringlist kullansan ? hatta bir tlistview tadından yenmez olur. istediğin kadar satır arama ve sıralama. istersen saveto file ile tek seferde kayıt.

[sabanakman]

Bence

Kod: Tümünü seç

[0]
ad=ad_değeri
link=link_değeri
[1]
ad=ad_değeri
link=link_değeri

şeklinde yapmalısın ve

Kod: Tümünü seç

var
  ini1 : TINIFile;
  ad, link : string;
begin
  ad  :=Ladi.Caption;
  link:=edLink.Text;
  ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'SETTINGS.INI');
  ini1.WriteString('0','Ad', ad);
  ini1.WriteString('0','Link', link);
  ad  :=Ladi2.Caption;
  link:=edLink2.Text;
  ini1.WriteString('1','Ad', ad);
  ini1.WriteString('1','Link', link);
  ini1.Free; 

şeklinde de kod yazarak işlemi tatlıya bağlayabilirsin.

[barutali]

Kod: Tümünü seç

var
  ini1 : TINIFile;
  ad, link : string;
begin
  ad  :=Ladi.Caption;
  link:=edLink.Text;
  ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'SETTINGS.INI');
  ini1.WriteString('0','Ad', ad);
  ini1.WriteString('0','Link', link);
  ad  :=Ladi2.Caption;
  link:=edLink2.Text;
  ini1.WriteString('1','Ad', ad);
  ini1.WriteString('1','Link', link);
  ini1.Free;

Peki burdaki 0 sayısını otomatik olarak arttıramazmıyız acaba

buttona her click te otomait olarak

ini1.WriteString('0','Ad', ad);
ini1.WriteString('0','Link', link);

0 değeri bir artsa öyle bir şey mümkün mü demicem eminim mümkündür

Benim bunu kullanma amacm bir favori menusu yapıyorum..
İki listbox ım var birinde vidad diğerinde vidlink değerleri bulunuyor..
Bu yüzden aklıma ilk gelen yol bu..


ilginiz için yeniden teşekkür ederim.. Biraz daha uğrasayım
Herkese iyi Çalışmalar.

[sabanakman]

Kod: Tümünü seç

ini1.WriteString('0','Ad', ad);
  ini1.WriteString('0','Link', link); 

kodu ile

Kod: Tümünü seç

var i:Integer; sb:String;
begin
...
  i:=0;
  sb:=IntToStr(i);
  ini1.WriteString(sb,'Ad', ad);
  ini1.WriteString(sb,'Link', link); 

kodları aynı kapıya çıkar ve artmayı da i:=i+1 koduyla sağlayabilirsin. Neyse bundan sonrasını artık sana bırakıyorum yoksa pırasalı böreğin tarifini kaçıracağım

[ikutluay]

buttona her click te otomait olarak

ini1.WriteString('0','Ad', ad);
ini1.WriteString('0','Link', link);

0 değeri bir artsa öyle bir şey mümkün mü demicem eminim mümkündür Smile

döngüleri kullanabilrsiniz.

Ancak sorularda biraz anahtar teslim gibi:)

[barutali]

ini dosyasıyla beceremedim okurken sorun yasıyor bu seferde ilginiz için yeni yine yeniden teşekkür ederim. Başka yollar denicem artık.

[sabanakman]

Bence isminden. O isimle hiç bir işin rast gitmez

[barutali]

işlerimin sürekli (2 ay kadar) ters gittiği bi sıra üye olmutum. O sıraki moral bozukluğunun getirdiği birşey oldu.