Length() в билдере

@Wolf137 · Регистрация: 15.04.2013

Студворк — интернет-сервис помощи студентам

Всем привет! Есть задание:

Кликните здесь для просмотра всего текста

Дан текст, содержащий от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами запятая, за последним словом точка. Вывести эту же последовательность слов, но в обратном порядке.

Вот код

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char s[] = "kill,sell,bull,full,cool,full,bear,full.";
char slovo,res;
int i;
for(i=0; i<s.Length(); i++)
        { if (s[i]!=',' && s[i]!='.')
                slovo+=s[i];
                else {res=slovo+','+res; }
        }
       Edit2->Text=res;
}

Но он ругается на s.Length(). Как быть? Заранее спасибо!

@volvo · 14.05.2015, 11:59

Length() - это метод класса String, у тебя же Сишная строка, используй strlen в таком случае, либо переходи на нормальные строки. К тому же, к char-у нельзя ничего прибавить, еще раз, нужны именно строки slovo и res...

@Wolf137 · 14.05.2015, 12:25 **[ТС]**

Сделал так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString s = "kill,sell,bull,full,cool,full,bear,full.";
AnsiString slovo,res;
int p,i;
//p=strlen(s);
for(i=0; i<=s.Length(); i++)
        { if (s[i]!=',' && s[i]!='.')
                slovo+=s[i];
                else {res=slovo+','+res; }
        }
       Edit2->Text=res;
}

Но теперь при нажатии на кнопку выдает ошибку

@volvo · 14.05.2015, 12:31

Строки в Билдере индексируются с единицы. Совместимость с Дельфи требует. Так что в 7 строке кода цикл должен начинаться с 1, а не с 0...

@Wolf137 · 14.05.2015, 12:45 **[ТС]**

Спасибо. Простите за наглость, но не поможете мне вывести строку в обратном порядке... Просто у меня он выводит не так как нужно..

@D1973 · 14.05.2015, 17:16

Ну вот так как-то можно...

C++
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
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
String s = "kill,sell,bull,full,cool,full,bear,full.";
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Edit1->Text = s;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *sl = new TStringList;
  sl->Delimiter = ',';
  sl->DelimitedText = s;
  String ss = "", temp = "";
  for(int i = sl->Count - 1; i >= 0; i--)
   {
     if(i == sl->Count - 1)
      temp = sl->Strings[i].Delete(sl->Strings[i].Length(), 1);
     else temp = sl->Strings[i];
     ss += temp + ",";
   }
  Edit2->Text = ss.Delete(ss.Length(), 1) + ".";
  delete sl;
}
//---------------------------------------------------------------------------

@BRcr · 14.05.2015, 19:36

Или так.

C++
1
2
3
4
5
6
7
8
9
10
11
12
    TStringDynArray sda_words( SplitString( "kill,sell,bull,full,cool,full,bear,full.", "., " ) );
    String s_result;
 
    for ( int i( sda_words.High ); i >= 0; --i )
    {
        if ( sda_words[ i ].IsEmpty( ) )
        {
            continue;
        }
        s_result += sda_words[ i ] + ",";
    }
    s_result[ s_result.Length( ) ] = '.';

@Wolf137 · 14.05.2015, 22:17 **[ТС]**

Спасибо большое! Но объясните что заносится в переменную temp

C++
1
temp = sl->Strings[i].Delete(sl->Strings[i].Length(), 1);

В билдере недавно, многого не знаю...

@nick42 · 14.05.2015, 22:34

Сообщение от Wolf137

sl->Strings[i]

- это строка в списке sl

Сообщение от Wolf137

.Delete(sl->Strings[i].Length(), 1)

- это удаляет последний (от длины строки Length) символ в строке. Итоговая строка -temp - это строка i из списка sl без последнего символа.

@D1973 · 15.05.2015, 05:58

Сообщение от Wolf137

что заносится в переменную temp

Тут идея такая: исходная строка разбивается на отдельные строки, которые заносятся в StringList. Признаком окончания одной строки и начала другой является символ ',' (sl->Delimiter = ','). Последнее слово в исходной строке оканчивается не запятой, а точкой, которая в разряд разделителей, естественно, не попадает. Поэтому последняя строка в StringList будет изначально иметь вид full.
Теперь проходим циклом от последней записи к первой по СтрингЛисту и добавляем строки СтрингЛиста в результирующую строку, т.е. каждая строка СтрингЛиста будет являться словом в результирующей строке. Для резделения слов также используем символ ','. Внутри цикла делаем условие: если считывемая строка СтрингЛиста является последней в списке /if(i == sl->Count - 1)/, тогда мы должны удалить точку после слова, чтобы результирующая строка имела вид full,... а не full.,... Этим как раз и занимается конструкция

C++
1
temp = sl->Strings[i].Delete(sl->Strings[i].Length(), 1);

Если же строка не последняя - тогда просто добавляем ее значение к результирующей строке + ','
После цикла мы должны заменить в результирующей строке последнюю запятую на точку, что я реализовал как удаление последнего символа в строке и добавление другого символа

C++
1
ss.Delete(ss.Length(), 1) + ".";

Переменная temp тут как бы и не нужна совсем, я ее ввел просто для наглядности.

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@volvo Супер-модератор 33400 / 21510 / 8236 Регистрация: 22.10.2011 Сообщений: 36,910 Записей в блоге: 12
	14.05.2015, 11:59
	Length() - это метод класса String, у тебя же Сишная строка, используй strlen в таком случае, либо переходи на нормальные строки. К тому же, к char-у нельзя ничего прибавить, еще раз, нужны именно строки slovo и res... 0

@volvo Супер-модератор 33400 / 21510 / 8236 Регистрация: 22.10.2011 Сообщений: 36,910 Записей в блоге: 12
	14.05.2015, 12:31
	Строки в Билдере индексируются с единицы. Совместимость с Дельфи требует. Так что в 7 строке кода цикл должен начинаться с 1, а не с 0... 1

@Wolf137 0 / 0 / 0 Регистрация: 15.04.2013 Сообщений: 83
	14.05.2015, 12:45 [ТС]
	Спасибо. Простите за наглость, но не поможете мне вывести строку в обратном порядке... Просто у меня он выводит не так как нужно.. 0

Length() в билдере

Решение