Форум: "Потрепаться";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Вниз

Ну тогда еще задачка:   Найти похожие ветки 

← →
McSimm   (2002-02-06 12:58) [6]

Не даешь .map файл генерить, тогда:

const
ThisUnitName = "MyUnit.pas";

function MyPasFileName: string;
begin
Result := ThisUnitName
end

Нигде условия не нарушил? Все в рамках?
При изменении имени файла константу тоже поменять можно.
:)

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c