Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Vladimir1234523
0 / 0 / 0
Регистрация: 01.12.2014
Сообщений: 2
#1

Задачи - Delphi

14.12.2014, 19:38. Просмотров 356. Ответов 0
Метки нет (Все метки)

Помогите доделать задачи, связанные с темой "файлы". В особенности со второй и третей задачами, там не могу нормально подключить блокнот.

Задача 1.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Image1: TImage;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  image1.Picture.loadfromfile('1.jpg');
 
end;
 
procedure TForm1.Image1Click(Sender: TObject);
begin
  if opendialog1.execute then
  image1.Picture.loadfromfile(opendialog1.FileName);
end;
 
end.
Задача 2.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    MainMenu1: TMainMenu;
    Memo1: TMemo;
    MenuItem1: TMenuItem;
    MenuItem3: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1; f:textfile;
  s:string;
  fname:string;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.MenuItem1Click(Sender: TObject);
begin
if opendialog1.execute then begin
  assignfile(f,opendialog1.FileName);
  reset(f);
  while not eof(f) do begin
  readln(f,s);
  memo1.Text:=memo1.text+s+#13;
  end;
  end;
  closefile(f);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 memo1.Lines.add(edit1.text);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 edit1.text:='';
end;
 
procedure TForm1.MenuItem3Click(Sender: TObject);
begin
  fname:='text1.txt';
  savedialog1.filename:=fname;
  if savedialog1.execute then
    fname:=savedialog1.FileName;
  memo1.lines.savetofile(fname);
  end;
 
end.
Задача 3.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
  var f: TextFile;
  ch: Char;
begin
   if opendialog1.execute then
 
   begin
   AssignFile (f, opendialog1.filename);
   {$I-}
   Reset(f);
   {$I+}
   if IOResult=0 then begin
   while not Eof(f) do
   begin
   Read (f, ch);
   Memo1.Text:=Memo1.Text+ch;
   end;
   CloseFile(f);
   end;
end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
  Var f: TextFile;
 Begin
 AssignFile(f, opendialog1.filename);
 Append (f);
 Writeln (f);
 CloseFile (f);
 memo1.Lines.Add(Edit1.Text);
 Edit1.Text:='';
 End;
 
end.
0
Вложения
Тип файла: docx Практическая работа 10 файлы.docx (28.4 Кб, 1 просмотров)
Тип файла: rar Новая папка.rar (9.23 Мб, 1 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2014, 19:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Задачи (Delphi):

задачи - Delphi
1 Розробити прикладне застосування в якому на формі необхідно розмістити три програми, що дозволяють обчислювати площі трьох геометричних...

Задачи - Delphi
1.Вводится 15 латинских букв.Распечатать их в порядке, обртаным введению, если буква f встретилась в начальной последовательности парное...

Задачи - Delphi
Здравствуйте! Напишите (или перепишите или скопируйте) несколько задач Delphi. Именно Delphi, не Pascal. Иммею ввиду что нужно для работы с...

Задачи - Delphi
Delphi Помогите пожалуйста решить. 1.Введите с клавиатуры пять целочисленных элементов массива X. Выведите на экран значения корней и...

Задачи - Delphi
1.Дано 2 число. Верно ли, что их произведение двухзначное число 2. Дано натуральное число. Верно ли, что оно оканчивается нечетной цифрой...

Задачи - Delphi
Нужно написать в application console следующие задачи: 1) Дано вещественное число R и массив размера N. Найти элемент массива, который...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2014, 19:38
Привет! Вот еще темы с ответами:

Задачи - Delphi
1.даны 2 числа.найти среднее арифметическое кубов этих чисел 2.дны числа а и в.Если числа равны, то каждое число удвоить,а если не равны,...

Задачи - Delphi
помогите решить пожалуйста

Задачи - Delphi
Сам делаю лабы По Win32 C++, не успеваю... у кого есть время напишите коды програм пожалуйста, завтра надо сдать...!! Экзаменационный...

2 задачи - Delphi
Здравствуйте. Выручите пожалуйста) 1. Дан массив и число х. Найти два соседних числа, среднее арифметическое которых ближе к х. 2. В...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru