Обходимся без SysUtils. Строка <-> число - Примеры - Delphi - Каталог статей - Вирусология, взгляд из Delphi
Понедельник, 05.12.2016, 23:41 Приветствую вас Гость | Группа "Гости" 


Меню сайта

Категории раздела
Вирусология [39]
Статьи о вирусах
Системные [0]
Работа с системой
Примеры [44]
Приёмы, функции, процедуры
Ceти [1]
Работа с интернет
Приколы [5]
Пишем шуточные програмки
Остальное [5]
Всё что не вошло

Администрация
000000 dolphin

Помощь проекту

R106276538945
Z160640024212

Яндекс деньги
410011190732605

Недавние темы

Опрос
Нужно ли ограничение (регистрация) при скачке файлов?
Всего ответов: 343

Главная » Статьи » Delphi » Примеры

Обходимся без SysUtils. Строка <-> число
Для таких же целей есть стандартные функции val и str из pascal, которые перекочевали в delphi, но о наличии которых в нём многие не подозревают. Писал я как-то одну консольную программу, вот и встал лицом к лицу с этой задачей. Для удобства написал аналоги дельфийский функция с использованием val и str.
StrToInt
function StrToInt(s:string):integer;
var
t:integer;
c:integer;
begin
val(s,t,c);
if c=0 then
Result:=t
else
Result:=0;
end;
TryStrToInt
function TryStrToInt(s:string;var i:integer):boolean;
var
t:integer;
c:integer;
begin
val(s,t,c);
if c=0 then begin
i:=t;
Result:=True;
end else
Result:=False;
end;
IntToStr
function IntToStr(i:integer):string;
var
s:string;
begin
Str(i,s);
Result:=s;
end;
Категория: Примеры | Добавил: dolphin (22.01.2013)
Просмотров: 1672 | Рейтинг: 5.0/2

Всего комментариев: 0
avatar
Профиль


Логин:
Пароль:

Поиск

Наша кнопка

Вирусология, взгляд из Delphi



Статистика
HSDN :: Рейтинг сайтов WOlist.ru - каталог качественных сайтов Рунета Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 364
Форум: 1128/7979
Коментариев: 759
Новостей: 27

Статистика пользователей
Всего: 409
За неделю: 2
Вчера: 0
Сегодня: 0
Всего онлайн: 2
Гостей: 2
Пользователей: 0

delfcode.ru © 2008 - 2016 Хостинг от uCoz