Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Блок схема





Блокнот delphi string integer


Заключение

Данная программа является типичным примером реализации простейших программ созданных для Windows с помощью Delphi.

Достоинством данной программы является ее простота в использовании в наиболее распространенной, на данный момент, операционной системе Windows и то, что при необходимости можно добавить нужные кнопки-функции.

 


 

Список литературы

 

1. Н.Б. Культин - Основы программирования в Delphi 7 - 2007

2. www.delphi-manual.ru

Учебник по Delphi 7 для начинающих

4. Иллюстрированный самоучитель по Delphi 7 для начинаюших

5. Иллюстрированный самоучитель по Delphi 7 для профессионалов

6. Учебник для продвинутых по Delphi 7

 


 

Приложение

Листинг программы

 

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, XPMan, ToolWin, Menus, StdCtrls, ImgList,Printers;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

File1: TMenuItem;

Exit1: TMenuItem;

N1: TMenuItem;

PrintSetup1: TMenuItem;

Print1: TMenuItem;

N2: TMenuItem;

SaveAs1: TMenuItem;

Save1: TMenuItem;

Open1: TMenuItem;

New1: TMenuItem;

Edit1: TMenuItem;

Find1: TMenuItem;

N4: TMenuItem;

Paste1: TMenuItem;

Copy1: TMenuItem;

Cut1: TMenuItem;

N5: TMenuItem;

Undo1: TMenuItem;

View1: TMenuItem;

Font1: TMenuItem;

Help1: TMenuItem;

About1: TMenuItem;

ToolBar1: TToolBar;

XPManifest1: TXPManifest;

ToolButton1: TToolButton;

ToolButton3: TToolButton;

ToolButton5: TToolButton;

ToolButton7: TToolButton;

ToolButton8: TToolButton;

ToolButton2: TToolButton;

ToolButton4: TToolButton;

ToolButton6: TToolButton;

ToolButton9: TToolButton;

ToolButton10: TToolButton;

ToolButton11: TToolButton;

ImageList1: TImageList;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

Memo1: TMemo;

FontDialog1: TFontDialog;

FindDialog1: TFindDialog;

PrinterSetupDialog1: TPrinterSetupDialog;

ReplaceDialog1: TReplaceDialog;

N3: TMenuItem;

FindDialog2: TFindDialog;

procedure Exit1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure New1Click(Sender: TObject);

procedure Open1Click(Sender: TObject);

procedure Save1Click(Sender: TObject);

procedure Print1Click(Sender: TObject);

procedure PrintSetup1Click(Sender: TObject);

procedure Undo1Click(Sender: TObject);

procedure Cut1Click(Sender: TObject);

procedure Copy1Click(Sender: TObject);

procedure Paste1Click(Sender: TObject);

procedure Font1Click(Sender: TObject);

procedure About1Click(Sender: TObject);

procedure FindDialog1Find(Sender: TObject);

procedure Find1Click(Sender: TObject);

procedure SaveAs1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure ReplaceDialog1Replace(Sender: TObject);

procedure FindDialog2Find(Sender: TObject);

procedure Memo1DblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

FFileName:string;

PrgName:string;

FSelPos: integer;

 

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);

begin

close;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

Caption:='Блокнот';

PrgName:=Caption;

end;

 

procedure TForm1.New1Click(Sender: TObject);

begin

Memo1.Lines.Clear;

FFileName:='Новый Текстовый документ.txt';

Caption:=PrgName +' - '+FFileName;

end;

 

procedure TForm1.Open1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

FFileName:=OpenDialog1.FileName;

Caption:=PrgName+' - '+ FFileName;

end;

end;


 

procedure TForm1.Save1Click(Sender: TObject);

begin

Memo1.Lines.SaveToFile(FFileName);

end;

 

procedure TForm1.Print1Click(Sender: TObject);

var Line: Integer;

PrintText: System.Text;

begin

AssignPrn(PrintText);

Rewrite(PrintText);

Printer.Canvas.Font:= Memo1.Font;

 

for Line:= 0 to Memo1.Lines.Count - 1 do

Writeln(PrintText, Memo1.Lines[Line]);

 

System.Close(PrintText);

end;

 

procedure TForm1.PrintSetup1Click(Sender: TObject);

begin

PrinterSetupDialog1.Execute;

end;

 

procedure TForm1.Undo1Click(Sender: TObject);

begin

Memo1.Undo;

end;

 

procedure TForm1.Cut1Click(Sender: TObject);

begin

Memo1.CutToClipboard;

end;

 

procedure TForm1.Copy1Click(Sender: TObject);

begin

Memo1.CopyToClipboard;

end;

 

procedure TForm1.Paste1Click(Sender: TObject);

begin

Memo1.PasteFromClipboard;

end;

 

procedure TForm1.Font1Click(Sender: TObject);

begin

if FontDialog1.Execute then Memo1.Font:=FontDialog1.Font;

end;

 

procedure TForm1.About1Click(Sender: TObject);

begin

Form2.Visible:=true;

Form2.Caption:='О программе';

Form2.Label1.Caption:='Программа Блокнот';

end;

 

procedure TForm1.FindDialog1Find(Sender: TObject);

var

S: string;

startpos: integer;

begin

with TFindDialog(Sender) do

begin

{If the stored position is 0 this cannot be a find next. }

if FSelPos = 0 then

Options:= Options - [frFindNext];

 

{ Figure out where to start the search and get the corresponding

text from the memo. }

if frfindNext in Options then

begin

{ This is a find next, start after the end of the last found word. }

StartPos:= FSelPos + Length(Findtext);

S:= Copy(Memo1.Lines.Text, StartPos, MaxInt);

end

else

begin

{ This is a find first, start at the, well, start. }

S:= Memo1.Lines.Text;

StartPos:= 1;

end;

{ Perform a global case-sensitive search for FindText in S }

FSelPos:= Pos(FindText, S);

if FSelPos > 0 then

begin

{ Found something, correct position for the location of the start

of search. }

FSelPos:= FSelPos + StartPos - 1;

Memo1.SelStart:= FSelPos - 1;

Memo1.SelLength:= Length(FindText);

Memo1.SetFocus;

end

else

begin

{ No joy, show a message. }

if frfindNext in Options then

S:= Concat('Не удается найти "', FindText,

'" в тексте.')

else

S:= Concat('Запрашиваемое слово не наидено "', FindText, '" в тексте.');

MessageDlg(S, mtError, [mbOK], 0);

end;

end;

end;

 

 

procedure TForm1.Find1Click(Sender: TObject);

begin

FSelPos:= 0;

FindDialog1.Execute;

end;

 

procedure TForm1.SaveAs1Click(Sender: TObject);

begin

if SaveDialog1. Execute then

begin

memo1.Lines.savetofile(savedialog1.FileName+

'.txt');caption:=savedialog1.filename;

end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

ReplaceDialog1.Execute;

end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

begin

with Sender as TReplaceDialog do

while True do

begin

if Memo1.SelText <> FindText then

FindDialog2Find(Sender);

if Memo1.SelLength = 0 then

Break;

Memo1.SelText:= ReplaceText;

if not (frReplaceAll in Options) then

Break;

end;

end;

procedure TForm1.FindDialog2Find(Sender: TObject);

var

Buff, P, FT: PChar;

BuffLen: Word;

begin

with Sender as TFindDialog do

begin

GetMem(FT, Length(FindText) + 1);

StrPCopy(FT, FindText);

BuffLen:= Memo1.GetTextLen + 1;

GetMem(Buff, BuffLen);

Memo1.GetTextBuf(Buff, BuffLen);

P:= Buff + Memo1.SelStart + Memo1.SelLength;

P:= StrPos(P, FT);

if P = nil then

MessageBeep(0)

else

begin

Memo1.SelStart:= P - Buff;

Memo1.SelLength:= Length(FindText);

end;

FreeMem(FT, Length(FindText) + 1);

FreeMem(Buff, BuffLen);

end;

end;

procedure TForm1.Memo1DblClick(Sender: TObject);

var

Line: Integer;

begin

with (Sender as TMemo) do

begin

Line:= Perform(EM_LINEFROMCHAR, SelStart, 0);

SelStart:= Perform(EM_LINEINDEX, Line, 0);

SelLength:= Length(Lines[Line]);

end;

end;

end.

 

Date: 2015-07-25; view: 377; Нарушение авторских прав; Помощь в написании работы --> СЮДА...



mydocx.ru - 2015-2024 year. (0.006 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию