Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.04.2009, 08:57   #1
a_n_n_a
Форумчанин
 
Регистрация: 06.03.2009
Сообщений: 157
По умолчанию Библиотека, расширяющая функции для работы с текстом (Delphi)

Здравствуйте=) Есть задачка на создание библиотеки в Delphi, а как эта библиотека вообще выглядит, ума не приложу=) Помогите, пожалуйста, добить последнюю задачу в семестре!!!=)))

Создать библиотеку, расширяющую набор функций для работы с текстом: функция, считающая, сколько раз буква встречается в тексте и преобразующая первые символы слов на кириллице в строчные. Создайте приложение, использующее разработанную библиотеку.
a_n_n_a вне форума Ответить с цитированием
Старый 28.04.2009, 09:10   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Меню File->New->Unit это модуль
Код:
unit Unit1;

interface
// Тут определяем функции
    Function KolvoCimvolaVStroke(Stroka:STRING;Simvol:CHAR):INTEGER;
implementation
// Тут описываем их код
    Function KolvoCimvolaVStroke;
begin
// Тут код функции
end;

end.
А в приложении просто вызываеш функцию:
Код:
Caption:=IntToStr(KolvoCimvolaVStroke('Строка','к'));
Все тоже что и в паскале
Смысл ясен?

Если имеется ввиду ДЛЛ то вот пример ДЛЛки6
Код:
library Project2;

uses
  SysUtils,  
  Classes;

 //********** FUNCTION **********
 function BlaBla:integer;
 begin
   result:=10;
 end;
 //********** END FUNCTION ******

exports BlaBla; // Ее будем вызывать
begin
end.
А вызывать так:
Код:
  unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;
   function BlaBla:integer; external 'project2.dll';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   caption:=inttostr(blabla);
end;

end.
I'm learning to live...

Последний раз редактировалось Stilet; 28.04.2009 в 09:14.
Stilet вне форума Ответить с цитированием
Старый 28.04.2009, 09:41   #3
a_n_n_a
Форумчанин
 
Регистрация: 06.03.2009
Сообщений: 157
По умолчанию

Я сделала через ДЛЛ, но запускаю приложение, появляется ошибка...
"Приложение или библиотека progect2.dll не является образом программы для Windows NT, проверьте назначение установ-го диска"...
a_n_n_a вне форума Ответить с цитированием
Старый 28.04.2009, 10:42   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

ДЛЛ и основную прогу желательно делать в одной проектной группе.
Прикрепи сюда архив с проектом.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание функции для работы с динамическим массивом papoose Помощь студентам 2 19.01.2009 16:55
Библиотека для работы с *.psd-файлами. vinni Мультимедиа в Delphi 3 23.10.2008 20:29
Библиотека для Delphi Irat Помощь студентам 2 12.02.2008 20:13
Функции Win32 API Для работы со звуком FSS Win Api 2 29.01.2008 04:41