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 тут как бы и не нужна совсем, я ее ввел просто для наглядности.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

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

@volvo Супер-модератор 33192 / 21488 / 8233 Регистрация: 22.10.2011 Сообщений: 36,872 Записей в блоге: 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() в билдере

Решение