Как найти пробел в строке 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