Цитата:
Сообщение от Григорий Т.
...Ещё один детский вопрос. Как разбить файл программы (у меня 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.
Приблизительно что-то типа этого. В сетке полно инфы на эту тему.