Cоздать текстовый редактор, позволяющий с помощью диалоговых окон сохранять и открывать текстовые файлы , а также изменять характеристики шрифта и цвет компонента Memo.

↑

▷ Содержание

Стр 1 из 3Следующая ⇒

Cоздать текстовый редактор, позволяющий с помощью диалоговых окон сохранять и открывать текстовые файлы, а также изменять характеристики шрифта и цвет компонента Memo.

procedure TForm1.Button1Click(Sender: TObject);

begin

with openDialog1 do

begin

if not Execute then exit;

memo1.lines.loadFromFile(FileName)

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

with

saveDialog1 do

begin

if not Execute then exit;

memo1.lines.savetoFile(FileName)

end; end;

procedure TForm1.Button3Click(Sender: TObject);

begin

with fontDialog1 do

begin

if not Execute then exit;

memo1.font:=font;

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

memo1.Clear;

end;

end.

2. ПОЛЯРНАЯ СИСТЕМА КООРДИНАТ R=5*SINFI

TForm1 = class(TForm)

Chart1: TChart;

Button1: TButton;

Series1: TPointSeries;

procedure Button1Click(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i:integer; x,y,v,r:array[1..420] of real;

begin

for i:=1 to 420 do

begin

v[i]:=(i-1)*0.0157;

r[i]:=5*sin(5*v[i]);

x[i]:=r[i]*cos(v[i]);

y[i]:=r[i]*sin(v[i]);

end;

for i:=1 to 420 do

chart1.Series[0].AddXY(x[i],y[i],'',clred);

end;

end.

3. В chart y=sin(kx)

procedure TForm1.trckbr1Change(Sender: TObject);

var x,k:word;

begin

k:=trckbr1.Position;

Form1.Caption:=IntToStr(trckbr1.Position);

for x:= 0 to 10 do

form1.series1.AddXY(x,Sin(k*x));

end;

ТИПЫ ЛИНИЙ

TForm1 = class(TForm)

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);

begin

//

with canvas do

begin

//сплошная

Pen.Style:=psSolid;

moveto(10,20);

lineto(200,20);

textout(250,10,'solid');

//тире

Pen.Style:=psDash;

moveto(10,40);

lineto(200,40);

textout(250,30,'dash');

//черточки

Pen.Style:=psDot;

moveto(10,60);

lineto(200,60);

textout(250,50,'dot');

//пунктир

Pen.Style:=psDashDot;

moveto(10,80);

lineto(200,80);

textout(250,70,'dashdot');

//смешанная

Pen.Style:=psDashDotDot;

moveto(10,100);

lineto(200,100);

textout(250,90,'dashdotdot')

end;

end;

end.

Дерево-каталог в соответствии в соответствии с внутренним дисковым носителем

TForm1 = class(TForm)

DirectoryListBox1: TDirectoryListBox;

DriveComboBox1: TDriveComboBox;

BitBtn1: TBitBtn;

procedure DriveComboBox1Change(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.DriveComboBox1Change(Sender: TObject);

begin

DirectoryListBox1.Drive:=DriveComboBox1.Drive;

end;

end.

ВЫБОР РАЗМЕРА МАТРИЦЫ С ПОМОЩЬЮ КОМПОНЕНТА COMBOBOX. ВВОДА ЗНАЧЕНИЙ ЭЛЕМЕНТОВ МАТРИЦЫ В STRINGGRID. ВЫЧИСЛЕНИЕ СУММЫ ЧЕТНЫХ ЭЛЕМЕНТОВ МАТРИЦЫ

TForm1 = class(TForm)

ComboBox1: TComboBox;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

StringGrid1: TStringGrid;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin

case ComboBox1.ItemIndex of

0:begin for i:=0 to 4 do

for j:=0 to 4 do

StringGrid1.Cells[j,i]:=' ';

stringGrid1.RowCount:=3; StringGrid1.ColCount:=3; end;

1: begin for i:=0 to 4 do

for j:=0 to 4 do

StringGrid1.Cells[j,i]:=' ';

StringGrid1.RowCount:=4; StringGrid1.ColCount:=4; end;

2: begin for i:=0 to 4 do

for j:=0 to 4 do

StringGrid1.Cells[j,i]:=' ';

StringGrid1.RowCount:=5; StringGrid1.ColCount:=5; end;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var i,j,s:integer;

begin

s:=0;

if ComboBox1.ItemIndex=0 then begin

for j:=0 to 2 do

for i:=0 to 2 do

begin

label1.Visible:=true;

label1.Caption:=stringgrid1.Cells[j,i];

if strtoint(label1.Caption) mod 2=0 then

begin

label1.Visible:=true;

s:=s+strtoint(StringGrid1.Cells[j,i]);

label1.Caption:=inttostr(s);

end;

end;

end;

end;

if ComboBox1.ItemIndex=1 then begin

for j:=0 to 3 do

for i:=0 to 3 do

begin

label1.Visible:=true;

label1.Caption:=stringgrid1.Cells[j,i];

if strtoint(label1.Caption) mod 2=0 then

begin

label1.Visible:=true;

s:=s+strtoint(StringGrid1.Cells[j,i]);

label1.Caption:=inttostr(s);

end;

end;

end;

end;

end.

Изменение шрифта при вводе в Edit

TForm1 = class(TForm)

Edit1: TEdit;

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

RadioGroup3: TRadioGroup;

Button1: TButton;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if radiogroup1.ItemIndex=-1

then showmessage('Необходимо выбрать цвет шрифта!')else

case radiogroup1.ItemIndex of

0:begin edit1.Font.Color:=clRed;

end;

1:begin edit1.Font.Color:=clGreen;

end;

2:begin edit1.Font.Color:=clBlue;

end;

3:begin edit1.Font.Color:=clYellow;

end;

4:begin edit1.Font.Color:=clMaroon;

end;

end;

if radiogroup2.ItemIndex=-1

then showmessage('Необходимо выбрать начертание шрифта!')else

case radiogroup2.ItemIndex of

0:begin edit1.Font.Style:= [fsBold];

end;

1:begin edit1.Font.Style:= [fsItalic];

end;

2:begin edit1.Font.Style:= [fsUnderline];

end;

3:begin edit1.Font.Style:= [fsStrikeout];

end;

end;

if radiogroup3.ItemIndex=-1

then showmessage('Необходимо выбрать размер шрифта!')else

case radiogroup3.ItemIndex of

0:begin edit1.Font.Size:=8;

end;

1:begin edit1.Font.Size:=10;

end;

2:begin edit1.Font.Size:=12;

end;

3:begin edit1.Font.Size:=14;

end;

4:begin edit1.Font.Size:=15;

end;

5:begin edit1.Font.Size:=18;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Clear

end;

end.

Изменение шрифтов в многострочном редакторе

TForm1 = class(TForm)

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

RadioGroup3: TRadioGroup;

Button1: TButton;

BitBtn1: TBitBtn;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if radiogroup1.ItemIndex=-1

then showmessage('Необходимо выбрать цвет шрифта!')else

case radiogroup1.ItemIndex of

0:begin memo1.Font.Color:=clRed;

end;

1:begin memo1.Font.Color:=clGreen;

end;

2:begin memo1.Font.Color:=clBlue;

end;

3:begin memo1.Font.Color:=clYellow;

end;

4:begin memo1.Font.Color:=clMaroon;

end;

end;

if radiogroup2.ItemIndex=-1

then showmessage('Необходимо выбрать начертание шрифта!')else

case radiogroup2.ItemIndex of

0:begin memo1.Font.Style:= [fsBold];

end;

1:begin memo1.Font.Style:= [fsItalic];

end;

2:begin memo1.Font.Style:= [fsUnderline];

end;

3:begin memo1.Font.Style:= [fsStrikeout];

end;

end;

if radiogroup3.ItemIndex=-1

then showmessage('Необходимо выбрать размер шрифта!')else

case radiogroup3.ItemIndex of

0:begin memo1.Font.Size:=8;

end;

1:begin memo1.Font.Size:=10;

end;

2:begin memo1.Font.Size:=12;

end;

3:begin memo1.Font.Size:=14;

end;

4:begin memo1.Font.Size:=15;

end;

5:begin memo1.Font.Size:=18;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

memo1.Clear

end;

end.

Узнать имя файла дериктории и сделать ее текущей

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ShellApi, FileCtrl, ExtCtrls, jpeg, Buttons, ComCtrls;

type

TForm1 = class(TForm)

FileListBox1: TFileListBox;

DirectoryListBox1: TDirectoryListBox;

DriveComboBox1: TDriveComboBox;

FileListBox2: TFileListBox;

DirectoryListBox2: TDirectoryListBox;

DriveComboBox2: TDriveComboBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

x,y: string;

iconindex:integer;

implementation

{$R *.dfm}

procedure CopyFiles(const FromFolder: string; const ToFolder: string);

var

Fo: TSHFileOpStruct;

buffer: array[0..4096] of char;

p: pchar;

begin

FillChar(Buffer, sizeof(Buffer), #0);

p:= @buffer;

StrECopy(p, PChar(FromFolder)); //директория, которую мы хотим скопировать

FillChar(Fo, sizeof(Fo), #0);

Fo.Wnd:= Application.Handle;

Fo.wFunc:= FO_COPY;

Fo.pFrom:= @Buffer;

Fo.pTo:= PChar(ToFolder); //куда будет скопирована директория

Fo.fFlags:= 0;

if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then

ShowMessage('File copy process cancelled')

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

CopyFiles(directorylistbox1.Directory,Directorylistbox2.Directory);

Showmessage('Копирование завершено');

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

close;

end;

end.

Скрытый файл сделать видимым. Поменять атрибут.

Windows.setfileattributes(‘c:\test.txt’,fahidden); -сделать скрытым файл

программа

Function filesethidden(filename:string;hid:Boolean):Boolean;

Var flags:integer;

Begin

Result:=false;

Flags:=getfileattributes(pchar(filename));

If hid then flags:=flags or fahidden

Else flags:=flags and not fahidden;

Result:=setfileattributes(pchar(filename),flags);end;

Hid=true сделать файл скрытым

Hid=false сделать файл не скрытым

Поменять атрибуты файла

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

mplementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var fileattr:integer;

begin

fileattr:=filegetattr('C:\Documents and Settings\bista\Рабочий стол\ержан19,04,09.doc');

if fileattr and fareadonly=0 then

filesetattr('C:\Documents and Settings\bista\Рабочий стол\ержан19,04,09.doc',fileattr+fareadonly);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

filesetreadonly('C:\Documents and Settings\bista\Рабочий стол\ержан19,04,09.doc',

false);

end;

end.

Решить квадратное уравнение

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,x,y,d:real;

begin

a:=Strtofloat(Edit1.Text);

b:=Strtofloat(Edit2.Text);

c:=Strtofloat(Edit3.Text);

D:= sqr(b)-4*a*c;

if (D>0) then

begin

x:= (-b+sqrt(D))/(2*a);

y:= (-b-sqrt(D))/(2*a);

Memo1.Lines.Add(floattostr(x));

Memo1.Lines.Add(floattostr(y))

end

else if(D<0) then

Memo1.Lines.Add('нету решений')

else

x:= (-b)/(2*a);

y:= (-b)/(2*a);

Memo1.Lines.Add(floattostr(x));

Memo1.Lines.Add(floattostr(y));

end;

end.

С заголовком Header

procedure TForm1.Button1Click(Sender: TObject);

begin

checklistbox1.HeaderColor:=clgreen;

checklistbox1.HeaderBackgroundColor:=clyellow;

checklistbox1.Header[0]:=true;

checklistbox1.HeaderColor:=clwhite;

checklistbox1.HeaderBackgroundColor:=clred;

checklistbox1.Header[3]:=true;

checklistbox1.Header[6]:=true;

end

33. Вывести на StatusBar фамилия имя студента а также дата время сегодняшние-системную информацию

procedure TForm1.Timer1Timer(Sender: TObject);

begin

statusbar1.Panels[0].Text:=datetostr(now)+' '+timetostr(now)+' '+ +' '+'Разработчик приложения Ташибаева Айнур Ерланкызы';

34. Из полного имени файла, которое содержится в Edit1 формируются 2 строки-одна содержит путь к файлу включая им диска и название каталога а другая его имя и расширение.

Var

Drive:Char;

Dirpart,filepart:string;

Begin

ProcessPath(Edit1.Text,Drive, dirpart,filepart)

Label1.Caption:=Drive+’:’+ dirpath+’’

Label2.Caption:=filepart;

2 способ- с помощью Extract

Var

Filename:string;

Begin

Filename:=edit1.text;

Label1.Caption:=extractfilepath(filename)

Label2.caption:=extractfilename(filename);

35.Cформировать массив стоимость. Результат из этого массива в файл Total.

Var f:textfile;

S:string[16];

i,k,cena,name.kol:integer;

stoim:array[1..10] of integer;

begin

i:=0;

assignfile(f,’mark.txt’)

reset(f);

readln(f);

while not eof(f) do

begin

inc(i);

read(f,s,cena,kol);

stoim[i]:=cena*kol;

readln(f);

end;

k:=I;

close(f);

end.

Cоздать текстовый редактор, позволяющий с помощью диалоговых окон сохранять и открывать текстовые файлы, а также изменять характеристики шрифта и цвет компонента Memo.

procedure TForm1.Button1Click(Sender: TObject);

begin

with openDialog1 do

begin

if not Execute then exit;

memo1.lines.loadFromFile(FileName)

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

with

saveDialog1 do

begin

if not Execute then exit;

memo1.lines.savetoFile(FileName)

end; end;

procedure TForm1.Button3Click(Sender: TObject);

begin

with fontDialog1 do

begin

if not Execute then exit;

memo1.font:=font;

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

memo1.Clear;

end;

end.

2. ПОЛЯРНАЯ СИСТЕМА КООРДИНАТ R=5*SINFI

TForm1 = class(TForm)

Chart1: TChart;

Button1: TButton;

Series1: TPointSeries;

procedure Button1Click(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i:integer; x,y,v,r:array[1..420] of real;

begin

for i:=1 to 420 do

begin

v[i]:=(i-1)*0.0157;

r[i]:=5*sin(5*v[i]);

x[i]:=r[i]*cos(v[i]);

y[i]:=r[i]*sin(v[i]);

end;

for i:=1 to 420 do

chart1.Series[0].AddXY(x[i],y[i],'',clred);

end;

end.

3. В chart y=sin(kx)

procedure TForm1.trckbr1Change(Sender: TObject);

var x,k:word;

begin

k:=trckbr1.Position;

Form1.Caption:=IntToStr(trckbr1.Position);

for x:= 0 to 10 do

form1.series1.AddXY(x,Sin(k*x));

end;

ТИПЫ ЛИНИЙ

TForm1 = class(TForm)

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);

begin

//

with canvas do

begin

//сплошная

Pen.Style:=psSolid;

moveto(10,20);

lineto(200,20);

textout(250,10,'solid');

//тире

Pen.Style:=psDash;

moveto(10,40);

lineto(200,40);

textout(250,30,'dash');

//черточки

Pen.Style:=psDot;

moveto(10,60);

lineto(200,60);

textout(250,50,'dot');

//пунктир

Pen.Style:=psDashDot;

moveto(10,80);

lineto(200,80);

textout(250,70,'dashdot');

//смешанная

Pen.Style:=psDashDotDot;

moveto(10,100);

lineto(200,100);

textout(250,90,'dashdotdot')

end;

end;

end.

Познавательные статьи:



Техника прыжка в длину с разбега

Организация работы процедурного кабинета

Области применения синхронных машин

Оптимизация по Винеру и Калману