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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.08.2010, 14:58   #1
tonatas
Пользователь
 
Регистрация: 12.08.2010
Сообщений: 20
Печаль Создание и подсоединение собственных модулей

народ помогите! Создал модуль:

Код:
unit Code;

interface
uses
        Windows, StdCtrls;
procedure CodePlus(cpMemo:TMemo; cpCodeNumber:byte);
implementation

procedure CodePlus(cpMemo:TMemo; cpCodeNumber:byte);//Процедур, которая шифрует текст. Первый параметр имя TMemo, второй число.
var s:string;
    i:integer;
begin
s:=cpMemo.Text;//Переносим текст TMemo в переменную
for i:=1 to Length(s) do//Кодируем
s[i]:=Chr(Ord(s[i])+cpCodeNumber);
cpMemo.Text:=s;//Из переменной переносим в TMemo уже закодированый текст
end;

end.
вот основной модуль самой программы:

Код:
unit Unit1;
interface

uses
        Windows, Messages, SysUtils, Classes, Graphics, Controls,
        Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,Code;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
CodePlus(Memo1,5);//Вызывается процедура
end;

end.
модуль проекта:

Код:
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
Я вроди бы всё правельно сделал, но у меня компилятор выдаёт ошибку:
[Fatal Error] Unit1.pas(6): File not found: 'Code.dcu'

Народ что делать?!!!!

From Stilet: Что делать? Пост правильно форматировать. Код оформлять спецтегом по кнопке # это что так сложно? Или школота правил не читает?!

Последний раз редактировалось Stilet; 26.08.2010 в 15:26.
tonatas вне форума Ответить с цитированием
Старый 26.08.2010, 15:07   #2
GunSmoker
Старожил
 
Регистрация: 13.08.2009
Сообщений: 2,581
По умолчанию

Где лежит Code.pas и где лежит Project1.dpr? В каких папках?

Чтобы компилятор мог найти Code.pas, должно быть выполнено хотя бы одно условие:
1). Code.pas лежит в той же папке, что и проект.
2). Code.pas лежит в одном из пути поиска Search/Library path либо проекта, либо среды (IDE).
3). Code.pas перечислен в uses dpr-файла с указанием полного или относительного пути (как это сделано для Unit1).
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
GunSmoker вне форума Ответить с цитированием
Старый 26.08.2010, 15:18   #3
dmitriegorovih
Ещё не
Форумчанин
 
Аватар для dmitriegorovih
 
Регистрация: 04.01.2010
Сообщений: 517
По умолчанию

Вот держи на закладке стандарт появиться компонент его и используй да и как уже сказал
Цитата:
Сообщение от GunSmoker
Code.pas лежит в той же папке, что и проект.
Вложения
Тип файла: rar Code.rar (2.3 Кб, 8 просмотров)
Воображение важнее, чем знания. (Albert Einstein)
dmitriegorovih вне форума Ответить с цитированием
Старый 26.08.2010, 16:26   #4
tonatas
Пользователь
 
Регистрация: 12.08.2010
Сообщений: 20
Радость

GunSmoker спасибо!!!
tonatas вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
создание собственных сегментов памяти Майкл18 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 7 30.11.2009 02:19
Создание модулей в Pascal ABC Desha Паскаль, Turbo Pascal, PascalABC.NET 5 25.10.2009 17:01
Создание собственных компонентов D7 postal2 Помощь студентам 4 21.08.2009 09:07
Создание и подключение модулей Claster Общие вопросы Delphi 4 28.02.2009 12:14
Создание собственных компонент shepelin Компоненты Delphi 5 22.12.2007 22:14