Delphi Studio > Примеры на Delphi Система > Функции для работы со строками в Delphi + примеры
Функции для работы со строками в Delphi + примеры29-03-2011, 14:32. Разместил: SkyLine32 |
Функции для работы со строками в 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; Вернуться назад |