Delphi ile Metin Dosyalarına Yazma
Delphi, metin dosyalarına veri yazmak için kullanılabilecek güçlü bir geliştirme ortamıdır. Metin dosyaları, verileri kalıcı olarak depolamak ve diğer uygulamalarla paylaşmak için yaygın olarak kullanılan basit ve esnek bir veri biçimidir. Bu makale, Delphi’de metin dosyalarına nasıl yazılacağını ayrıntılı olarak açıklayacaktır.
Metin Dosyası Oluşturma
Metin dosyalarına yazmadan önce, öncelikle bir metin dosyası oluşturmanız gerekir. Bunu yapmak için TFileStream sınıfını kullanabilirsiniz:
delphi
var
FileStream: TFileStream;
begin
FileStream := TFileStream.Create('mytextfile.txt', fmCreate);
FileStream.Free;
end;
Bu kod, mytextfile.txt adlı yeni bir metin dosyası oluşturacaktır. Dosya mevcutsa, kod dosyayı üzerine yazacaktır.
Metin Dosyasına Yazma
Metin dosyasını oluşturduktan sonra, TStreamWriter sınıfını kullanarak dosyaya yazabilirsiniz:
delphi
var
StreamWriter: TStreamWriter;
begin
StreamWriter := TStreamWriter.Create('mytextfile.txt');
StreamWriter.WriteLine('Bu bir metin dosyasıdır.');
StreamWriter.Close;
end;
Bu kod, “Bu bir metin dosyasıdır.” metnini mytextfile.txt dosyasına yazacaktır. WriteLine yöntemi, metni yeni bir satıra yazar.
Dosyaya Birden Çok Satır Yazma
Birden çok satırı bir metin dosyasına yazmak için WriteLn yöntemini bir döngü içinde kullanabilirsiniz:
delphi
var
StreamWriter: TStreamWriter;
i: Integer;
begin
StreamWriter := TStreamWriter.Create('mytextfile.txt');
for i := 1 to 10 do
StreamWriter.WriteLine('Satır ' + IntToStr(i));
StreamWriter.Close;
end;
Bu kod, 1’den 10’a kadar olan sayıları içeren 10 satırı mytextfile.txt dosyasına yazacaktır.
Dosyaya Bayt Dizisi Yazma
Metin verilerine ek olarak, Delphi ile metin dosyalarına bayt dizileri de yazabilirsiniz. Bunu yapmak için TFileStream sınıfının Write yöntemini kullanabilirsiniz:
delphi
var
FileStream: TFileStream;
ByteArray: TByteArray;
begin
FileStream := TFileStream.Create('mytextfile.txt', fmCreate);
ByteArray := TByteArray.Create;
ByteArray.Add(65); // 'A' karakterinin ASCII kodu
ByteArray.Add(66); // 'B' karakterinin ASCII kodu
FileStream.Write(ByteArray, ByteArray.Size);
FileStream.Free;
end;
Bu kod, “AB” metnini mytextfile.txt dosyasına bayt dizisi olarak yazacaktır.
Dosyaya Nesne Yazma
Delphi, nesneleri metin dosyalarına serileştirmenize de olanak tanır. Bunu yapmak için TStream sınıfının WriteObject yöntemini kullanabilirsiniz:
delphi
var
FileStream: TFileStream;
MyObject: TMyObject;
begin
FileStream := TFileStream.Create('mytextfile.txt', fmCreate);
MyObject := TMyObject.Create;
FileStream.WriteObject(MyObject);
FileStream.Free;
end;
Bu kod, MyObject nesnesini mytextfile.txt dosyasına serileştirecektir.
İlgili Kaynaklar
- Delphi Yardım Merkezi: Metin Dosyaları
- Delphi Metin Dosyası İşleme Örnekleri
- Delphi ile Nesne Serileştirme
Sonuç
Delphi, metin dosyalarına veri yazmak için çok yönlü ve kullanımı kolay bir geliştirme ortamıdır. TFileStream ve TStreamWriter sınıflarını kullanarak metin verilerini, bayt dizilerini ve hatta nesneleri metin dosyalarına yazabilirsiniz. Bu özellikler, verileri kalıcı olarak depolamak ve diğer uygulamalarla paylaşmak için metin dosyalarını güçlü bir araç haline getirir.