Показать сообщение отдельно
  #10  
Старый 18.02.2013, 04:10
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от Григорий Т.
...Ещё один детский вопрос. Как разбить файл программы (у меня Unit1) на несколько файлов, чтобы легче было редактировать?
Пока УКи модераторы не видят (как ни как нарушение правил форума: одна тема - один поток :-), шепотом можно сказать - создаётся новый юнит (напр. unit2, посредством выбора в меню File -> New -> Unit) появится такая заготовка:
Код:
unit Unit2;

interface

implementation

end.
где после секции interface идёт uses, куда прописываются все нужные модули (вариант - сюда же или после секции implementation подключаем и напр. Unit1, если к нему будет обращение из нового юнита). После uses идут глобальные переменные посредством var, заголовки процедур и функций из нового модуля, так они будут видны из первого, при условии подключения в нём оного (так же "пропиской" в uses unit1). Сам код процедур идёт после секции implementation:
Код:
unit Unit2;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes; // , Unit1; - Можно так

 function Some1(ds: string): string;
 procedure Some2(ds: string);

var
  i : Integer;
  str : string;

implementation
uses 
 Unit1; // Мона и так

function Some1(ds: string): string;
begin
str:= ds;
Result:= str;
end;
 
procedure Some2(ds: string);
begin
i:= 50;

// Обращение к форме из первого юнита:
Form1.Caption:= ds + ' ' + IntToStr(i); 
end;

end.
Приблизительно что-то типа этого. В сетке полно инфы на эту тему.
Ответить с цитированием