Delphi Studio Функции для работы со строками в Delphi + примеры
Delphin | 15-04-2010, 09:37 | Примеры на Delphi » Примеры на Delphi Система

Функции для работы со строками в Delphi + примеры

Функции для работы со строками в Delphi + примеры (Pos, Copy, ReverseString, Insert, Delete, SetLength, IntToStr, StrToInt, FloatToStr, StrToFloat, DateToStr, TimeToStr, StrToDate, StrToTime, LowerCase, UpperCase, Trim, TrimLeft, TrimRight)

Функция Pos возвращает позицию подстроки в строке. Нумерация символов начинается с единицы (1). В случае отсутствия подстроки в строке возращается 0
Pos(SubStr, Str: String)
пример функции Pos №1
var
Str1, Str2: String;
P: Integer;
begin
Str1:='Delphi Studio';
Str2:='St';
P:=Pos(Str2, Str1);
ShowMessage(IntToStr(P)); // результат: 8

пример функции Pos №2
var
Str1, Str2: String;
P: Integer;
begin
Str1 := 'Я люблю сайт Delphi Studio';
Str2 := 'сайт Delphi';
P := Pos(Str2, Str1);
if P>0 then
ShowMessage('В строке: '+Str1+', присутствует текст: '+Str2)
else
ShowMessage('В строке: '+Str1+', отсутствует текст: '+Str2);
end;


Функция Copy возвращает часть строки Str, начиная с символа Start длиной Length. Ограничений на Length нет - если оно превышает количество символов от Start до конца строки, то строка будет скопирована до конца
Copy(Str: String; Start, Length: Integer)
пример функции Copy
var
Str1, Str2: String;
begin
Str1:='Delphi Studio';
Str2:=Copy(Str1, 1, 10);
ShowMessage(Str2); // результат: Delphi Stu


Функция ReverseString инвертируют строку, т.е. располагают её символы в обратном порядке
ReverseString(Str: String)
пример функции ReverseString
uses StrUtils;

var
Str: String;
begin
Str := 'Delphi Studio';
Str := ReverseString(Str);
ShowMessage(Str); // результат: oidutS ihpleD


Функция Insert вставляет одну строку в другую, начиная с указанного символа
Insert(SubStr: String; Str: String; Pos: Integer)
пример функции Insert
var
Str1, Str2: String;
begin
Str1 := 'Я Delphi Studio';
Str2 := 'люблю сайт ';
Insert(Str2, Str1, 3);
ShowMessage(Str1); // результат: Я люблю сайт Delphi Studio
end;


Функция Delete удаляет кусок текста из указаной строки
Delete(Str: String; Start, Length: Integer)
пример функции Delete
var
Str: String;
begin
Str := 'Delphi Studio сайт';
Delete(Str, 8, 6);
ShowMessage(Str); // результат: Delphi сайт


Функция SetLength позволяет изменить длину строки. Если строка содержала большее количество символов, чем задано в функции, то "лишние" символы обрезаются
SetLength(Str: String; NewLength: Integer)
пример функции SetLength
var
str: String;
begin
str:='Delphi Studio';
SetLength(str, 6);
ShowMessage(str); результат: Delphi


Функция IntToStr для преобразования значения целочисленного выражения Value в строку
IntToStr(Value: Integer): string
пример функции IntToStr
procedure TForm1.FormCreate(Sender: TObject);
var
int : integer;
begin
int := 2010;
ShowMessage(IntToStr(int));
end;


Функция StrToInt для преобразования строки в целое число
StrToInt(const str: string): integer
пример функции StrToInt
procedure TForm1.FormCreate(Sender: TObject);
var
int : integer;
begin
int := StrToInt('2010');
ShowMessage(IntToStr(int));
end;


Функция FloatToStr для преобразования значения вещественного выражения Value в строку
FloatToStr(Value: Extendet): string
пример функции FloatToStr
var
str: string;
L: integer;
begin
str:='Delphi';
L:=Length(str);
ShowMessage(FloatToStr(L)); // результат: 6


Функция StrToFloat для преобразования строки в вещественное число
StrToFloat(const str: string) Extended
пример функции StrToFloat
procedure TForm1.FormCreate(Sender: TObject);
var
str : string;
ext : Extended;
begin
str := '2010';
ext := StrToFloat(str);
ShowMessage(FloatToStr(ext));
end;


Функция DateToStr для преобразования значения даты в выражении Date в строку
DateToStr(Date: TDateTime): string
пример функции DateToStr
procedure TForm1.FormCreate(Sender: TObject);
var
myDate : TDateTime;
begin
myDate := StrToDate('15.04.2010');
ShowMessage(DateToStr(myDate));
end;


Функция TimeToStr для преобразования значения времени Time в строку
TimeToStr(time: TDateTime): string
пример функции TimeToStr
procedure TForm1.FormCreate(Sender: TObject);
var
myTime : TDateTime;
begin
myTime := StrToTime('10:48:06');
ShowMessage(TimeToStr(myTime));
end;


Функция StrToDate для преобразования строки в дату
StrToDate(const str: string): TDateTime
пример функции StrToDate
procedure TForm1.FormCreate(Sender: TObject);
var
myDate : TDateTime;
begin
myDate := StrToDate('15.04.2010');
ShowMessage(DateTimeToStr(myDate));
end;


Функция StrToTime для преобразования строки во время
StrToTime(const str: string): TDateTime
пример функции StrToTime
procedure TForm1.FormCreate(Sender: TObject);
var
myTime : TDateTime;
begin
myTime := StrToTime('18');
ShowMessage(TimeToStr(myTime));
end;


Функция LowerCase преобразует символы в нижний регистр
LowerCase(const str: string): string
пример функции LowerCase
procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := Edit1.Text;
Edit1.Text := LowerCase(str);
end;


Функция UpperCase преобразует символы в верхний регистр
UpperCase(const str: string): string
пример функции UpperCase
procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := Edit1.Text;
Edit1.Text := UpperCase(str);
end;


Функция Trim удаляет пробелы из начала и конца строки
Trim(const str: string): string
пример функции Trim
procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := Edit1.Text;
Edit1.Text := Trim(str);
end;


Функция TrimLeft удаляет пробелы из начала строки
TrimLeft(const str: string): string
пример функции TrimLeft
procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := Edit1.Text;
Edit1.Text := TrimLeft(str);
end;


Функция TrimRight удаляет пробелы из конца строки
TrimRight(const str: string): string
пример функции TrimRight
procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := Edit1.Text;
Edit1.Text := TrimRight(str);
end;
  • 85
 (голосов: 1)
 1919 | 0
функция, строка, Pos, Copy, ReverseString, Insert, Delete, SetLength, IntToStr, StrToInt, FloatToStr, StrToFloat, DateToStr, TimeToStr, StrToDate, StrToTime, LowerCase, UpperCase, Trim, TrimLeft, TrimRight, delphi, пример

    Информация
    Информация

      Посетители, находящиеся в группе Гости, не могут оставлять комментарии в данной новости.

        Лучшее на Delphi Studio

        Лучшие книги по Delphi

        • Книга Delphi 2010 Handbook with Source Code
          Книга Delphi 2010 Handbook with Source Code - Книга Delphi 2010 Handbook with Source Code посвящена CodeGear Delphi 2010
        • Книга Программирование в Delphi глазами хакера. Фленов
          Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
        • Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов
          Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов - Электронная книга о профессиональных приемах программирования в Delphi. В легкой и доступной форме с использованием большого количества профессиональных примеров рассмотрены вопросы корректного написания кода, оптимизации программ, работы с системным окружением, создания сетевых приложений
        • Книга Библия Delphi Михаил Фленов (2-е издание) + CD
          Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
        • Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б
          Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б - Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP
        • Книга Delphi 7 Учебный курс С.Бобровский
          Книга Delphi 7 Учебный курс С.Бобровский - Электронная книга является руководством по программированию в среде Delplii 7. Описывается весь процесс разработки программы: от конструирования диалогового окна до организации справочной системы и создания установочного CD-ROM
        • Книга Delphi Быстрый Старт
          Книга Delphi Быстрый Старт - В книге описываются интерфейс системы визуального программирования Delphi на основе 6-й версии, состав и характеристика элементов проекта приложения, приемы программирования на языке Object Pascal
        • Книга Indy in Depth. Глубины Indy
          Книга Indy in Depth. Глубины Indy - Книга Indy in Depth Глубины Indy будет интересно для тех, кто интересуется хакингом, вирусописанием, а значит и для тех, кто занимается защитой сетей, программ, информации. Эта книга не только по Indy, она про Интернет, про протоколы, термины, методы работы, а к Indy относятся только примеры
        • Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов
          Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов - Книга посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютерной графики: двухмерные итрехмерные построения, анимация, работа с текстурой, визуальные эффекты
        • Книга Delphi 7 для профессионалов. Марко Кэнту
          Книга Delphi 7 для профессионалов. Марко Кэнту - Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом



        Поиск на Delphi Studio


        На Delphi Studio нашли

        delphi 7 string количество символов delphi 7 string количество символов
        delphi 7 удалить файл delphi 7 удалить файл
        ShowMessage delphi 7 поменять заголовок ShowMessage delphi 7 поменять заголовок
        текстовый разворот примеры текстовый разворот примеры
        закрыть диалоговое окно delphi закрыть диалоговое окно delphi
        компонент form компонент form
        исходники блокнота на delphi исходники блокнота на delphi
        программно нажать кнопку клавиатуры в делфи программно нажать кнопку клавиатуры в делфи
        бобровский delphi 7 текст книги бобровский delphi 7 текст книги
        как сделать скриншот в delphi как сделать скриншот в delphi
        Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений.
        codegear Delphi окно на весь экран codegear Delphi окно на весь экран
        vkontakte api c# vkontakte api c#
        gifimage delphi gifimage delphi
        Delphi запрет на длину Delphi запрет на длину
        как добавить вертикальную полосу прокрутки в memo в delphi как добавить вертикальную полосу прокрутки в memo в delphi
        delphi пароль в ini файле delphi пароль в ini файле
        пример ini файлов пример ini файлов
        delphi 7 создать текстовый файл delphi 7 создать текстовый файл
        программа сортировки чисел по возрастанию паскаль программа сортировки чисел по возрастанию паскаль
        электронный учебник написан в delphi электронный учебник написан в delphi
        работа Timer с ProgressBar в delphi работа Timer с ProgressBar в delphi
        delphi 7 idftp скачать файл delphi 7 idftp скачать файл
        скачать исходники delphi 7 браузеры скачать исходники delphi 7 браузеры
        дельфи скачать дельфи скачать
        StdCtrls скачать StdCtrls скачать
        c# авторизация на сайте DLE c# авторизация на сайте DLE
        opendialog delphi в win7 opendialog delphi в win7
        Делфи как найти Indy HTTP Делфи как найти Indy HTTP
        как соединиться по ftp как соединиться по ftp
        примеры делфи примеры делфи
        Учебник Delphi 7 для начинающих скачать Учебник Delphi 7 для начинающих скачать
        полезные программы в Delphi полезные программы в Delphi
        tclientsocket delphi 7 tclientsocket delphi 7
        сортировка по возрастанию delphi сортировка по возрастанию delphi
        как установить cooltrayicon как установить cooltrayicon
        скачать delphi win32 api скачать delphi win32 api


        Информация

        Сайт Delphi Studio рассчитан для начинающих, новичков, чайников, которые решили программировать на Delphi :)
        Добавляйте свои примеры, исходники, компоненты, статьи и тогда на сайте будет много полезной информации, что поможет друг другу находить нужный материал.


        Случайные новости

        Авторизация на mail.ru (IdHTTP) Пример на Delphi
        Авторизация на mail.ru (IdHTTP) Пример на Delphi - Пример авторизации в Delphi на сайте mail.ru. Для авторизации на сайте mail.ru нужно кинуть на форму компонент IdHTTP
        Как создать Горячую клавишу для программы (StdCtrls). Пример на Delphi
        Как создать Горячую клавишу для программы (StdCtrls). Пример на Delphi - Пример создания для программы на Delphi Горячей клавиши. В uses добавить StdCtrls
        Книга Delphi 7 для профессионалов. Марко Кэнту
        Книга Delphi 7 для профессионалов. Марко Кэнту - Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом


        Опрос

        Что вы хотите больше на Delphi Studio?
        Исходники
        Книги, Учебники
        Компоненты
        Статьи
        Примеры



        Информация

        А знаете ли вы что такие известные программы как AIMP, Skype, QIP, QIP Infium, R&Q, The Bat!, FL Studio, Guitar Pro, Game Maker, Total Commander, PowerArchiver, Download Master написаны на Delphi? И это далеко не весь список программ чем может похвастаться продукция Borland Delphi!


        rss