Форум: "Потрепаться";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
ВнизНу тогда еще задачка: Найти похожие ветки
← →
vuk (2002-02-06 19:07) [20]Пойдеть? :o)
function GetUnitName : string;
var
s : string;
n, n2 : integer;
begin
Result := "";
{$C+}
try
Assert(false);
except
on e : exception do s := e.Message;
end;
{$C-}
n := Pos("(", s );
if n = 0 then exit;
n2 := Pos( ",", s );
if (n2 <= n ) then exit;
Result := copy( s, n+1, n2-n - 1);
end;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c