Главная страница
    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.56 MB
Время: 0.031 c
7-15344
Rem
2002-10-26 16:52
2003.01.06
Установка своей графической оболочки (вместо explorer.exe)


14-15298
denisac
2002-12-11 07:47
2003.01.06
Rock 4EVER!!!


3-14937
iKS1
2002-12-11 15:55
2003.01.06
PReport


1-15119
ЮРИЙ_К
2002-12-20 12:54
2003.01.06
Размер ехе-шника не уменьшается


3-14918
Vick
2002-12-02 16:26
2003.01.06
Сортировка в TClientDataSet





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский