Delphi"De Memo İle..
-
Yaw arkadaşlar deplhi de bi form yaptım 7-8
tane memo var bi kayıt bi temizle bide getir şeklinde 3 buton var..
Kayıt ta Memo1.Lines.SaveToFile("C:\rehber\sav\"+Memo1.Text+".blg");
yazıyo ve altına da memo2 memo3..şeklinde devam
ediyo..
temizle de: Clear şeklinde memo1.memo2..fln diye gidiyo.. Getir de de LoadfromFile war..
ancak çalıştırdığımda bütün bunlar sadece ilk 4Memo da çalışıyo..sebep? ve çözüm? -
for i := 0 to ComponentCount-1 do
if (Form1.Components(i) is TMemo) then
(Form1.Components(i) as TMemo).Lines.SaveToFile('C:\rehber\sav\'+Components(i).Name+'.blg');
i yi integer tanımla
load from file için save to file'ı değiştir tamamdır.
components(i) lerdeki parantez köşeli olsun buraya yazamadım o şekilde italik zannediyo :)
saygılar
Toplam Hit: 2540 Toplam Mesaj: 2