1 / 1 / 0
Регистрация: 12.05.2014
Сообщений: 27
1

Оформить в виде dll

16.06.2014, 13:09. Показов 368. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
оформите в dll пожалуйста
Pascal
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
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;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  i,d:integer;
  s:string;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if edit1.text<>'' then button1.enabled:=true else button1.enabled:=false;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  memo2.clear;
  for i:=0 to memo1.lines.count do
  begin
  d:=pos(edit1.text,memo1.lines[i]);
  if d<>0 then memo2.lines.add(memo1.lines[i]);
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  memo1.clear;
end;
 
end.
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2014, 13:09
Ответы с готовыми решениями:

Найти наибольшую сумму, образованную двумя идущими подряд элементами последовательности (оформить в виде DLL)
Вот сама задача:Дана последовательность чисел a1, a2, ..., an. Найдите наибольшую сумму,...

Оформить в виде функции
Пожалуйста помогите решить задачу Оформить в виде функции. общие требования: 1. Оформить...

Оформить в виде функции
Подскажите, как оформить в виде функции код работы с Edit? Например такой: case Key of ...

Оформить код в виде цикла
можно ли с помощью цикла оформить: if ((combobox2.ItemIndex = 0) and (ansipos('file 1:' + ' ' +...

0
16.06.2014, 13:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.06.2014, 13:09
Помогаю со студенческими работами здесь

Оформить решение задачи в виде процедуры
Здравствуйте. Помогите пожалуйста с задачей. Оформить решение задачи(сглаживание матриц) в виде...

Оформить расчет в виде пользовательской процедуры и функции
Нужна помощь в решении задач. 3. оформить расчет в виде пользовательской процедуры и функции....

Вычисления суммы ряда оформить в виде функций, используемые функции и процедуры оформить в виде модуля
Напишите программу полностью, очень прошу! Вычисления оформить в виде функции, используемые функции...

Нахождение min оформить в виде функции, а вычисление и введение ai, bi, ci-в виде процедур
Заданные действительные числа a1, a2, a3; b1, b2, b3; c1, с2, с3. если ...

Оформить отсортированный массив в виде процедуры, а сумму отрицательных чисел - в виде функции
Помогите пожалуйста оформить отсортированный массив, в виде процедуры, а сумму отрицательных чисел...

Оформить в виде функции
Оформить в виде функции на C/C++ решение задачи: b_i = a_i \,- \,(\min_{1\leq j\leq n}a_j) \\i =...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru