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


if FileExists('FileName.ini') then



бет45/98
Дата07.02.2022
өлшемі1,51 Mb.
#85980
1   ...   41   42   43   44   45   46   47   48   ...   98
Байланысты:
Delphi

if FileExists('FileName.ini')
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   ...   98




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

    Басты бет