Artykuł: Notatnik w Delphi - 4informatic.com portal dla informatyka Page 1 of 3

Nawigacja

Notatnik w Delphi

Logowanie

Nazwa Użytkownika

Portal

Strona Główna

Artykuły

Hasło

Download

FAQ

Forum

Zapamiętaj mnie

Linki

Kontakt

Galeria

Loguj

Szukaj

Rejestracja

Usługi

Zapomniane hasło?

Downloader

PageRank system

Serwery GG

Reklama

Szpieg GG

Użytkowników

Online

Gości Online: 1

Brak Użytkowników Online

Zarejestrowanych

Informatyka

Użytkowników: 163

Dlaczego warto

Najnowszy Użytkownik:

Witam

spróbować u nas?

Elwood848

Zobacz i przekonaj

Dzisiaj opiszę jak można zrobić prosty notatnik przy się sam!

pomocy Delphi Personal Edition.

www.Cosinus.pl/Informatyka

Wątki na Forum

Będę pisał co dać na formę :

Najnowsze Tematy

Zadanie z Asemblera

prosty kalkulator w ...

Dziwny Problem

6x Button (zakładka standard ) : nazwy (Caption) : Problem z kartą GeFo...

Otwórz, Zapisz, Wytnij, Wklej, Kopiuj, Usuń Nielegalne Oprogramo...

Najciekawsze Tematy

Komponent Memo (zakładka Standard) Najlepiej Pytanie do potrze... [13]

Najlepszy windows [10]

było by dodać coś do przewijania więc szukamy w Linki

Assembler - projekt [7]

zakładce Properties opcji Scrollbars i zmieniamy Atak typu DoS:

wartość na ssVertical

[7]

Fo...

Reklamy Google

UBUNTU 7.10

[6]

1x komponent OpenDialog z zakładki Dialogs wasze...

Programy C++

Zaliczenie C++

1x komponent SaveDialog z zakładki Dialogs Delphi Excel

Ostatnie Artykuły

MJPEG Delphi

Funkcje w PASCALU

a teraz KOD:

XLS Delphi

Pętla for

Komputer w Oleju

Wszystko o wirusach

wciskamy F12 i nad : public declarations Sharing

dopisujemy :

Reklama

MyFile : TextFile;

MyText : String;

Następnie klikamy dwa razy na przycisk : Otwórz i wpisujemy tam taki kod :

http://www.4informatic.com/readarticle.php?article_id=2

2008-07-01

Artykuł: Notatnik w Delphi - 4informatic.com portal dla informatyka Page 2 of 3

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;

Teraz klikamy na Zapisz i wpisujemy : 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;

Teraz Kopiuj

procedure TForm1.Button3Click(Sender: TObject); begin

Memo1.CopyToClipboard;

end;

Następnie klikamy w Wklej

procedure TForm1.Button4Click(Sender: TObject); begin

Memo1.PasteFromClipboard;

end;

Teraz w Wytnij

procedure TForm1.Button5Click(Sender: TObject); begin

Memo1.CutToClipboard;

end;

http://www.4informatic.com/readarticle.php?article_id=2

2008-07-01

Artykuł: Notatnik w Delphi - 4informatic.com portal dla informatyka Page 3 of 3

A teraz czas nadszedł na Usuń klikamy dwa razy w przycisk usuń i wklepujemy ten kod procedure TForm1.Button6Click(Sender: TObject); begin

Memo1.SelText := '';

end;

No to by było na tyle

Jeśli ktoś chce zamiecić artykuł na swojej stronie proszę mnie o tym powiadomić !

Wund3r

Dodane przez Drake dnia październik 0 Komentarzy ˇ 158

11 2007 18:07:51

Czytań

Komentarze

Brak komentarzy.

Dodaj komentarz

Zaloguj się, żeby móc dodawać komentarze.

Oceny

Dodawanie ocen dostępne tylko dla zalogowanych Użytkowników.

Proszę się zalogować lub zarejestrować, żeby móc dodawać oceny.

Brak ocen.

Powered by PHP-Fusion © 2003-2006

81728 Unikalnych wizyt http://www.4informatic.com/readarticle.php?article_id=2

2008-07-01