Çàãðóæàåì, âûãðóæàåì, ïå÷àòàåì..., Îòâåò íà âîïðîñû

 îáùåì âñ¸ âîò òàê. Òîëüêî íå ïóãàéòåñü ÿ íå ñîáèðàëñÿ ïèñàòü êàêóþ-òî òîâàðíóþ ïðîãó, ïðîñòî îòâå÷àþ íà çàäàííûé âîïðîñ è ïîýòîìó ìèíóò çà 5-10 íàêèäàë ýòîò êîä. Åù¸ ïðîñüáà íå ïèøèòå ìíå íà ÐÌ, ëó÷øå ñîçäàâàéòå òîïèê è ÿ ïîñòàðàþñü îòâåòèòü íà âñå âîçíèêøèå âîïðîñû, ïî ìåðå ñèë, ñïîñîáíîñòåé è ñâîáîäíîãî âðåìåíè.

Èòàê ïðèñòóïèì:

Îòêðûâàåì â Äåëüôÿõ íîâûé ïðîåêò. Â ñâîéñòâàõ ôîðìû ïðîïèñûâàåòå:
Caption (÷òî õîòèòå, ÿ íàïðèìåð íàïèñàë Ñóïåð-ïóïåð,à ìîæåòå è íè÷åãî íå ïèñàòü, è òàê áóäåò ðàáîòàòü ïî óìîë÷àíèþ ñðåäà ñàìà ïðîïèøåò òàì Form1)

Position – poScreenCenter (ýòî ÷òîá âàøà ïðîãà îòîáðàæàëàñü ïðè çàïóñêó â öåíòðå ýêðàíà, ýòî òîæå ìîæíî íå äåëàòü, íî åñòü â ïðîãðàììèðîâàíèè «Ïðàâèëà õîðîøåãî òîíà» Òàê ÷òî ê òàêèì âåùàì æåëàòåëüíî ïðèâûêàòü ñ ñàìîãî íà÷àëà.

Ñîõðàíÿåì ïðîåêò íà âñÿêèé ïîæàðíûé ñëó÷àé, êòî åãî çíàåò ìîæ âû ÷¸ òàì íà÷óäèëè è âàøà äîáëåñíàÿ îñü ýòîãî íå ïåðåæèâ¸ò, òàê ÷òî õîòü íå ïîòåðÿòü òî ÷òî óæå ñäåëàíî ïîñëå âûíóæäåííîãî ðåñåòà, ëó÷øå ñîõðàíèòüñÿ.

Äàëåå êèäàåì íà ôîðìó òðè êîìïîíåíòà ñ çàêëàäêè Dialogs

OpenDialog – â êîäå îí ïîëó÷àåò èìÿ OpenDialog1;
SaveDialog – SaveDialog1 è PrintDialog – PrintDialog1

Äàëåå ñ çàêëàäêè Win32 êèäàåì íà ôîðìó RichEdit, ìîæíî ëþáîé äðóãîé òèïà Memo, íî ýòîò äëÿ íàøèõ öåëåé íà ìîé âçãëÿä áîëåå óäîáåí.

Ñ çàêëàäêè Standart êèäàåì ÷åòûðå áóòîíà îíè ïîëó÷àþò èìåíà Button1, Button2 è ò.ä.  ñâîéñòâñàõ Caption ó ïåðâîãî ïèøåì «Îòêðûòü» ó âòîðîãî «Ñîõðàíèòü» ó òðåòüåãî «Ïå÷àòü» íó è ïîñëåäíåãî «Âûõîä». Ðàçìåùàåòå âñ¸ ýòî íà ôîðìå êàê Âàì âçäóìàåòñÿ èëè ìîæåòå íàïðèìåð êàê ýòî ñäåëàë ÿ.


 ñîáûòèè onClick Button4 ïèøåì

procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Close;
end;

Ýòî áóäåò êíîïêà çàêðûòèÿ ïðèëîæåíèÿ

Ó êíîïêè «Îòêðûòü»
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
Ýòî áóäåò êíîïêà Îòêðûòèÿ ôàéëà è çàãðóçêè åãî ñîäåðæèìîãî â RichEdit, ãäå åãî ìîæíî ðåäàêòèðîâàòü, èçìåíÿòü èçè äåëàòü âñ¸ ÷òî âàì âçäóìàåòñÿ.


Ó êíîïêè «Ñîõðàíèòü»
procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
Ýòî áóäåò êíîïêà ñîõðàíåíèÿ ñîäåðæèìîãî RichEdit, â òåêñòîâîé ôàéë.


Ó êíîïêè «Ïå÷àòü»

procedure TForm1.Button3Click(Sender: TObject);
begin
if PrintDialog1.Execute then RichEdit1.Print(RichEdit1.Text);
end;

Íó è êíîïêà âûâîäà íà ïå÷àòü ñîîòâåòñòâåííî.

Òàê íà ñ áóòòîíàìè âðîäå áû çàêîí÷èëè ïåðåõîäèì ê äèàëîãàì, â ïðèíöèïå ýòîãî ìîæíî è íå äåëàòü, íî Âû æ ïîìíèòå ïðî «õîðîøèé òîí»? Àñü? Íå ïîìíèòå… Õì… Íó è ëàäíî ÿ âñ¸ ðàâíî íàïèøó àâîñü êîìó-òî ïðèãîäèòüñÿ…

Âûäåëÿåì íà ôîðìå OpenDialog è â îòêðûâøèõñÿ â èíñïåêòîðå îáåêòîâ åãî ñâîéñòâàõ ïèøåì:
DefaulEx – txt
Title – Îòêðûòèå ôàéëà
Ñ÷¸ëêàåì ïî ïîçèöèè Filter è â îòêðûâøåìñÿ îêíå ðåäàêòèðîâàíèÿ îòïðåäåëÿåì óñëîâèÿ ôèëüòðàöèè ïðè âûáîðå ôàéëà, ÷òîá ïîä íîãàìè íå áîëòàëîñü ÷òî íå ïîïàäÿ, à ëèøü òå òåêñòîâûå ôàéëû êîòîðûå ìû ñ Âàìè è ñîáèðàåìñÿ îòêðûâàòü. FilterName - Tåêñòîâûå ôàéëû Filter - *.txt

Ñ SaveDialog ïîñòóïàåì òî÷íî òàê æå ñ ðàçíèöåé ëèøü â òîì ÷òî â åãî Title ïèøåì "Cîõðàíåíèå ôàéëà".

Íó è âåíöîì òâîðåíèÿ ïðîïèøåì â ñâîéñòâàõ RichEdit ScrollBars – onBoth Ýòî äëÿ òîãî ÷òîáû ñêðîëèíãè ïðîêðóòêè ïîÿâëÿëèñü ïî ìåðå íåîáõîäèìîñòè åñëè çàãðóæåííîå ñîäåðæàíèå ôàéëà ïðåâûøàåò ðàçìåð RichEdit ïî ñòðîêàì. Åñëè ýòîãî íå ïðîïèñàòü òî ñêðîëèíãè ñàìè íå ïîÿâÿòüñÿ.

Íó âîò è âñ¸ ñîõðàíÿåìñÿ, êîìïèëèðóåì ïðîåêò è ñìåëî æì¸ì ÑÒÀÐÒ íà ïàíåëè Äåëüôåé, à åñëè â ëîìû ïðîñòî íàæèìàåì F9 È ïîëó÷àåì òðåáóåìûé ðåçóëüòàò..

Íó âîò â ïðèíöèïå è âñ¸ ÷òî ÿ ìîãó ñêàçàòü ïî ýòîìó âîïðîñó. Àâòîðñêèå ïðàâà íà ýòó àõèíåþ ÿ ðåãèñòðèðîâàòü íå ñîáèðàþñü òàê ÷òî ëîìàéòå, óëóäøàéòå ïåðåäåëûâàéòå êàê âàì âçäóìàåòñÿ… Âäðóã ó Âàñ èç ýòîãî âñåãî ïîëó÷èòüñÿ îôèãèòåëüíàÿ ïðîãà,. Æåëàþ óäà÷è è âñåãî ñàìîãî-ñàìîãî!

Îé îãðîìíîå ïàñèáî! Íè÷åãî åñëè ÿ áóäó òóò êîåêàêèå âîïðîñèêè çàäàâàòü????(íå÷àñòî)

âñå ïîëó÷èëîñü òîêî âîò òàêàÿ ïðîáëåìñ- ïîñëå òîãî êàê ÿ íàïèøó if PrintDialog1.Execute then Memo1.Print(Memo1.Text);
(ÿ ðåäàêòîð èñïîëüçîâàë ìåìî) îí âûäàåò ñíèçó:
Unit.pas(54):Undeclared identifier:'Print'
è ñòàâèò ïàëî÷êó ïå÷àòè âîò òàê:
Memo1.Print|(Memo1.Text);
÷òî çà áàéäà?

Çàäàâàé ëþáûå âîïðîñû, ÷åì ñìîãó, òåì ïîìîãó... Íó ýò ïðîñòî... ß ñïåöèàëüíî è âçÿë äëÿ ýòîé öåëè êîìïîíåò RichEdit òàê êàê ó íåãî åñòü ìåòîä Print ïîçâîëÿþùèé âûâîäèòü íà ïå÷àòü ó Memo òàêîãî ìåòîäà íåò... îò òóäà è îøèáêà... åñëè âûâîäèòü íà ïå÷àòü ÷òî-òî èç Memo òî íàäî ñàìîìó ïèñàòü ïðîöåäóðó âûâîäà íà ïå÷àòü. Åñëè íàäî òî ÿ ìîãó íàïèñàòü ïðèìåðíûé êîä äëÿ ðåàëèçàöèè ýòîãî ïðîöåññà. Òî åñòü â ýòîì ñëó÷àå ïðîãðàììåðó ïðèõîäèòüñÿ ñàìîìó ëîìàòü ãîëîâó êàê ýòî ñäåëàòü, íå ïîëüçóÿñü çàëîæåíûìè â ñðåäó ôóíêöèÿìè è ìåòîäàìè. Âîò òû óæå è ñòîëêíóëñÿ ñ íåäîðàáîòàííîñòüþ Äåëüôåé..

íäà...ïîíÿòíî!

à â ÷¸ì ðàçíèöà òîãäà ìåìî è ðè÷-åäèò??? òîãäà íàôèã ýòîò ìåìî??

áèã ñïàñèáî! âñ¸ ðàáîòàåò
åñëè åù¸ íåòðóäíî íàïèøè òåêñò äëÿ FontDialog ÿ ÷¸ò ïûòàëñÿ ñäåëàòü ïî ïðîøëûì ïðèìåðàì íè÷åðòà...

Ðàçíèöà âîáùåì-òî áîëüøàÿ. Memo ýòî òèïà îáûêíîâåííîé ñòðîêè ââîäà Edit, íî ñ âîçìîæíîñòüþ çàãðóæàòü â íåãî òåêñò äëèííîé áîëåå 256 çíàêîâ, ðåäàêòèðîâàëü åãî è âûãðóæàòü/çàãðóæàòü âî âíåøíèé ôàéë. Ýòî åñëè ïî áîëüøîìó ñ÷¸òó. Òàê êàê íà ñàìîì äåëå ó Memo è Edit íàìíîãî áîëüøå ðàçëè÷èé è ìåòîäîâ.

RichEdit - ýòî ãîòîâàÿ çàãîòîâêà äëÿ ïîëíîöåííîãî òåêñòîâîãî ðåäàêòîðà. Åñëè ñîõðàíèòü èç åãî òåêñò ïî âíåøíèé òåêñòîâîé ôàéë è ïîòîì îòêðûòü ýòîò òåêñòîâèê íàïðèìåð ñòàíäàðòíûì áëîêíîòîì, òî ìîæíî óâèäåòü ÷òî â òåêñòå íå òîëüêî òî ÷òî òû ñîõðàíèë, à åù¸ åñòü êîå-÷òî. Ýòî òåãè ôîðìàòèðîâàíèÿ òåêñòà. Òî åñòü ïåðåíîñ ñòîðîê è ò.ä. è ò.ï. Êàê íàïðèìåð â äîêóìåíòàõ RTF èëè DOC.

Ïî ýòîìó åñëè òåáå íàäî ïèñàòü ïðîãó óìåþùóþ ðàáîòàòü ñ òåêñòîì òî íàäî èñïîëüçîâàòü RichEdit, òàê êàê ìíîãèå ôóíêöèè òåêñòîâîãî ðåäàêòîðà â í¸ì óæå çàëîæåíû.

À åñëè ïðîñòî íóæíî òåêñòîâîå ïîëå ñ óêàçàíûìè ìíîþ âûøå âîçìîæíîñòÿìè, òî ëó÷øå èñïîëüçîâàòü Memo. Âîò è âñå äåëà. Ïî áîëüøîìó ñ÷¸òó.

Äîáàâëÿåì íà ôîðìó åù¸ îäèí Áàòòîí, òî åñòü Button5, äà¸ì åìó èìÿ "Øðèôò" è â åãî îáðàáîò÷èêå ïèøåì, ÷òîá âñ¸ âûãëÿäåëî ïðèìåðíî ýòàê âîò:

procedure TForm1.Button5Click(Sender: TObject);
begin
if FontDialog1.Execute then
begin
RichEdit1.Font.Name:=FontDialog1.Font.Name;
RichEdit1.Font.Size:=FontDialog1.Font.Size;
RichEdit1.Font.Style:=FontDialog1.Font.Style;
RichEdit1.Font.Color:=FontDialog1.Font.Color;
end;
RichEdit1.Repaint;
end;

Ñ çàêëàäêè VCL Dialog ñáðàñûâàåì íà ôîðìó êîìïîíåíò FontDialog, îí â êîäå ïîëó÷àåò èìÿ FontDialog1

Òàê4æå ìîæíî äîáàâèòü åù¸ îäíó êíîïêó Button6 "Î÷èñòèòü", äëÿ òîãî ÷òîáû ìîæíî áûëî îäíèì íàæàòèåì î÷èùàòü RichEdit îò òåêñòà â îáðàáîò÷èêå ïèøåì:

procedure TForm1.Button6Click(Sender: TObject);
begin
RichEdit1.Clear;
RichEdit1.Repaint;
end;

Ïðåäóïðåæäàþ! Ýòî áóäåò ðàáîòàòü ÄËß ÂÑÅÃÎ òåêñòà íàõîäÿùåãîñÿ â RichEdit Äëÿ òîãî ÷òîáû èçìåíÿòü ïàðàìåòðû îòäåëüíîãî ôðàãìåíòà òåêñòà (âûäåëåííîãî) íå çàäåâàÿ îñòàâøèéñÿ òåêñò íàäî ðàáîòàòü ñ äðóãèìè ìåòîäàìè. Òî åñòü ïðîâåðèòü íå âûäåëåí ëè íåêèé ôðàãìåíò òåêñòà åñëè íåò, òî ïðèìåíÿòü ïàðàìåòðû ãëîáàëüíî. Êàê ÿ óæå ïîêàçàë. À åñëè åñòü âûäåëåíèå, òî ïðèìåíÿòü ïàðàìåòðû òîëüêî ê âûäåëåííîìó ôðàãìåíòó.

ïîäñêàæèòå


êàê ñäåëàòü çàãðóçêó DBF ôàéëà
è âûïîëíèòü ïðîâåðêó íà ïðàâåëüíîñòü çàïîëíåíûõ ïîëåé


ïëèççç