Memo ve text sorunu

[megonal]

Bir memo içeriğini txt dosyası olarak kayıt etmek için aşağıdaki kodu giriyorum. Ancak işlem buraya geldiğinde takılıyor. Bu işlemi yapmadan önce başka bir şey yapmam gerekli mi ??? ( Dosyayı açmak veya başka birşey, )

memo1.Lines.SaveToFile('deneme.txt');

[cfyasar]

o koda gelmeden önce denem.txt dosyasını içindekileri silip sadece memoyu yazmayı veya içindekinin sonuna ekleyip yazman için parametre belirtip açman gerekli.
var
T:TextFile;
begin
Assign(T,'C:\deneme.txt');
Rewrite(t);
memo1.Lines.SaveToFile(t);
closefile(T);
end,

[megonal]

[Error] Unit1.pas(64): Incompatible types: 'TPersistent' and 'Text'
hatasını verdi...

[gkimirti]

hic bir islem yapmana gerek yok
o kodun calısması lazım
basit olarak test etmek icin forma bir memo koyup
icine bir kac satır bilgi girip dene,
ayrıca takılıyor dedigin ne demek
yani prog o noktada kilitleniyormu?

[megonal]

Sanki benden o dosyayı açmamı bekliyor...Veya dosyayı sonlandırmamı...

' read timeout ' gibi bir hata veriyor...

[cfyasar]

bunu dene, bu çalışır
var
i:integer;
s:string;
t:TextFile;
begin
AssignFile(t,'C:\deneme.txt');
rewrite(t);
for i:=0 to memo1.Lines.Count-1 do
begin
s:=memo1.Lines;
writeln(t,s);
end;
closefile(T);
end;

[megonal]

Hatanın sebebini buldum...
İlk yazdığım code doğru çalışıyor başka bir şey yapmaya gerek yok. Benim hatam daha önce çalışan bir şeyi anlık stop etmemden kaynaklanmakta bu nedenlede memo içeriği oluşmamaktaytı. Şimdi düzelttim...

Teşekkürler...