SaveToFile Komutu Hk.

[AllForYouX]

Merhabalar ,

Benim bir sorum olucaktı ben veritabanı ile örnekler yapıyorum.Benim Yapmak istediğim şey ise forumda girilen bilgileri ( ÖgrenciNo,Memleket vs.) Dbmemoya aktarma dbmemodan ise OgrKarti.txt adlı dosyaya aktarma. Buraya kadar yapabiliyorum fakat her aktardığımda eski bilgi siliniyor altına nasıl yazdırabilirim ?

// Memodaki bilgiyi bu şekilde aktarıyorum 'OgrKart.txt' dosyasına

Kod: Tümünü seç

procedure TForm1.btn12Click(Sender: TObject);
begin
dbmmoAdres.Lines.SaveToFile('OgrKart.txt');
end;

Ve ayrıca bu başka sorum ise dbmemoya bilgiyi aktarırken sadece içindekini aktarıyor yani labelde yazan Oğrenci no yu yazmıyor onun için basit bir yöntem var mı acaba ? (RESİMDE OLDUGU GİBİ )
//Memoya aktar komutu

Kod: Tümünü seç

begin
dbmmoAdres.Lines.Add(dbedtOgrNo.Text+   '      '  +dbedtadres.Text+  '      '   +dbcbbbolum.Text+  '      '    +dbcbbglise.Text+  '      '
+floattostr(secim));
end;

[mkysoft]

verileri memoya kaydettirmek yerine text file komutlarını kullanarak yapın. Forumda ararsanız örnek bulabilirsiniz.

[AllForYouX]

verileri memoya kaydettirmek yerine text file komutlarını kullanarak yapın. Forumda ararsanız örnek bulabilirsiniz.

komutu buldum fakat üzerine kaydettiremiyorum

Örn KOD

Kod: Tümünü seç

AssignFile(TF, 'C:\Users\mustafa\Desktop\EnsonDelphi\Deneme.TXT');
Rewrite(TF);
Writeln(TF, dbedtAdres.Text);
Writeln(TF, dbedtEmail.Text);
CloseFile(TF);

bunu silmeden nasıl eklettirebilirim üzerine.

[orhancc]

Dosyayı Rewrite yerine Append ile aç

[AllForYouX]

Dosyayı Rewrite yerine Append ile aç

Çok teşekkür ederim sorunumu hallettim.
Acaba bunu dbmemoya aktarıp oradan kaydetmenin kodu var mı birde öle denemek istiyorum.Yardımlarınız için teşekkürler.

[mkysoft]

memo.lines.count a göre bir dingü kurun. het satırı write edin döngü içinde.

[orhancc]

Dbmemodan texte mi aktaracaksın?

[AllForYouX]

Dbmemodan texte mi aktaracaksın?

Evet aynen o şekilde yapacağım.Bu araya ekle komutunu denedım yapamadım hata veriyor.

[orhancc]

Kodunu göster ve aldığın hatayı söyle ki yardımcı olalım.