24.06.2012, 01:26
|
 |
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
Это:
Цитата:
function x000000145(const x000000145_1:string):integer;var x000000146:integer;
begin val(x000000145_1,result,x000000146);if x000000146<>0then result:=0;end;
|
и так далее |