Delphi как в строке найти цифру

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils, System.StrUtils;

var

    str1, str2, str3, str4, str5, str6: string;

    arr4: array of char;

begin

    try

        //Способ 1: инициализируем строку повторяющимися символами.

        //В результате в str1 будет строка “ААААА”.

        str1 := StringOfChar(‘А’, 5);

        //Способ 2: инициализируем строку повторяющимися символами.

        //В результате в str2 будет строка “ААААА”.

        str2 := string.Create(‘А’, 5);

        //Способ 3: инициализируем строку повторяющимися подстроками.

        //В результате в str3 будет строка “ХаХаХаХаХа”.

        str3 := DupeString(‘Ха’, 5);

        //Способ 4: инициализируем строку символами из массива.

        //В результате в str4 будет строка “Абвгд”

        arr4 := [‘А’, ‘б’, ‘в’, ‘г’, ‘д’];

        str4 := string(arr4);

        //Способ 5: инициализируем строку символами из массива.

        //В результате в str5 будет строка “Абвгд”

        str5 := string.Create([‘А’, ‘б’, ‘в’, ‘г’, ‘д’]);

        //Способ 6: инициализируем строку символами из массива (берём только часть символов).

        //В результате в str6 будет строка “бвг”

        str6 := string.Create([‘А’, ‘б’, ‘в’, ‘г’, ‘д’], 1, 3);

        //Отображаем результат.

        Writeln(str1);

        Writeln(str2);

        Writeln(str3);

        Writeln(str4);

        Writeln(str5);

        Writeln(str6);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils;

begin

    try

        //В нижний регистр меняются только латинские буквы. Результат будет ‘АбВгД – abcde’.

        Writeln(LowerCase(‘АбВгД – AbCdE’));

        //В верхний регистр меняются только латинские буквы. Результат будет ‘АбВгД – ABCDE’.

        Writeln(UpperCase(‘АбВгД – AbCdE’));

        //В нижний регистр меняются и русские и латинские буквы. Результат будет ‘абвгд – abcde’.

        Writeln(‘АбВгД – AbCdE’.ToLower);

        //В верхний регистр меняются и русские и латинские буквы. Результат будет ‘АБВГД – ABCDE’.

        Writeln(‘АбВгД – AbCdE’.ToUpper);

        //Указываем локаль при изменении регистра. Результат будет ‘АБВГД – ABCDE’.

        Writeln(‘АбВгД – AbCdE’.ToUpper(TLanguages.GetLocaleIDFromLocaleName(‘ru-RU’)));

        //В нижний регистр меняются и русские и латинские буквы. Результат будет ‘абвгд – abcde’.

        Writeln(‘АбВгД – AbCdE’.ToLowerInvariant);

        //В верхний регистр меняются и русские и латинские буквы. Результат будет ‘АБВГД – ABCDE’.

        Writeln(‘АбВгД – AbCdE’.ToUpperInvariant);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils;

var

    str1, str2, str3, str4: string;

    stringBuilder: TStringBuilder;

begin

    try

        //Способ 1: используем оператор +.

        str1 := ‘Абвг’ + ‘деёжз’ + ‘иклмн’ + ‘опрст’;

        // Способ 2: используем функцию Concat.

        str2 := Concat(‘Абвг’, ‘деёжз’, ‘иклмн’, ‘опрст’);

        // Способ 3: используем функцию TStringHelper.Join.

        str3 := String.Join(”, [‘Абвг’, ‘деёжз’, ‘иклмн’, ‘опрст’]);

        // Способ 4: используем TStringBuilder.

        // Способ 4: используем TStringBuilder.

        stringBuilder := TStringBuilder.Create;

        try

            stringBuilder

                .Append(‘Абвг’)

                .Append(‘деёжз’)

                .Append(‘иклмн’)

                .Append(‘опрст’);

            str4 := stringBuilder.ToString;

        finally

            stringBuilder.Free;

        end;

        //Отображаем результат.

        Writeln(str1);

        Writeln(str2);

        Writeln(str3);

        Writeln(str4);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

str3 := String.Join(‘, ‘, [‘Москва’, ‘Санкт-Петербург’, ‘Севастополь’]);

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils;

var

    str1, str2: string;

    stringBuilder: TStringBuilder;

begin

    try

        //В результате вставки получится строка ‘Абв–гд’

        str1 := ‘Абвгд’;

        Insert(‘–‘, str1, 4);

        Writeln(str1);

        //В результате вставки получится строка ‘Абв–гд’

        str2 := ‘Абвгд’;

        Writeln(str2.Insert(3, ‘–‘)); //Будет отображено ‘Абв–гд’.

        Writeln(str2); //Здесь тоже будет отображено ‘Абв–гд’.

        //В результате вставки получится строка ‘Абв–гд’

        stringBuilder := TStringBuilder.Create(‘Абвгд’);

        try

            stringBuilder.Insert(3, ‘–‘);

            Writeln(stringBuilder.ToString);

        finally

            stringBuilder.Free;

        end;

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils;

var

    str1, str2, str3: string;

    stringBuilder: TStringBuilder;

begin

    try

        //Способ 1: используем функцию Delete.

        str1 := ‘Абвгд’;

        Delete(str1, 2, 2);

        //Способ 2: используем функцию TStringHelper.Remove.

        str2 := ‘Абвгд’;

        str2 := str2.Remove(1, 2);

        //Способ 3: удаляем символы внутри TStringBuilder.

        stringBuilder := TStringBuilder.Create(‘Абвгд’);

        try

            stringBuilder.Remove(1, 2);

            str3 := stringBuilder.ToString;

        finally

            stringBuilder.Free;

        end;

        //Отображаем результат.

        Writeln(str1);

        Writeln(str2);

        Writeln(str3);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils, System.StrUtils;

var

    str1, str2, str3, str4: string;

    arr5: array of char;

    arr6: TCharArray;

    stringBuilder: TStringBuilder;

begin

    try

        //Способ 1: копируем три символа слева.

        //В результате в строке str2 будет “Абв”.

        str1 := LeftStr(‘Абвгдеёжз’, 3);

        //Способ 2: копируем три символа справа.

        //В результате в строке str3 будет “ёжз”.

        str2 := RightStr(‘Абвгдеёжз’, 3);

        //Способ 3: копируем символы из середины.

        //В результате в строке str1 будет “вгд”.

        str3 := Copy(‘Абвгдеёжз’, 3, 3);

        //Способ 4: копируем символы из середины.

        //В результате в строке str4 будет “вгд”.

        str4 := ‘Абвгдеёжз’.Substring(2, 3);

        //Способ 5: копируем часть строки в массив символов.

        //В результате в массиве arr5 будет [‘в’, ‘г’, ‘д’].

        SetLength(arr5, 3);

        ‘Абвгдеёжз’.CopyTo(2, arr5, 0, 3);

        //Способ 6: копируем часть символов из TStringBuilder в массив символов.

        //В результате в массиве arr6 будет [‘в’, ‘г’, ‘д’].

        stringBuilder := TStringBuilder.Create(‘Абвгдеёжз’);

        try

            SetLength(arr6, 3);

            stringBuilder.CopyTo(2, arr6, 0, 3);

        finally

            stringBuilder.Free;

        end;

        //Отображаем результат.

        Writeln(str1);

        Writeln(str2);

        Writeln(str3);

        Writeln(str4);

        Writeln(string(arr5));

        Writeln(string(arr6));

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils, System.StrUtils, Winapi.Windows;

var

    stringBuilder1, stringBuilder2: TStringBuilder;

begin

    try

        //Сравнение строк с помощью операторов (регистрозависимое).

        //В результате будет TRUE (т.е. строка 1 сортируется до строки 2).

        Writeln(‘Арбуз’ < ‘Банан’);

        //В результате будет TRUE (т.е. строка 1 сортируется после строки 2).

        Writeln(‘Арбуз’ > ‘Арбалет’);

        //В результате будет TRUE (т.е. строка 1 сортируется до строки 2 или строки равны).

        Writeln(‘Арбуз’ <= ‘арбуз’);

        //В результате будет FALSE (т.е. строки не равны).

        Writeln(‘Арбуз’ = ‘арбуз’);

        //Сравнение с помощью регистрозависимых функций.

        //Результат будет FALSE.

        Writeln(‘Арбуз’.Equals(‘арбуз’));

        //Результат будет TRUE.

        Writeln(‘Банан’.Equals(‘Банан’));

        //Результат будет FALSE.

        Writeln(SameStr(‘Арбуз’, ‘арбуз’));

        //Результат будет TRUE.

        Writeln(SameStr(‘Банан’, ‘Банан’));

        //Результат будет -1 (т.е. строка 1 сортируется до строки 2).

        Writeln(string.CompareOrdinal(‘Арбуз’, ‘Банан’));

        //Результат будет -1 (т.е. строка 1 сортируется до строки 2).

        Writeln(StrComp(‘Арбуз’, ‘Банан’));

        //Сравниваем только первые 2 символа. Результат будет -1 (т.е. строка 1 сортируется до строки 2).

        Writeln(StrLComp(‘Арбуз’, ‘Банан’, 2));

        //Результат будет -1 (т.е. строка 1 сортируется до строки 2).

        Writeln(‘Арбуз’.CompareTo(‘Банан’));

        //Результат будет 19 (т.е. строка 1 сортируется после строки 2).

        Writeln(‘Арбуз’.CompareTo(‘Арбалет’));

        //Результат будет -1 (т.е. строка 1 сортируется до строки 2).

        Writeln(CompareStr(‘Арбуз’, ‘Банан’));

        //Результат будет 19 (т.е. строка 1 сортируется после строки 2).

        Writeln(CompareStr(‘Арбуз’, ‘Арбалет’));

        //Сравнение с помощью регистроНЕзависимых функций (работает только для латинских букв).

        //Результат будет FALSE.

        Writeln(SameText(‘Арбуз’, ‘арбуз’));

        //Результат будет -32 (т.е. строка 1 сортируется до строки 2).

        Writeln(StrIComp(‘Арбуз’, ‘арбуз’));

        //Сравниваем только первые 2 символа. Результат будет -32 (т.е. строка 1 сортируется до строки 2).

        Writeln(StrLIComp(‘Арбуз’, ‘арбуз’, 2));

        //Результат будет -32 (т.е. строка 1 сортируется до строки 2).

        Writeln(CompareText(‘Арбуз’, ‘арбуз’));

        //Результат будет -32 (т.е. строка 1 сортируется до строки 2).

        Writeln(string.CompareText(‘Арбуз’, ‘арбуз’));

        //Результат будет 0 (т.е. строки 1 и 2 равны).

        Writeln(string.CompareText(‘Watermelon’, ‘watermelon’));

        //Результат будет 0 (т.е. строки 1 и 2 равны).

        Writeln(StrIComp(‘Watermelon’, ‘watermelon’));

        //Сравниваем только первые 2 символа. Результат будет 0 (т.е. строки 1 и 2 равны).

        Writeln(StrLIComp(‘Watermelon’, ‘watermelon’, 2));

        //Результат будет 0 (т.е. строки 1 и 2 равны).

        Writeln(CompareText(‘Watermelon’, ‘watermelon’));

        //Сравнение с помощью регистроНЕзависимых функций (использование пользовательской локали).

        //Результат будет TRUE.

        Writeln(SameText(‘Арбуз’, ‘арбуз’, TLocaleOptions.loUserLocale));

        //Результат будет 0 (т.е. строки 1 и 2 равны).

        Writeln(CompareText(‘Арбуз’, ‘арбуз’, TLocaleOptions.loUserLocale));

        //Сравнение с помощью функции TStringHelper.Compare.

        //Регистрозависимое сравнение. В результате будет 1 (т.е. строка 1 сортируется после строки 2).

        Writeln(string.Compare(‘Арбуз’, ‘арбуз’));

        //РегистроНЕзависимое сравнение. В результате будет 0 (т.е. строки 1 и 2 одинаковые).

        Writeln(string.Compare(‘Арбуз’, ‘арбуз’, true));

        //РегистроНЕзависимое сравнение с игнорированием символов и знаков препинания.

        //В результате будет 0 (т.е. строки 1 и 2 одинаковые).

        Writeln(string.Compare(‘Арбуз!’, ‘-арбуз’,

                [TCompareOption.coIgnoreSymbols, TCompareOption.coIgnoreCase]));

        //Сравнение цифр как чисел, а не как строки.

        //В результате будет -1 (т.е. первое число меньше чем второе).

        Writeln(string.Compare(‘2’, ’10’, [TCompareOption.coDigitAsNumbers]));

        //Сравнение цифр как строки.

        //В результате будет 1 (т.е. строка 1 сортируется после строки 2).

        Writeln(string.Compare(‘2’, ’10’));

        //РегистроНЕзависимое сравнение с определённым языком и регионом. В результате будет 0 (т.е. строки 1 и 2 одинаковые).

        Writeln(string.Compare(‘Арбуз’, ‘арбуз’, true, TLanguages.GetLocaleIDFromLocaleName(‘ru-RU’)));

        //Сравнение двух строк в двух экземплярах класса TStringBuilder (регистрозависимое).

        stringBuilder1 := TStringBuilder.Create(‘Арбуз’);

        try

            stringBuilder2 := TStringBuilder.Create(‘арбуз’);

            try

                //Результат будет FALSE.

                Writeln(stringBuilder1.Equals(stringBuilder2));

                //Результат будет TRUE.

                stringBuilder2.Clear;

                stringBuilder2.Append(‘Арбуз’);

                Writeln(stringBuilder1.Equals(stringBuilder2));

            finally

                stringBuilder2.Free;

            end;

        finally

            stringBuilder1.Free;

        end;

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils;

begin

    try

        //Поиск с первого символа. В результате отобразится 8.

        Writeln(Pos(‘строка’, ‘Первая строка, вторая строка’, 1));

        //Поиск с десятого символа. В результате отобразится 23.

        Writeln(Pos(‘строка’, ‘Первая строка, вторая строка’, 10));

        //Поиск несуществующей подстроки. В результате отобразится 0.

        Writeln(Pos(‘третья’, ‘Первая строка, вторая строка’, 1));

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils;

begin

    try

        //Поиск с начала строки. В результате отобразится 7.

        Writeln(‘Первая строка, вторая строка’.IndexOf(‘строка’));

        //Поиск с десятого символа до конца. В результате отобразится 22.

        Writeln(‘Первая строка, вторая строка’.IndexOf(‘строка’, 9));

        //Поиск несуществующей подстроки. В результате отобразится -1.

        Writeln(‘Первая строка, вторая строка’.IndexOf(‘третья’));

        //Поиск с начала только среди первых 10-ти символов. В результате отобразится -1.

        Writeln(‘Первая строка, вторая строка’.IndexOf(‘строка’, 0, 10));

        //Поиск с начала только среди первых 20-ти символов. В результате отобразится 7.

        Writeln(‘Первая строка, вторая строка’.IndexOf(‘строка’, 0, 20));

        //Поиск с конца строки. В результате отобразится 22.

        Writeln(‘Первая строка, вторая строка’.LastIndexOf(‘строка’));

        //Поиск с двадцать третьего символа и до начала. В результате отобразится 7.

        Writeln(‘Первая строка, вторая строка’.LastIndexOf(‘строка’, 22));

        //Поиск с конца только среди последних 10 символов. В результате отобразится -1.

        Writeln(‘Первая строка, вторая строка, третья’.LastIndexOf(‘строка’, 36, 10));

        //Поиск с конца только среди последних 20 символов. В результате отобразится 22.

        Writeln(‘Первая строка, вторая строка, третья’.LastIndexOf(‘строка’, 36, 20));

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils, System.StrUtils;

begin

    try

        //В результате отобразится TRUE.

        Writeln(ContainsStr(‘Раз, два, три, четыре, пять’, ‘Раз’));

        //В результате отобразится FALSE.

        Writeln(ContainsStr(‘Раз, два, три, четыре, пять’, ‘Два’));

        //В результате отобразится TRUE.

        Writeln(ContainsText(‘Раз, два, три, четыре, пять’, ‘Три’));

        //В результате отобразится TRUE.

        Writeln(‘Раз, два, три, четыре, пять’.Contains(‘четыре’));

        //В результате отобразится FALSE.

        Writeln(‘Раз, два, три, четыре, пять’.Contains(‘Пять’));

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils, System.StrUtils;

begin

    try

        //Ищем подстроку в начале строки. Результат будет TRUE.

        Writeln(StartsStr(‘Раз’, ‘Раз, два, три’));

        //Ищем подстроку в начале строки. Результат будет FALSE.

        Writeln(StartsStr(‘раз’, ‘Раз, два, три’));

        //Ищем подстроку в начале строки. Результат будет FALSE.

        Writeln(StartsStr(‘два’, ‘Раз, два, три’));

        //Ищем подстроку в начале строки. Результат будет TRUE.

        Writeln(StartsText(‘Раз’, ‘Раз, два, три’));

        //Ищем подстроку в начале строки. Результат будет TRUE.

        Writeln(StartsText(‘раз’, ‘Раз, два, три’));

        //Ищем подстроку в начале строки. Результат будет FALSE.

        Writeln(StartsText(‘два’, ‘Раз, два, три’));

        //Ищем подстроку в начале строки. Результат будет TRUE.

        Writeln(‘Раз, два, три’.StartsWith(‘Раз’));

        //Ищем подстроку в начале строки. Результат будет FALSE.

        Writeln(‘Раз, два, три’.StartsWith(‘раз’));

        //Ищем подстроку в начале строки. Результат будет FALSE (для кириллицы).

        Writeln(‘Раз, два, три’.StartsWith(‘раз’, true));

        //Ищем подстроку в начале строки. Результат будет TRUE (для латиницы).

        Writeln(‘One, two, three’.StartsWith(‘one’, true));

        //Ищем подстроку в начале строки. Результат будет FALSE.

        Writeln(‘Раз, два, три’.StartsWith(‘два’));

        //Ищем подстроку в конце строки. Результат будет TRUE.

        Writeln(EndsStr(‘три’, ‘Раз, два, три’));

        //Ищем подстроку в конце строки. Результат будет FALSE.

        Writeln(EndsStr(‘Три’, ‘Раз, два, три’));

        //Ищем подстроку в конце строки. Результат будет FALSE.

        Writeln(EndsStr(‘два’, ‘Раз, два, три’));

        //Ищем подстроку в конце строки. Результат будет TRUE.

        Writeln(EndsText(‘три’, ‘Раз, два, три’));

        //Ищем подстроку в конце строки. Результат будет TRUE.

        Writeln(EndsText(‘Три’, ‘Раз, два, три’));

        //Ищем подстроку в конце строки. Результат будет FALSE.

        Writeln(EndsText(‘два’, ‘Раз, два, три’));

        //Ищем подстроку в конце строки. Результат будет TRUE.

        Writeln(string.EndsText(‘три’, ‘Раз, два, три’));

        //Ищем подстроку в конце строки. Результат будет TRUE.

        Writeln(string.EndsText(‘Три’, ‘Раз, два, три’));

        //Ищем подстроку в конце строки. Результат будет FALSE.

        Writeln(string.EndsText(‘два’, ‘Раз, два, три’));

        //Ищем подстроку в конце строки. Результат будет TRUE.

        Writeln(‘Раз, два, три’.EndsWith(‘три’));

        //Ищем подстроку в конце строки. Результат будет FALSE.

        Writeln(‘Раз, два, три’.EndsWith(‘Три’));

        //Ищем подстроку в конце строки. Результат будет TRUE.

        Writeln(‘Раз, два, три’.EndsWith(‘Три’, true));

        //Ищем подстроку в конце строки. Результат будет FALSE.

        Writeln(‘Раз, два, три’.EndsWith(‘два’));

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils, System.RegularExpressions;

var

    regEx: TRegEx;

    match: TMatch;

    matches: TMatchCollection;

begin

    try

        //Ищем в строке любой IP-адрес, с начала строки.

        regEx := TRegEx.Create(‘bd{1,3}.d{1,3}.d{1,3}.d{1,3}b’);

        match := regEx.Match(‘В этой строке два IP-адреса 192.168.1.1 и 192.168.1.15’);

        //Найдена ли подстрока. Результат будет TRUE.

        Writeln(match.Success);

        //Номер первого символа найденной подстроки. Результат будет 29.

        Writeln(match.Index);

        //Длина найденной подстроки. Результат будет 11.

        Writeln(match.Length);

        //Найденная подстрока. Результат будет 192.168.1.1.

        Writeln(match.Value);

        //Ищем следующий IP-адрес в этой же строке.

        match := match.NextMatch;

        //Найдена ли следующая подстрока. Результат будет TRUE.

        Writeln(match.Success);

        //Номер первого символа найденной подстроки. Результат будет 43.

        Writeln(match.Index);

        //Длина найденной подстроки. Результат будет 12.

        Writeln(match.Length);

        //Найденная подстрока. Результат будет 192.168.1.15.

        Writeln(match.Value);

        //Ищем следующий IP-адрес в этой же строке.

        match := match.NextMatch;

        //Найдена ли следующая подстрока. Результат будет FALSE.

        Writeln(match.Success);

        //Ищем адреса почтовых ящиков в тексте, игнорируя регистр.

        regEx := TRegEx.Create(‘b[A-Z0-9._%+-]+@[A-Z0-9.-]+.[A-Z]{2,}b’, [roIgnoreCase]);

        matches := regEx.Matches(‘В этой test@example.com строке a.b-93@example.com содержатся три Proghouse@example.com почтовых адреса.’);

        //В результате будет выдано три адреса:

        //test@example.com

        //a.b-93@example.com

        //Proghouse@example.com

        for match in matches do

            Writeln(match.Value);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils, System.StrUtils, Winapi.Windows;

begin

    try

        //Ищем символ ‘р’ или ‘о’. В результате будет 2.

        Writeln(‘Это строка!’.IndexOfAny([‘р’, ‘о’]));

        //Ищем символ ‘р’ или ‘о’ начиная с пятого символа. В результате будет 6.

        Writeln(‘Это строка!’.IndexOfAny([‘р’, ‘о’], 4));

        //Ищем символ ‘р’ или ‘о’ с пятого по шестой символ. В результате будет -1.

        Writeln(‘Это строка!’.IndexOfAny([‘р’, ‘о’], 4, 2));

        //Ищем символ ‘р’ или ‘о’ с конца строки. В результате будет 7.

        Writeln(‘Это строка!’.LastIndexOfAny([‘р’, ‘о’]));

        //Ищем символ ‘р’ или ‘о’ начиная с пятого символа и до начала. В результате будет 2.

        Writeln(‘Это строка!’.LastIndexOfAny([‘р’, ‘о’], 4));

        //Ищем символ ‘р’ или ‘о’ с пятого по третий символ. В результате будет 2.

        Writeln(‘Это строка!’.LastIndexOfAny([‘р’, ‘о’], 4, 3));

        //Ищем символ ‘р’ или ‘о’, но не среди символов заключенных в кавычки. В результате будет 8.

        Writeln(‘”Это” строка!’.IndexOfAnyUnquoted([‘р’, ‘о’], ‘”‘, ‘”‘));

        //Ищем символ ‘р’ или ‘о’, но не среди символов заключенных в скобки, в том числе вложенных. В результате будет 17.

        Writeln(‘(Это (вторая)) строка!’.IndexOfAnyUnquoted([‘р’, ‘о’], ‘(‘, ‘)’));

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils, System.StrUtils, System.RegularExpressions;

var

    stringBuilder: TStringBuilder;

    regEx: TRegEx;

begin

    try

        //Ищет все подстроки в строке и заменяет их на новые (регистрозависимый поиск).

        //В результате будет ‘Раз, два, три, два’.

        Writeln(ReplaceStr(‘Раз, четыре, три, четыре’, ‘четыре’, ‘два’));

        //Ищет все подстроки в строке и заменяет их на новые (регистрозависимый поиск).

        //В результате будет ‘Раз, Четыре, три, два’.

        Writeln(ReplaceStr(‘Раз, Четыре, три, четыре’, ‘четыре’, ‘два’));

        //Ищет все подстроки в строке и заменяет их на новые (регистронезависимый поиск).

        //В результате будет ‘Раз, два, три, два’.

        Writeln(ReplaceText(‘Раз, четыре, три, четыре’, ‘четыре’, ‘два’));

        //Ищет все подстроки в строке и заменяет их на новые (регистронезависимый поиск).

        //В результате будет ‘Раз, два, три, два’.

        Writeln(ReplaceText(‘Раз, Четыре, три, четыре’, ‘четыре’, ‘два’));

        //Ищет только первую подстроку в строке и заменяет её на новую.

        //В результате будет ‘Раз, два, три, четыре’.

        Writeln(StringReplace(‘Раз, четыре, три, четыре’, ‘четыре’, ‘два’, []));

        //Ищет все подстроки в строке и заменяет их на новые.

        //В результате будет ‘Раз, два, три, два’.

        Writeln(StringReplace(‘Раз, четыре, три, четыре’, ‘четыре’, ‘два’, [rfReplaceAll]));

        //Пример регистрозависимого поиска и замены подстрок.

        //В результате будет ‘Раз, Четыре, три, два’.

        Writeln(StringReplace(‘Раз, Четыре, три, четыре’, ‘четыре’, ‘два’, [rfReplaceAll]));

        //Пример регистронезависимого поиска и замены подстрок.

        //В результате будет ‘Раз, два, три, два’.

        Writeln(StringReplace(‘Раз, Четыре, три, четыре’, ‘четыре’, ‘два’, [rfReplaceAll, rfIgnoreCase]));

        //Ищет все подстроки в строке и заменяет их на новые

        //(т.к. по умолчанию установлен флаг rfReplaceAll).

        //В результате будет ‘Раз, два, три, два’.

        Writeln(‘Раз, четыре, три, четыре’.Replace(‘четыре’, ‘два’));

        //Ищет только первую подстроку в строке и заменяет её на новую

        //(т.к нет флага rfReplaceAll).

        //В результате будет ‘Раз, два, три, четыре’.

        Writeln(‘Раз, четыре, три, четыре’.Replace(‘четыре’, ‘два’, []));

        //Пример регистрозависимого поиска и замены подстрок

        //(т.к. по умолчанию не установлен флаг rfIgnoreCase).

        //В результате будет ‘Раз, Четыре, три, два’.

        Writeln(‘Раз, Четыре, три, четыре’.Replace(‘четыре’, ‘два’));

        //Пример регистронезависимого поиска и замены подстрок

        //(т.к. установлен флаг rfIgnoreCase).

        //В результате будет ‘Раз, два, три, четыре’.

        Writeln(‘Раз, Четыре, три, четыре’.Replace(‘четыре’, ‘два’, [rfIgnoreCase]));

        stringBuilder := TStringBuilder.Create;

        try

            //Ищет все подстроки в строке и заменяет их на новые.

            //Результат будет ‘Раз, два, три, два’.

            stringBuilder.Append(‘Раз, четыре, три, четыре’);

            Writeln(stringBuilder.Replace(‘четыре’, ‘два’).ToString);

            //Ищет все подстроки в строке и заменяет их на новые.

            //Результат будет ‘Раз, Четыре, три, два’.

            stringBuilder.Clear;

            stringBuilder.Append(‘Раз, Четыре, три, четыре’);

            Writeln(stringBuilder.Replace(‘четыре’, ‘два’).ToString);

            //Ищет все подстроки начиная с 4-го символа в пределах 10-ти символов и заменяет их на новые.

            //Результат будет ‘Раз, два, три, четыре’.

            stringBuilder.Clear;

            stringBuilder.Append(‘Раз, четыре, три, четыре’);

            Writeln(stringBuilder.Replace(‘четыре’, ‘два’, 3, 10).ToString);

        finally

            stringBuilder.Free;

        end;

        //Ищем и убираем HTML тэги из строки.

        //В результате получится: Здесь содержатся выделенное и подчёркнутое слова и ссылка.

        regEx := TRegEx.Create(‘<([A-Z][A-Z0-9]*)b[^>]*>(.*?)</1>’, [roIgnoreCase]);

        Writeln(regEx.Replace(‘Здесь содержатся <b>выделенное</b> и <u>подчёркнутое</u> слова и <a href=”http://www.proghouse.ru”>ссылка</a>.’, ‘2’));

        //Ищем определённое слово и заменяем его звёздочками.

        //В результате получится: Закрываем *** слова звёздами. *** слов не будет! *** слово – это ***!

        regEx := TRegEx.Create(‘плох[ио][емх]?’, [roIgnoreCase]);

        Writeln(regEx.Replace(‘Закрываем плохие слова звёздами. Плохих слов не будет! Плохое слово – это плохо!’, ‘***’));

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils;

begin

    try

        //Удаляем пробелы и управляющие символы в начале и конце строки.

        //Результат будет ‘Строка без лишних пробелов и управляющих символов!’.

        Writeln(Trim(#13#10′ Строка без лишних пробелов и управляющих символов! ‘#13#10));

        //Удаляем пробелы и управляющие символы в начале и конце строки.

        //Результат будет ‘Строка без лишних пробелов и управляющих символов!’.

        Writeln(#13#10′ Строка без лишних пробелов и управляющих символов! ‘#13#10.Trim);

        //Удаляем только символы #13 и #10 в начале и конце строки.

        //Результат будет ‘ Строка без лишних пробелов и управляющих символов! ‘.

        Writeln(#13#10′ Строка без лишних пробелов и управляющих символов! ‘#13#10.Trim([#13, #10]));

        //Удаляем пробелы и управляющие символы только в начале строки.

        //Результат будет ‘Строка без лишних пробелов и управляющих символов! ‘#13#10.

        Writeln(TrimLeft(#13#10′ Строка без лишних пробелов и управляющих символов! ‘#13#10));

        //Удаляем пробелы и управляющие символы только в начале строки.

        //Результат будет ‘Строка без лишних пробелов и управляющих символов! ‘#13#10.

        Writeln(#13#10′ Строка без лишних пробелов и управляющих символов! ‘#13#10.TrimLeft);

        //Удаляем пробелы и управляющие символы только в конце строки.

        //Результат будет #13#10′ Строка без лишних пробелов и управляющих символов!’.

        Writeln(TrimRight(#13#10′ Строка без лишних пробелов и управляющих символов! ‘#13#10));

        //Удаляем пробелы и управляющие символы только в конце строки.

        //Результат будет #13#10′ Строка без лишних пробелов и управляющих символов!’.

        Writeln(#13#10′ Строка без лишних пробелов и управляющих символов! ‘#13#10.TrimRight);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

    System.SysUtils;

begin

    try

        //Дополняем числа пробелами. В результате получится:

        //’  123′

        //’12345′

        //’ 1234′

        Writeln(‘123’.PadLeft(5));

        Writeln(‘12345’.PadLeft(5));

        Writeln(‘1234’.PadLeft(5));

        //Дополняем числа нулями. В результате получится.

        //’00123′

        //’12345′

        //’01234′

        Writeln(‘123’.PadLeft(5, ‘0’));

        Writeln(‘12345’.PadLeft(5, ‘0’));

        Writeln(‘1234’.PadLeft(5, ‘0’));

        //Дополняем строки чёрточками, чтобы сделать красивое содержание.

        //В результате получится:

        //’Вступление ——— стр. 1′

        //’Доклад ————- стр. 2′

        //’Выводы ————- стр. 7′

        //’Заключение ——— стр. 9′

        Writeln(‘Вступление ‘.PadRight(20, ‘-‘) + ‘ стр. 1’);

        Writeln(‘Доклад ‘.PadRight(20, ‘-‘) + ‘ стр. 2’);

        Writeln(‘Выводы ‘.PadRight(20, ‘-‘) + ‘ стр. 7’);

        Writeln(‘Заключение ‘.PadRight(20, ‘-‘) + ‘ стр. 9’);

        Readln;

    except

        on E: Exception do

            Writeln(E.ClassName, ‘: ‘, E.Message);

    end;

end.