Код

function Proc1Len : Cardinal; begin Result := Cardinal(@Proc1Len); Dec (Result, Cardinal(@Proc1)); end;

Я бы не стал так писать! У меня часто бывает, что операции с Result оканчиваются интернал еррором! т.е. по возможности надо пользовать доп. переменные и только по концухе Result:=....
Может я и ошибаюсь, но это ИМХО!

Цитата

Может я и ошибаюсь, но это ИМХО!

И очень глубоко (прошу не рассматривать как наезд). Дело в том, что Result, это ни что иное как локальная переменная, содержимое которой возвращается как результат функции.
Сам я очень часто использую Result как локальную переменную. Вот пару примеров из моей библиотеки, которая работает у меня уже несколько лет:

Код

function RublesToText (N :Currency) : String; begin  Result := FormatFloat('.00',N);  Result := Copy(Result,Pos('.',Result)+1,2);  Result := Format('%s %s %s',[                    NumberToText(N,tgMale,'рублей','рубль','рубля'),                    Result,                    Trail(StrToInt(Result),'копеек','копейка','копейки')                    ]);  Result[1] := AnsiUpcase(Result[1]); end;

это совсем просто.

Код

function IndexOfStr (const S :String; Strings: array of string; const CaseSensitive: Boolean=True): Integer; // Возвращает индекс строки S в массиве Strings. Если строка не найдена // возвращает -1. Первая строка имеет индекс 0. Если CaseSensitive равно True // то проверяется точное совпадение, иначе регистр символов игнорируется. begin  if CaseSensitive then begin    for Result := Low(Strings) to High(Strings) do      if S = Strings[Result] then Exit;    end  else begin    for Result := Low(Strings) to High(Strings) do      if awCompareText(S,Strings[Result]) = 0 then Exit;  end;  Result := -1; end;

тут посложнее.
Ну и из совсем старых

Код

function CenterCh(const S : string; Ch : Char; Len : Integer) : string; {-Return a string centered in a string of Ch with specified width} var SLen : Integer; begin  Result := S;  SLen := Length(S);  if Len <= SLen then  Exit;  SetLength(Result,Len);  FillChar(Result[1], Len, Ch);  Move(S[1], Result[Succ((Len-SLen) shr 1)], SLen); end;

Так что не сомневайтесь, а смело используйте.

Frikazoid, даже сам Borland частенько юзает Result как обычную переменную...
Загляни в SysUtils или StrUtils...
Вот пример: (из StrUtils)

Цитата

function SoundexWord(const AText: string): Word; var   LResult: string; begin   LResult := Soundex(AText, 4);   Result := Ord(LResult[1]) - Ord('A');   Result := Result * 26 + StrToInt(LResult[2]);   Result := Result * 7 + StrToInt(LResult[3]);   Result := Result * 7 + StrToInt(LResult[4]); end;

Сори перепутал с паскалем!

Цитата

Ещё можно создавать переменные следующего вида integer:string; Тоесть давать имена переменным типа iteger, write и т.д.

Нельзя использовать в качестве имен зарезервированные слова типа case, string, короче которые жирным пишутся.
Про типы: интересно, почему string - зарезервированное слово, а byte, integer, word, boolean, real, pointer и др. типы - нет ?

Цитата

Сори перепутал с паскалем!

Дык в паскале переменной Result небыло, а жаль, очень не хватало.

Цитата

интересно, почему string - зарезервированное слово, а byte, integer, word, boolean, real, pointer и др. типы - нет ?

Каждый раз, когда смотрю на жирный стринг, об этом думаю.

Цитата(December @ 14.1.2004, 20:21)

Цитата интересно, почему string - зарезервированное слово, а byte, integer, word, boolean, real, pointer и др. типы - нет ? Каждый раз, когда смотрю на жирный стринг, об этом думаю.

Аналогично... было бы круто если бы можно было писать:

Код

var  var1: string of Int64;

может это и было в планах у Борланд?

Цитата(cully @ 14.1.2004, 23:31)

Цитата(December @ 14.1.2004, 20:21) Цитата интересно, почему string - зарезервированное слово, а byte, integer, word, boolean, real, pointer и др. типы - нет ? Каждый раз, когда смотрю на жирный стринг, об этом думаю. Аналогично... было бы круто если бы можно было писать: Код var  var1: string of Int64; может это и было в планах у Борланд?

cully, вот ты почти и ответил... Integer и др. типы - простые типы, ничего кроме имени типа не надо указывать. А у стринга можно еще длину указывать...

Цитата

МРак, интересно, что приходится тут объяснять, как же получился такой код... Только когда я тебе расскажу смысл кода, ты мне скажешь, чем же это спасает ситуацию... Смысл в том, что мне надо вычислить ТОЧНЫЙ размер кода процедуры Proc1. Первоначальный вариант: Код procedure Proc1; begin ....... end; function Proc1Len : Cardinal; begin  Result := Cardinal(@Proc1Len) - Cardinal(@Proc1); end; Этот способ мог давать погрешность до 3 байт, т.к. начало тел процедур выравнено по 4-байтной границе.

Остальные извращения с инструментом не предназначенным для системного программирования покипаны.

Всего пара глупых вопросов
1. На кой его знать точно? С чего вдруг погрешность от выравнивания стала критична?
2. На кой это нужно определять в рантайме?

2. На кой это нужно определять в рантайме? [/QUOTE]

Цитата

2. На кой это нужно определять в рантайме?

На той, что при компиляции никак не узнать размер. А если вначале засунуть это в константу, то будет не то, т.к. эту процедуру я меняю часто, и каждый раз переузнавать размер как-то в лом.

Цитата

Всего пара глупых вопросов 1. На кой его знать точно? С чего вдруг погрешность от выравнивания стала критична?

Мрак, как видно, ты и дальше пытаешься лезть в дебри... Вот глупый вопрос - а зачем тебе знать это ?
Разве это что-то изменит ? У меня была такая задача, и всё, неважно, зачем это нужно было. Но это было нужно. Точка.

Цитата

Остальные извращения с инструментом не предназначенным для системного программирования покипаны.

Ну-ну... В книжке, наверное, вычитал словечки "Компилятор", "Оптимизатор", "Системное программирование" ? Продолжай в том же духе.

Цитата

Цитата 2. На кой это нужно определять в рантайме? На той, что при компиляции никак не узнать размер. А если вначале засунуть это в константу, то будет не то, т.к. эту процедуру я меняю часто, и каждый раз переузнавать размер как-то в лом.

Ясно. Про MAP файлы никто не слышал.....

Цитата

Цитата Всего пара глупых вопросов 1. На кой его знать точно? С чего вдруг погрешность от выравнивания стала критична? Мрак, как видно, ты и дальше пытаешься лезть в дебри... Вот глупый вопрос - а зачем тебе знать это ? Разве это что-то изменит ? У меня была такая задача, и всё, неважно, зачем это нужно было. Но это было нужно. Точка.

Тоже ясно. Как ... задача была сформулирована так .... она и решается.
Пропущеный наречия по тексту каждый волен расставить сам.

Вот бы всеж узнать на кой. А то кроме хакерского пальцегнутия и
представить то не могу ЗАЧЕМ в дельфях узнавать размер
процедуры, с точностью до байта, да еще и такими способами.

Цитата

Цитата Остальные извращения с инструментом не предназначенным для системного программирования покипаны. Ну-ну... В книжке, наверное, вычитал словечки "Компилятор", "Оптимизатор", "Системное программирование" ? Продолжай в том же духе.

Ну я хоть читаю... Мне хоть не стыдно за свой код.

Ладно, Мрак, высказывание про map-файлы (и некоторые другие предыдущие моменты) поставило точку в определении твоего истинного уровня знаний:
map-файле Delphi, как ты мог бы заметить, если бы хоть раз их видел в живую, а не в умной книжке, не указан размер процедуры, а указан только адрес... Увы...

Других способов решения моей задачи ты не представил, а только допытываешься до вопроса: зачем это надо ?
Короче продолжать это бессмысленно.