> Доброго здравия Alexander Kharitonov.

 Однажды 29 Nov 97 14:28, Alexander Kharitonov писал к All, а я вмешался:
 AK> Есть у кого-нибудь пpоцедуpа аналогичная Val, но с возможностью
 AK> конвеpтиpовать числа в Longint? Поделитесь плз.

  Если тебя по какой-то причине не устраивает процедура VAL
из модуля SYSTEM, то можно сварганить и свою собственную,
которая, правда, будет помедленнее, чем системная VAL:

Function Val(s:string):Longint;
var i:byte; l:longint;
begin
  l:=0;
  for i:=1 to length(s) do l:=l*10+byte(s[i])-48;
  Val:=l;
end;

> Мои наилучшие пожелания.
ћ Если не можешь понять программу, то наверняка стоит напиться до зеленых
  человечков. И эта сверхцивилизация поможет тебе разобраться. :)

--- [Hedgehog House] Phone: +7-3422-622044  Work Time: 00:00 - 07:30 Local
 * Origin: Это не GoldEd. Это примочка к Д00Му для написания писем. (2:5054/26)