Mega Code Archive

 

Categories / Delphi / Files

 

Notilus - metin dosyasını satır satır okumak

// < Görkem SARI > // < notilus_hack@hotmail.com > Var Dosya: TextFile; Satir: String; begin AssignFile(Dosya, 'C:\help.txt'); Reset(Dosya); While Not Eof(Dosya) Do Begin Readln(Dosya, Satir); Memo1.Lines.Add(Satir); End; end; { Herkese iyi çalışmalar... Görkem SARI notilus_hack@hotmail.com }