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



бет92/97
Дата06.01.2022
өлшемі2,03 Mb.
#12435
1   ...   89   90   91   92   93   94   95   96   97
Байланысты:
Delphi vizualdy programmalau ortasy

47-сурет

2. Компоненттердің оқиғалары мен қасиеттерін төменде берілген бағдарламаға сәйкес өңдеп, жұмыс мақсатына сәйкес әрекеттерді атқарыңыз.


Бағдарламасы:

unit RewAp_;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

f: TextFile; // файл



fName: String[80]; // файлдың аты

i: integer;

begin

if not OpenDialog1.Execute



then

exit;


// Пайдаланушы файлды таңдады

fName := OpenDialog1.FileName;

AssignFile(f, fName);

Rewrite(f); // қайта жазу үшін ашу

// файлға жазу

for i:=0 to Memo1.Lines.Count do // жолдар нөлден бастап //нөмірленеді

writeln(f, Memo1.Lines[i]);

CloseFile(f); // файлды жабу

MessageDlg('Мәліметтер файлға қосылды. ', mtInformation, [mbOk],0);

end;




48-сурет

procedure TForm1.Button2Click(Sender: TObject);

var

f: TextFile; // файл



fName: String[80]; // файлдың аты

i: integer;

begin

fName := Edit1.Text;



AssignFile(f, fName);

Append(f); // жазба қосу үшін ашу

// файлға жазу

for i:=0 to Memo1.Lines.Count do // жолдар нөлден бастап //нөмірленеді

writeln(f, Memo1.Lines[i]);

CloseFile(f); // файлды жабу

MessageDlg('Жазбалар файлға қосылды ',mtInformation,[mbOk],0);

end;


end.

25. Файлдан оқу


Жұмыстың мақсаты – Файлдан оқуға мүмкіндік жасайтын бағдарлама құру.

1. Жаңа жоба ашып, Пішінге 49-суретте бейнеленген компоненттерді орнатыңыз.





49-сурет

2. Төменде келтірілген бағдарламаны пайдаланып, сол компоненттердің оқиғалары мен қасиеттерін өңдеп, жұмыс мақсатына жеткізетін әрекеттерді орындаңыз.



Бағдарламасы:

// мәтіндік файлды редакциялау-қарап шығу

unit rd1_;

{$R *.dfm}

// Ашу батырмасын шерту

procedure TForm1.Button1Click(Sender: TObject);

var

f: TextFile; // файл



fName: String[80]; // файл аты

buf: String[80]; // жолды оқуға арналған буфер

begin

if not OpenDialog1.Execute



then {пайдаланушы сұхбатты Болдырмау батырмасын шертіп жапты}

exit;


// пайдаланушы файлды таңдады

fName := OpenDialog1.FileName;

Form1.Caption := fName;

AssignFile(f, fName);

try

Reset(f); // оқу үшін ашу



except

on EInOutError do

begin

ShowMessage('файлға қатынас жасауда қате кетті '+ fName);



exit;

end;


end;

// файлдан оқу





50-сурет
while not EOF(f) do

begin


readln(f, buf); //мәтін жолын файлдан оқу

Memo1.Lines.Add(buf); // жолды Memo1 өрісіне қосу

end;

CloseFile(f); // файлды жабу



end;

procedure TForm1.FormCreate(Sender: TObject);

begin // сүзгіні анықтау

OpenDialog1.Filter := 'Мәтін|*.txt';

end;

end.


26. Жұлдыздар
Жұмыстың мақсаты – терезенің кезкелген жерінен тышқанның батырмаларымен шерткенде жұлдыздар шығаратын бағдарлама құру.

1. Жаңа жоба ашып, Пішінге 51-суретте көрсетілгендей компонент-терді орналастырыңыз.





51-сурет
2. Компоненттердің оқиғалары мен қасиеттерін төменде берілген бағдарламаға сәйкес өңдеп, жұмыс мақсатына сәйкес әрекеттерді атқарыңыз.


Достарыңызбен бөлісу:
1   ...   89   90   91   92   93   94   95   96   97




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

    Басты бет