for i := 0 to ComponentCount-1 do if (Form1. Components is TMemo) then (Form1. Components as TMemo). Lines. SaveToFile('C:\rehber\sav\'+Components . Name+'. blg'); i yi integer tanımla load from file için save to file'ı değiştir tamamdır.components lerdeki parantez kşeli olsun buraya yazamadım o şekilde italik zannediyo :) saygılar Zulm ile abad olanın Ahiri berbad olur

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?