Tutorial: Piszemy notatnik(szczegółowo opisane)

[Bezel21]

Cześć, pomyślałem, że napiszę dla początkujących programistów taki kurs/pomoc w pisaniu notatnika w Delphi.
Kod szczegółowo omówię + w kodzie znajdują się komentarze. Wiem, są różne tutoriale jak napisać notatnik, ale mój
jest całkowicie omówiony, więc będzie można jeszcze z nim pokombinować.
Więc, zacznijmy od stworzenia Menu rozwijanego za pomocą komponentu MainMenu, który znajduje się w zakładce
Standard. Wykonaj je tak, jak na zdjęciach.





Właściwość Memo1, w Object Inspectorze Align ustaw na alClient... Dzięki temu Memo będzie się przystosowywać do
rozmiarów formy.
Teraz przejdźmy znowu do komponentu Mainmenu... Kliknij na formie Plik/Nowy i wypełnij kod następująco:

Memo1.Clear; //czyści komponent Memo

Teraz Plik/Otwórz...:

pomiędzy begin a end wpisz:

If opendialog1.execute then********//jeżeli opendialog się wyswietlil, to...
memo1.lines.loadfromfile(Opendialog1.filename); //zapisz w podanej sciezce tresc memo.

Teraz znów Plik/Zapisz jako:

{wyswietlenie wiadomosci, jezeli nacisnieto tak, to...}
if Application.MessageBox('Czy zapisac plik?','Zapisywanie...',MB_YESNO + MB_ICONQUESTION)= IDYES then
begin
savedialog1.execute;******** //wyswietl savedialog...
memo1.Lines.SaveToFile(Savedialog1.filename + '.txt')** //zapisz na dysku tresc memo1...

I w końcu Plik/Zakończ:

application.Terminate; //zakończenie aplikacji.

Zakładkę Plik, mamy już z głowy, teraz Edycja/kopiuj:

memo1.copytoclipboard; //kopiowanie zaznaczonego tekstu...

Edycja/wklej:

memo1.PasteFromClipboard; //wklejanie zaznaczonego tekstu...

Edycja/wytnij:

memo1.CutToClipboard; //wycinanie zaznaczonego tekstu...

OK, prawie gotowe, teraz:
W Object Inspectorze Savedialogu kliknij na Filter:

pole Filter Name uzupełnij następująco:

*txt

A pole Filter uzupełnij tak:

Pliki formatu .txt...

Tak też samo zrób z Opendialogiem...

No i nasz notatnik gotowy. Oto cały kod:

unit Unit1;

interface

uses
**Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
**Dialogs, StdCtrls, Menus;

type
**TForm1 = class(TForm)
****Button1: TButton;
****OpenDialog1: TOpenDialog;
****MainMenu1: TMainMenu;
****Plik1: TMenuItem;
****Nowy1: TMenuItem;
****Zakoncz: TMenuItem;
****Zapiszjako1: TMenuItem;
****Otwrz1: TMenuItem;
****Edycja1: TMenuItem;
****Kopiuj1: TMenuItem;
****Wklej1: TMenuItem;
****Wytnij1: TMenuItem;
****Memo1: TMemo;
****SaveDialog1: TSaveDialog;
****procedure Otwrz1Click(Sender: TObject);
****procedure Zapiszjako1Click(Sender: TObject);
****procedure Kopiuj1Click(Sender: TObject);
****procedure Wklej1Click(Sender: TObject);
****procedure Wytnij1Click(Sender: TObject);
****procedure Nowy1Click(Sender: TObject);
****procedure ZakonczClick(Sender: TObject);
**private
****{ Private declarations }
**public
****{ Public declarations }
**end;

var
**Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Otwrz1Click(Sender: TObject);
begin
If opendialog1.execute then********//jeżeli opendialog się wyswietlil, to...
memo1.lines.loadfromfile(Opendialog1.filename); //zapisz w podanej sciezce tresc memo.
end;

procedure TForm1.Zapiszjako1Click(Sender: TObject);
begin
{wyswietlenie wiadomosci, jezeli nacisnieto tak, to...}
if Application.MessageBox('Czy zapisac plik?','Zapisywanie...',MB_YESNO + MB_ICONQUESTION)= IDYES then
begin
savedialog1.execute;******** //wyswietl savedialog...
memo1.Lines.SaveToFile(Savedialog1.filename + '.txt')** //zapisz na dysku tresc memo1...
end;
end;

procedure TForm1.Kopiuj1Click(Sender: TObject);
begin
memo1.copytoclipboard; //kopiowanie zaznaczonego tekstu...
end;

procedure TForm1.Wklej1Click(Sender: TObject);
begin
memo1.PasteFromClipboard; //wklejanie zaznaczonego tekstu...
end;

procedure TForm1.Wytnij1Click(Sender: TObject);
begin
memo1.CutToClipboard; //wycinanie zaznaczonego tekstu...
end;

procedure TForm1.Nowy1Click(Sender: TObject);
begin
Memo1.Clear; //czyści komponent Memo
end;

procedure TForm1.Zapisz1Click(Sender: TObject);
begin
application.Terminate; //zakończenie aplikacji.
end;

procedure TForm1.ZakonczClick(Sender: TObject);
begin
application.Terminate; //zakończenie aplikacji.
end;

end.

Doszukaliście się błędów? Piszcie

[0wn3r]

http://www.haker.com.pl/Jak-napisac-prosty...kul-t32954.html :]

Porównaj sobie Być może takie same, ale twój ma ładniejsze GUI.

[Bezel21]

Napisałeś go troszkę w Inny sposób, mój zaś jest dla zielonych w delphi, stąd prostota kodu i gromada tłumaczeń.

[djmentos]

Nieważne jak i po co.
Ważne, że coś nowego. Coś porządnego. Coś po części przydatnego. Coś co można poznać.

A nie kolejny gówno warty trojan.
Więcej takich nam potrzeba.

Od siebie dodam, że jakby to oprzeć na RichEdit było by bardziej funkcjonalne.

[Bezel21]

<div class='quotetop'>CYTAT(djmentos @ 9.09.2008, 13:59) <{POST_SNAPBACK}></div>

Nieważne jak i po co.
Ważne, że coś nowego. Coś porządnego. Coś po części przydatnego. Coś co można poznać.

A nie kolejny gówno warty trojan.
Więcej takich nam potrzeba.

Od siebie dodam, że jakby to oprzeć na RichEdit było by bardziej funkcjonalne. [/b]

Dzięki... artykuł powstał dla początkujących, aby opanowali podstawy najpierw... i sami pisali te swoje trojany, a nie prosili o tutoriale

[0wn3r]

Dobry artykuł Poproś jakiegoś moderatora niech przyklei, żeby sie temat nie zmarnował.

[Bezel21]

<div class='quotetop'>CYTAT(0wn3r @ 9.09.2008, 16:44) <{POST_SNAPBACK}></div>

Dobry artykuł Poproś jakiegoś moderatora niech przyklei, żeby sie temat nie zmarnował.[/b]

Już poprosiłem, nie myślałem, że się komuś spodoba, a o przyklejeniu?
Będę pisał więcej takich artykułów, bo widzę, że warto. Dzięki za uznanie.
Pozdrawiam, Bezel21.

[Master23]

A mam jedno pytanie gdy robie Plik/Nowy i daje w OnClick " Memo1.Clear; " I mam takie cos:

&#39;Memo1.Clear;&#39; is not a valid identifier.[/b]

I mam do wyboru OK albo HELP co robie źle??

[Khalt]

A wrzuciłeś na formę Memo1?

[Master23]

Już działa Poprostu nie wpisywalem tego tam gdzie trzeba

Fajny art ;p

A mógłby ktoś powiedziec jak zrobic okno About ???

[djmentos]

Prosze:
http://www.krolnet.pl/content/view/12/12/

[brojek2]

Teraz Plik/Otwórz...:

pomiędzy begin a end wpisz:

Kod:
If opendialog1.execute then********//jeżeli opendialog się wyswietlil, to...
memo1.lines.loadfromfile(Opendialog1.filename); //zapisz w podanej sciezce tresc memo.
Teraz znów Plik/Zapisz jako:

Kod:
{wyswietlenie wiadomosci, jezeli nacisnieto tak, to...}
if Application.MessageBox(&#39;Czy zapisac plik?&#39;,&#39;Zapisywanie...&#39;,MB_YESNO + MB_ICONQUESTION)= IDYES then
begin
savedialog1.execute;******** //wyswietl savedialog...
memo1.Lines.SaveToFile(Savedialog1.filename + &#39;.txt&#39** //zapisz na dysku tresc memo1...


Przy tym wywala mi błąd proszę o pomoc!

Gdzie to się znajduje? :

OK, prawie gotowe, teraz:
W Object Inspectorze Savedialogu kliknij na Filter