Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

Преобразование String в Integer в Turbo Pascal   Найти похожие ветки 

 
KME   (2002-12-21 23:40) [0]

Здравствуйте уважаемые мастера. У меня к вам такой вопрос. Например, у меня есть переменная S типа String со значением 01. Как мне ее преобразовать в тип Integer? Помогите пожалуйста, очень нужно реализовать эту возможность на TURBO PASCALE.


 
Bosh   (2002-12-21 23:47) [1]

есть такая штука как ф-ия str(i:integer;s:string)

например

function IntToStr(s:string):integer;
begin
IntToStr:=str(i,s);
end;


 
Вася Пупкин   (2002-12-22 00:31) [2]

val


 
Kotka   (2002-12-22 00:56) [3]

Вася Пупкин © (22.12.02 00:31)
val


А при чем тут Val???


 
drin   (2002-12-22 01:03) [4]


function IntToStr(Value: integer): string;
begin
Str(Value, IntToStr)
end;

And Nothing else...


 
drin   (2002-12-22 01:08) [5]

Ой, сорри

function StrToInt(Value: string): integer;
Var
code, i: integer;
begin
Str(Value, i, code);
if code = 0 then
StrToInt:=i;
end;


 
PVOzerski   (2002-12-22 11:40) [6]

А все-таки val :^) Str - это наоборот, из числа в строку.

function StrToInt(Value: string): integer;
Var
code, i: integer;
begin
VAL(Value, i, code);
if code = 0 then
StrToInt:=i;
end;





Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
1-15017
Ranikin
2002-12-24 15:21
2003.01.06
XPStyle - применение стиля XP при оформлении формы.


1-15148
Agent
2002-12-22 20:20
2003.01.06
Мастаки Help!!!!!!


1-15036
Filat
2002-12-19 22:01
2003.01.06
Edit1.Enabled=False; Edit1.Text= парампарам ; Как получить текст?


1-15144
Fantom
2002-12-23 15:54
2003.01.06
проблемы с rich edit


14-15245
BlackTiger
2002-12-12 21:07
2003.01.06
Кто-нибудь РЕАЛЬНО работает с Kylix?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский