Nawigacja

Portal

Strona Główna

Artykuły

Download

FAQ

Forum

Linki

Kontakt

Galeria

Szukaj

Usługi

Downloader

PageRank system

Serwery GG

Szpieg GG

Użytkowników

Online

Gości Online: 1

Brak Użytkowników Online

Zarejestrowanych

Użytkowników: 163

Najnowszy Użytkownik:

Elwood848

Wątki na Forum

Najnowsze Tematy

Zadanie z Asemblera
prosty kalkulator w ...
Dziwny Problem
Problem z kartą GeFo...
Nielegalne Oprogramo...

Najciekawsze Tematy

Pytanie do potrze...

[13]

Najlepszy windows

[10]

Assembler - projekt

[7]

Atak typu DoS:

Fo...

[7]

UBUNTU 7.10

wasze...

[6]

Ostatnie Artykuły

Funkcje w PASCALU
Pętla for
Komputer w Oleju
Wszystko o wirusach
Sharing

Reklama

Notatnik w Delphi

Witam

Dzisiaj opiszę jak można zrobić prosty notatnik przy
pomocy Delphi Personal Edition.

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

6x Button (zakładka standard ) : nazwy (Caption) :
Otwórz, Zapisz, Wytnij, Wklej, Kopiuj, Usuń

Komponent Memo (zakładka Standard) Najlepiej
było by dodać coś do przewijania więc szukamy w
zakładce Properties opcji Scrollbars i zmieniamy
wartość na ssVertical

1x komponent OpenDialog z zakładki Dialogs

1x komponent SaveDialog z zakładki Dialogs

a teraz KOD:

wciskamy F12 i nad : public declarations
dopisujemy :

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

MyFile : TextFile;
MyText : String;

Logowanie

Nazwa Użytkownika

Hasło

Zapamiętaj mnie

Rejestracja

Zapomniane hasło?

Loguj

Reklama

Informatyka
Dlaczego warto
spróbowa

ć

u nas?

Zobacz i przekonaj
si

ę

sam!

www.Cosinus.pl/Informatyka

Linki

Reklamy Google

Programy C++
Zaliczenie C++
Delphi Excel
MJPEG Delphi
XLS Delphi

Page 1 of 3

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

2008-07-01

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

Teraz klikamy na Zapisz i wpisujemy :

Teraz Kopiuj

Następnie klikamy w Wklej

Teraz w Wytnij

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;

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;

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

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

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

Page 2 of 3

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

2008-07-01

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

A teraz czas nadszedł na Usuń klikamy dwa razy w
przycisk usuń i wklepujemy ten kod

No to by było na tyle

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

Wund3r

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

Dodane przez

Drake

dnia październik

11 2007 18:07:51

0 Komentarzy ˇ 158

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

Page 3 of 3

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

2008-07-01

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