|
Навигация
|
Главная » Delphi Работаем со строкамиИсточник: pcnext Darkmaster Сегодня мы с вами разберемся, как в Delphi можно работать со строками, мы рассмотрим ряд функций и процедур которые пришли к нам еще из самого Pascal . Некоторые из них есть только в Object Pascal . Ну что же приступим, для начала разберемся, как можно переводить строку в число и обратно. Для этого используются функции IntToStr - для перевода числа в строку и StrToInt - для перевода строки в число. Вот пример :var a,b:Integer; str:string; begin a:=5; b:=1; str:=IntToStr(a+b); ShowMessage(str); end; Ну а противоположную функцию можно смело использовать например если вы хотите преобразовать строку лежащую, например в компоненте TEdit . Вот пример: var a:Integer; begin a:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text); Edit3.Text:=IntToStr(a); end; Следующая функция, которую мы рассмотрим, определяет длину строки. Это функция Length ( str ), где str это строка, которую мы должны измерить. var a:Integer; str:string; begin str:='Hello World!'; a:=Length(str); end; В переменной а будет хранится число 12, именно столько символов, включая пробел содержит строка ‘ Hello World !'. Следующая процедура Delete ( str , index , count ) - она удаляет количество count символов начиная с index в строке str . Ловите пример var str:string; begin str:='Hello World!'; Delete(str,6,7); ShowMessage(str); end; На экран будет выведено слово Hello . Следующая функция Insert ( substr , str , index ) - эта функция вставляет подстроку substr в строку str , начиная с index . Например, давайте представим строку ‘ my girlfriend ' и давайте преобразуем ее в строку ‘ my best girlfriend '. var str,substr:string; begin str:='my girlfriend'; substr:='best '; Insert(substr,str,4); ShowMessage(str); end; Следующая функция с которой мы познакомимся соединяет строки. Это Concat ( s 1, s 2,…). Вот практический пример: var str1,str2,str3:string; begin str1:='MU'; str2:=' versus'; str3:=' Arsenal'; str1:=Concat(str1,str2,str3); ShowMessage(str1); end; В итоге в str 1 мы получили строку ‘ MU versus Arsenal '. Теперь давайте научимся копировать из строки определенное количество символов. Для этого используется функция Copy . Итак, Copy ( str , index , count ) - нужно копировать количество символов count начиная с index из строки str . Пример : var str1,str2:string; begin str1:=' один два три '; str2:=Copy(str1,6,3); ShowMessage(str2); end; В итоге на экране появится строка два. Теперь познакомимся с функцией Pos ( str 1, str 2) которая возвращает число, например: var str1,str2:string; i:Integer; begin str1:='Hello world'; str2:='world'; i:=Pos(str2,str1); end; После выполнения данного кода в переменной I будет хранится число 7. Именно с него начинается слово world в строке str1. PosEx по сути функция очень похожая на предыдущую. PosEx (substr, str, x) - тут все по сути почти также как и в предыдущей, только поиск начинается с x символов. Чтобы перевести вещественное число в строку надо использовать функцию FloatToStr , а если надо наоборот то StrToFloat . Но у этих двух функции есть аналоги - val b str . Сейчас на примерах мы рассмотрим как с ними работать. Var S: string; X: Extended; code: integer; Begin S:= ' 7 . 8 '; Val(S, X, code); End ; Результатом этого кода будет то, что в переменной x будет хранится число 7,8. Для чего нам нужен code ? Он выдает ноль если все в порядке или номер символа котолрый не является числом если произошла ошибка. Теперь обратный пример : Var S: string; X: integer; Begin X:= 10 ; Str(X, S); End; После этого кода в переменной S будет хранится строковое значение ‘10'. Вот и все! Если есть вопросы идите на наш форум, там вам всегда помогут. Библиотека OmniThreadLibrary - простая многопоточность в среде Delphi. Rational Software Delivery Platform Team Products Release 7. Рекомендации по подготовке к экзаменам Borland. Вызов Delphi DLL из MS Visual C++ (исходники). Создание WEB-приложений в среде Delphi (исходники). Главная » Delphi |
© 2024 Team.Furia.Ru.
Частичное копирование материалов разрешено. |