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