21-01-2024, Saat: 21:59
En basit ve kolayı bence Record yapısı kullanmak. Ben pek çok projede yaptım. Eğer kayıt miktarı 100 bini geçmiyorsa text dosyası bile işinizi görebilir.
Record yapısı dosyadaki bir kayda direkt erişim imkanı verir. Daha hızlıdır.
Örnek:
Type
Kayit = Record
alan1: integer;
alan2: string[100];
alan3: Boolean;
end; // of record
var Kay: Kayıt;
KayitF: File of Kayit;
begin
AssignFile(KayitF, 'DosyaAdi'); ReWrite(KayitF); // Dosya oluşturuluyor. Dosya varsa kontrol ile Reset(KayitF) yapacaksınız.
Write(KayitF, Kay);
Kay.alan1 := 0;
Kay.alan2 := 'Delhi Can';
kay.alan3 := True;
Write(KayitF, Kay); // Daha sonra Seek(KayitF, n) n --> tam sayı, komutu ile istediğiniz kayıta ulaşıp Read(KayitFi kay) komutu ile kayıt okuyabilirsiinz.
end;
Record yapısı dosyadaki bir kayda direkt erişim imkanı verir. Daha hızlıdır.
Örnek:
Type
Kayit = Record
alan1: integer;
alan2: string[100];
alan3: Boolean;
end; // of record
var Kay: Kayıt;
KayitF: File of Kayit;
begin
AssignFile(KayitF, 'DosyaAdi'); ReWrite(KayitF); // Dosya oluşturuluyor. Dosya varsa kontrol ile Reset(KayitF) yapacaksınız.
Write(KayitF, Kay);
Kay.alan1 := 0;
Kay.alan2 := 'Delhi Can';
kay.alan3 := True;
Write(KayitF, Kay); // Daha sonra Seek(KayitF, n) n --> tam sayı, komutu ile istediğiniz kayıta ulaşıp Read(KayitFi kay) komutu ile kayıt okuyabilirsiinz.
end;

