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; Вернуться назад
rss