uses или INCLUDE ?

Georgy

несколько озадачило то, что если мне нужно вынести какие-то функции в модули, то должно это выглядеть примерно так:

---

//unit lib.pas

procedure Proc(S: string);
begin
ShowMessage(S);
end;

---

program Test;

uses 'Lib.pas';

begin
Proc(S);
end.

---

не лучше бы было реализовать нормальную диретиву INCLUDE, которую можно поместить в нужной точке кода, а не на месте uses? Очень полезной могла бы быть реализация наподобие РНР4 include_once(), которая включает файл в код только один раз.

AlexTZ

Не понял, что именно озадачило? В FS1.0-1.1 uses работал именно как include, в FS1.2 поведение изменилось - теперь оно больше похоже на паскалевский uses. А в 1.3 вообще можно писать модули на разных языках - см. demos\main\samples\cross-lang