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

жүктеу/скачать 1,51 Mb.

бет	93/98
Дата	07.02.2022
өлшемі	1,51 Mb.
	#85980

1 ... 90 91 92 93 94 95 96 97 98

Байланысты:
Delphi

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,51 Mb.

Достарыңызбен бөлісу:

1 ... 90 91 92 93 94 95 96 97 98