Delphi визуалды программалау ортасы


then Read(SaveF, SaveV); Керекті жазбаға көрсеткішті Seek(SaveF,N)



бет45/97
Дата06.01.2022
өлшемі2,03 Mb.
#12435
1   ...   41   42   43   44   45   46   47   48   ...   97
      then Read(SaveF, SaveV);

Керекті жазбаға көрсеткішті Seek(SaveF,N) операторымен мәжбүрлеп орнатуға болады, мұндағы N – нөлден бастап саналатын жазба нөмірі. Мысалы, көрсеткішті 50-жазбаға орнату үшін былай жазады:    Seek(SaveF, 49);

Файлды біртіндеп оқу кезінде көрсеткіш файлдың соңына жетеді де, әрі қарай оқу кезінде «қате» туралы хабарлайды. Осы қате шықпау үшін, файлдың соңына жеткен-жетпегенін тексеруге EOF операторын пайдалануға болады:
while (not EOF(SaveF)) do
      Read(SaveF, SaveV);
Файлдағы барлық жазбаны (көрсеткіштің тұрған жерінен файлдың соңына дейін) Truncate(SaveF) операторы қиып тастауға(өшіруге не қажет болса, жоюға) мүмкіндігі бар.

Файлмен жұмыс істеп болған соң оны жабу керек. Оны CloseFile(SaveF) ; операторы атқарады.

Енді тақырыптың бірінші бөліміндегі экрандағы өз орнын сақтайтын бағдарламаны өзгертуімізге болады. Мұнда жоғарыдағы суретте келтірілгендіктен, сипаттауды қалдырамыз.

Пішіннің OnCreate оқиғасын өңдеушіні құрайық:




Достарыңызбен бөлісу:
1   ...   41   42   43   44   45   46   47   48   ...   97




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет