Prosty edytor tekstowy

Tutaj nie ma za wiele do tłumaczenia, chyba każdy wie co to edytor tekstowy.

-----Co nam będzie potrzebne do pracy???-----

Środowisko programistyczne (kompilator) Delphi 7 Personal Edition. (www.borland.pl)

-----No to do roboty!!!!-----

1) Wrzucamy na formę 2 buttony z zakładki Standard (Caption : Otwórz, Zapisz)
2) Wrzucamy na formę 4 buttony z zakładki Standard (Caption : Wytnij, Wklej, Kopiuj, Usuń)
3) Wrzucamy na formę komponent Memo z zakładki Standard (w Memo szukamy w zakładce Properties : Scrollbars i zmieniamy wartość na ssVertical)
4) Wrzucamy na formę komponent OpenDialog z zakładki Dialogs
5) Wrzucamy na formę komponent SaveDialog z zakładki Dialogs

Ustawiamy wszystko według własnego uznania.
Mniej więcej powinno to tak wyglądać :

http://img526.imageshack.us/img526/623/21323312al5.jpg

-----Czas na kod!!!-----
Pomiędzy formą, a kodem możemy się przełączać naciskając przycisk F12.

--- Nad public declarations dopisujemy :

MyFile : TextFile;
MyText : String;



--- Klikamy 2x na przycisk "Otwórz" i wklepujemy kod :

procedure TForm1.Button1Click(Sender: TObject);
var AfterD : String;
        a : integer;
begin
 
Memo1.Clear;
AfterD := '';
 
if OpenDialog1.Execute then
        begin
        AssignFile(MyFile, OpenDialog1.FileName);
        Reset(MyFile);
 
        while not eof(MyFile) do
                begin
                    Readln(MyFile, MyText);
                    Memo1.Lines.Add(MyText);
                end;
 
        CloseFile(MyFile);
        end;
end;
 


--- Klikamy 2x na przycisk "Zapisz" i wklepujemy kod :

procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
        begin
        AssignFile(MyFile, SaveDialog1.FileName);
        Rewrite(MyFile);
        Writeln(Myfile,Memo1.Lines.GetText);
 
        CloseFile(MyFile);
 
        end;
 
end;



--- Klikamy 2x na przycisk "Kopiuj" i wklepujemy kod :

procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;



--- Klikamy 2x na przycisk "Wklej" i wklepujemy kod :

procedure TForm1.Button4Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;



--- Klikamy 2x na przycisk "Wytnij" i wklepujemy kod :

procedure TForm1.Button5Click(Sender: TObject);
begin
Memo1.CutToClipboard;
end;



--- Klikamy 2x na przycisk "Usuń" i wklepujemy kod :

procedure TForm1.Button6Click(Sender: TObject);
begin
Memo1.SelText := '';
end;
 

No i to by było chyba na tyle!!!

Nie będę dawał źródła, tym razem sami sobie poradźcie :]

Program możecie udoskonalać jak wam się podoba, zmienić nazwę, modyfikować źródło itd.
Jeśli ktoś chce umieścić ten artykuł na swojej stronie, wystarczy mi wysłać PM i mnie o tym poinformować.

Jeśli ktoś wie mało o Delphi i chciałby się więcej nauczyć, podaje parę linków, które mogą się przydać :

http://www.4programmers.net
http://www.binboy.sphere.pl/
http://www.ofkurs.kgb.pl/
http://www.haxite.org/
http://www.hackme.pl/news.html
http://www.4programmers.net/delphi/kompendium

Życzę miłej nauki!!! ;)

Kategoria: Delphi » Gotowce
Facebook
4programmers.net