|
Óïðàæíåíèå 3. Ñîçäàéòå ïðèëîæåíèå, îòêðûâàþùåå òåêñòîâûé ôàéë äëÿ äîïîëíåíèÿ è çàòåì äîáàâëÿþùåå â íåãî ââåäåííûé òåêñò.
Ñîçäàéòå ôîðìó è çàäàéòå äëÿ åå ñâîéñòâà Caption çíà÷åíèå «Äîáàâëåíèå òåêñòà â ôàéë». Íà ôîðìå Forml ðàçìåñòèòå êîìïîíåíòû Button1, Memo1, Label1, ïðèñâîéòå çíà÷åíèÿ ñâîéñòâàì Label1.Caption – «Òåêñò èç ôàéëà», Button1.Caption – «Ïðî÷èòàòü òåêñò èç ôàéëà». Ïîä Label1 ðàçìåñòèòå Label2 è çàäàéòå äëÿ ñâîéñòâà Label2.Caption çíà÷åíèå «Äîáàâëÿåìûé òåêñò». Íèæå Label2 ðàçìåñòèòå íà ôîðìå Edit1. Ïîä îáúåêòîì Edit1 ðàçìåñòèòå êíîïêó Button2 è çàäàéòå äëÿ ñâîéñòâà Button1.Caption çíà÷åíèå «Äîáàâèòü òåêñò â ôàéë». Óäàëèòå òåêñò èç îêîí êîìïîíåíòîâ Memo1, Edit1. Äëÿ îáåñïå÷åíèÿ âîçìîæíîñòè ïðîñìîòðà â îêíå Memo1 äëèííûõ òåêñòîâ ñ èñïîëüçîâàíèåì âåðòèêàëüíîé ïîëîñû ïðîêðóòêè â îêíå Èíñïåêòîðà îáúåêòîâ âûáåðèòå îáúåêò Memo1 è íà ñòðàíèöå Ñâîéñòâà óñòàíîâèòå äëÿ ñâîéñòâà ScrollBars çíà÷åíèå ssVertical. Âûðîâíÿéòå êîìïîíåíòû è çàôèêñèðóéòå èõ ïîëîæåíèå íà ôîðìå.
Ñîçäàéòå îáðàáîò÷èêè íàæàòèé êíîïîê Ïðî÷èòàòü òåêñò èç ôàéëà è Äîáàâèòü òåêñò â ôàéë. Ïðîöåäóðà îáðàáîòêè ñîáûòèÿ íàæàòèÿ êíîïêè Ïðî÷èòàòü òåêñò èç ôàéëà áûëà îïèñàíà â ïðåäûäóùåì óïðàæíåíèè. Äëÿ ñîçäàíèÿ ïðîöåäóðû îáðàáîò÷èêà ñîáûòèÿ íàæàòèÿ êíîïêè Äîáàâèòü òåêñò â ôàéë âûáåðèòå â îêíå Èíñïåêòîðà îáúåêòîâ îáúåêò Button2, íà ñòðàíèöå Ñîáûòèÿ ïðîèçâåäèòå äâîéíîé ùåë÷îê íà ïóñòîì ïîëå ñïèñêà â ñîáûòèè OnClick. Ïîñëå ýòîãî â îêíå Ðåäàêòîðà êîäà áóäåò ñãåíåðèðîâàíà çàãîòîâêà ïðîöåäóðû îáðàáîò÷èêà ñîáûòèÿ. ×òîáû ýòà ïðîöåäóðà âûïîëíÿëà îòêðûòèå ñóùåñòâóþùåãî òåêñòîâîãî ôàéëà è äîáàâëÿëà â íåãî òåêñò, ÿâëÿþùèéñÿ çíà÷åíèåì ñâîéñòâà Text îáúåêòà Edit1, îòðåäàêòèðóéòå òåêñò ïðîöåäóðû ñëåäóþùèì îáðàçîì:
procedure TForm1.Button2Click(Sender: TObject);
var
f:TextFile; {îïèñàíèå ôàéëîâîé ïåðåìåííîé}
begin
AssignFile(f,'textl.txt'):
Append(f); {îòêðûòü ñóùåñòâóþùèé ôàéë äëÿ äîáàâëåíèÿ â åãî êîíåö}
Writeln(f,Editl.Text); {çàïèñàòü â ôàéë çíà÷åíèå ñâîéñòâà Text îáúåêòà Editl}
CloseFile(f); {çàêðûòü ôàéë}
end;
Ñîõðàíèòå ôàéë ìîäóëÿ ïîä èìåíåì Main2, à ôàéë ïðîåêòà – ïîä èìåíåì TextMemoFHe2 â ïàïêå Îáðàáîòêà òåêñòîâûõ ôàéëîâ. Îòêîìïèëèðóéòå è çàïóñòèòå ïðèëîæåíèå. Ùåëêíóâ ìûøüþ íà êíîïêå Ïðî÷èòàòü òåêñò èç ôàéëà, óáåäèòåñü, ÷òî òåêñò èç ôàéëà íà äèñêå ñ÷èòûâàåòñÿ â îêíî Memo1.
Ââåäèòå òåêñò â îêíî Editl è ùåëêíèòå ìûøüþ íà êíîïêå Äîáàâèòü òåêñò â ôàéë. Ùåëêíóâ íà êíîïêå Ïðî÷èòàòü òåêñò èç ôàéëà, ïðîñìîòðèòå òåêñò, ïðî÷èòàííûé èç ôàéëà, è óáåäèòåñü, ÷òî ïðè ïîâòîðíîì ñ÷èòûâàíèè èç ôàéëà ñ÷èòûâàåòñÿ òåêñò, âêëþ÷àþùèé òåêñò, òîëüêî ÷òî äîáàâëåííûé âàìè. Çàêðîéòå îêíî ïðèëîæåíèÿ.
<< {SITELINK-S211}1{/SITELINK}, {SITELINK-S212}2{/SITELINK}, 3, {SITELINK-S214}4{/SITELINK}, {SITELINK-S215}5{/SITELINK} >>
| 
