Çàî÷íîå äèñòàíöèîííîå îáðàçîâàíèå ñ ïîëó÷åíèåì ãîñóäàðñòâåííîãî äèïëîìà ÷åðåç Internet










Ïîëó÷èòü èíôîðìàöèþ î ïîñòóïëåíèè
 
Ãëàâíàÿ Íîâîñòè Êàðòà ñàéòà Ôîòîàëüáîì Ãîñòåâàÿ êíèãà Êîíòàêòû

 

Óïðàæíåíèÿ ïî îáðàáîòêå ôàéëîâ (óïð 3.)

Óïðàæíåíèå 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} >>


 
     
   
 


Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êðóãëîì ñòîëå!
ïîäðîáíåå   >>>
 

Èíñòèòóò Ìåíåäæìåíòà, Ýêîíîìèêè è Èííîâàöèé íà÷èíàåò íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Óâàæåìûå ñòóäåíòû ÀÍÎ ÂÏÎ ÈÌÝèÈ!
ïîäðîáíåå   >>>
 

Íà÷èíàåòñÿ íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êîíôåðåíöèÿõ!
ïîäðîáíåå   >>>
 


âñå íîâîñòè...

 


Ðàññûëêè Subscribe.Ru
Ñîâðåìåííîå îáðàçîâàíèå
Ïîäïèñàòüñÿ ïèñüìîì