Basitçe söylemek gerekirse, metin dosyaları okunabilir içeriyor ASCII karakter. Delphi'deki bir metin dosyasıyla çalışmayı VCR kasetinde bilgi çalmaya veya kaydetmeye benzer olarak düşünebiliriz.
Bir metin dosyasında değişiklik yapmak mümkün olsa da, bilgileri işlerken etrafa atlayın veya dosyaya başka veriler ekleyin sonunda, bir metin dosyasının yalnızca normal metinle çalıştığımızı bildiğimizde ve böyle bir işlem yapılmadığında kullanılması önerilir. gerekli.
Metin dosyalarının, her satırın bir satır sonu işaretçisi (a CR / LF kombinasyonu).
TextFile ve Atama Yöntemi
Metin dosyalarıyla çalışmaya başlamak için diskteki bir dosyayı kodunuzdaki bir dosya değişkenine bağlamanız gerekir - bildir TextFile türünde bir değişken ve diskteki bir dosyayı bir dosyayla ilişkilendirmek için AssignFile yordamını kullanın değişken.
Metin Dosyasından Bilgi Okuma
Bir dosyanın içeriğini bir dize listesine tekrar okumak istiyorsak, işi yalnızca bir kod satırı yapar.
Bir dosyadan satır satır bilgi okumak için, dosyayı
giriş kullanarak Sıfırla prosedür. Bir dosya sıfırlandıktan sonra, Readln bir dosyadan bilgi okumak için (bir dosyadan bir metin satırı okur ve bir sonraki satıra geçer):Bir dosyadan not bileşenine bir metin satırı ekledikten sonra SomeTxtFile öğesinin kapatılması gerekir. Bu, Kapat Anahtar kelime.
Dosyadan bilgi okumak için Okuma prosedürünü de kullanabiliriz. Okuma, işaretçiyi bir sonraki satıra taşımadığı için ReadLn gibi çalışır.
EOF - Dosya Sonu
Dosyanın sonunun ötesinde okumaya çalışmadığınızdan emin olmak için EOF işlevini kullanın. Diyelim ki dosyanın içeriğini mesaj kutularında görüntülemek istiyoruz - bir dosyanın sonuna kadar her seferinde bir satır:
Not: kullanmak daha iyidir Döngü sırasında Dosyanın var olduğu (ancak olası olmadığı) ancak veri içermediği olasılığını hesaba katıncaya kadar.
Dosyaya Metin Yazma
Writeln muhtemelen bir dosyaya tek tek bilgi göndermenin en yaygın yoludur. Aşağıdaki kod, bir Memo1 bileşeninden (satır satır) bir metni okur ve yeni oluşturulan bir metin dosyasına gönderir.
Yeniden Yazma yordamına sağlanan dosyanın durumuna bağlı olarak, SomeTextFile öğesine atanan adla yeni bir dosya oluşturur (çıktı için dosyayı açar). Aynı ada sahip bir dosya zaten varsa silinir ve yerine yeni bir boş dosya oluşturulur. SomeTextFile zaten açıksa, önce kapatılır ve sonra yeniden oluşturulur. Geçerli dosya konumu boş dosyanın başlangıcına ayarlanır.
Not: Memo1.Lines. SaveToFile ('c: \ MyTextFile.txt') aynısını yapacaktır.
Bazen varolan bir dosyanın sonuna bazı metin verileri eklememiz gerekir. Bu durumda, arayacağız ekleme bir dosyanın, dosyanın sonuna konumlandırılmış dosya işaretçisi ile salt yazılır erişimle açılmasını sağlamak için. Gibi bir şey:
İstisnalardan Haberdar Olun
Genel olarak, her zaman istisna işleme dosyalarla çalışırken. I / O sürprizlerle doludur. Bir kullanıcının FAT'sini bozma olasılığını önlemek için her zaman sonunda bir blokta CloseFile kullanın. Önceki tüm örnekler aşağıdaki gibi yeniden yazılmalıdır:
Yapısal Dosyalarla İşleme
Delphi hem ASCII dosyalarını hem de ikili verileri tutan dosyaları işleme yeteneğine sahiptir. İşte çalışmak için teknikler yazılan ve türlenmemiş (ikili) dosyalar.