memo / editi txt dosyasına kaydetme ve geri alama?

[huxobahci]

SA Arkadaşlar foruma yeni üye oldum kusura bakmayın uzun zamandır programlamayla uğraşmıyorum bir çok bilgiyi unutmuşum.
Yapmak istediğim şey birden çok memo yada edit bilgisini txt dosyasına kaydetmek ve istendiğinde her satırı aynı edit yada memoya geri çağırmak. yardımcı olursanız sevinirim.

[Commandx]

Kod: Tümünü seç

//Kaydetmek için
var
ini:tinifile;
begin
ini := TiniFile.Create(GetCurrentDir + '\inidosyam.ini');
ini.WriteString('ayarlar','EDITTEXT',Edit1.Text);
ini.WriteString('ayarlar','MEMOTEXT',memo1.Text);
ini.Free;
end;

Kod: Tümünü seç

//okutmak için
var
ini:tinifile;
begin
ini := TiniFile.Create(GetCurrentDir + '\inidosyam.ini');
Edit1.Text := ini.ReadString('ayarlar','EDITTEXT','N/A');
memo1.Text := ini.ReadString('ayarlar','MEMOTEXT','N/A');
ini.Free;

[huxobahci]

teşekkürler ilginiz için

[huxobahci]

ini:tinifile; daha en başta tıkanıp kaldım bir sorun var ama çözemedim. ini olarak tanıtamıyorum bu kod ile araştırdım internetten kod senin verdiğin gibi verilmiş ama bir türlü olmuyor
undeclared identifier tinifile hatası veriyor
yardımcı olursanız sevinirim

[huxobahci]

uses ile tanıtmama rağmen tinfile.dcu yok diyor enterperise sürümü olduğu için mi acaba

[huxobahci]

çok teşekkür ederim hallettim inifiles olarak tanıtmak gerekiyormuş

[huxobahci]

Bir sorum daha olacak birden çok editi çağırıp tek bir memoda aktarmak istiyorum örnek memoda şu şekilde görünecek ayar1 "ad: ahmet" ayar2 "soyadı: poyraz" yardımcı olursanız sevinirim

[thelvaci]

Okuyup yazabilmek için alfabeyi öğrenmek gerek; aksi taktirde insan hayatı boyunca; "benim yerime şunu okuyabilir misiniz, benim şu an gözlerim ağrıyor da" demek zorunda kalabilir.

[Commandx]

Kusura kalmayın ya USES INIFILES; yazmayı unutmuşum.

Bir sorum daha olacak birden çok editi çağırıp tek bir memoda aktarmak istiyorum örnek memoda şu şekilde görünecek ayar1 "ad: ahmet" ayar2 "soyadı: poyraz" yardımcı olursanız sevinirim

can sıkmak itemem ama o dediğiniz işi jedi Kütüphanesi Persistence tabında bulunan JVFORMSTORAGE + JVAPPINISTORAGE bileşenleriyle 10 dklık işi 20 saniyede hiç kod yazmadan yapabilirsiniz
Jedi olmazsa olmazlardan, Yükleyin derim.
Ama işi öğrenmek açısından Aşağıdaki kod bir fikir verecek.

Kod: Tümünü seç

edit1.Text:=memo1.Lines.Strings[0];
edit2.Text:=memo1.Lines.Strings[1];
edit3.Text:=memo1.Lines.Strings[2];

Örneği inceleyin daha iyi

[huxobahci]

Elinize sağlık verdiğiniz bilgiler çok yararlı oldu işi tam öğrenmek benim için öncelik kodları öğrenmek işi en hızlı şekilde yapmanın yolu her sorun yeni bir bilgi demek. prog yüzde 99 bitti. ufak tefek görseller kaldı. bir de progu isteyen kişilerin son gözlemi önemli. şimdi programın diğer versiyonunu yapmam lazım server olarak kullanılacak program. sanırım bu daha zor olacak.