Преобразование строки в масив

@Chaps · Регистрация: 27.05.2010

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

Какое имя функции что би представить строку в Memo как масив,если разделитель знак табуляции??

@Maestro · 28.05.2010, 10:04

Chaps, Можно так.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TSysCharSet chTab;
  chTab<<'\t';
 
  TStringList *TokenTab = new TStringList();
 
  String str = "Некоторая строка\t разделённая табуляторами.\t Проверка\t работает.";
  ExtractStrings(chTab, chTab, str.c_str(), TokenTab);
 
  ShowMessage(TokenTab->Text);
 
  delete TokenTab;
}
//---------------------------------------------------------------------------
...

@Chaps · 28.05.2010, 14:33 **[ТС]**

Спасибо, Maestro, сейчас попробую..

@Chaps · 29.05.2010, 14:55 **[ТС]**

Не выходит у меня..
кароч вот фрагмент моей програмы, подскажите как ее осуществить..
суть в том что ми читаем из Memo строку разделеную знаком табуляции(строка таблицы) и представляем ее как масив для того что бы определить подходять ли данные находящиеся в 3 столбце условию if (2010-StrToInt(mas[2]))>65

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString s; int i,j=1;
for (i=0; i<Memo1->Lines->Count; i++){
s=Memo1->Lines[i];
//Здесь должна быть функция которая строку s представляет как масив mas[], что бы потом я мог провести отбор для 3 елемента..
if (2010-StrToInt(mas[2]))>65){
StringGrid1->Cells[k][j]=IntToStr(j);
for (int k=1; k<6; k++)
StringGrid1->Cells[k][j]=mas[k];
j++;}
if (j==1)ShowMessage("Викладачі пенсійного віку відсутні");
StringGrid1->Visible=true;
Label7->Visible=true;

@Roma_F · 29.05.2010, 15:31

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

Не выходит у меня..

а вы пробовали?

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

if (2010-StrToInt(mas[2]))>65)

C++
1
if (2010-StrToInt(TokenTab->Strings[2]))>65)

@Chaps · 29.05.2010, 16:25 **[ТС]**

я сделал вот так, но запрос работает только для одной строки, если в Memo больше чем 1 строка то вибивает ошибку: Access violation at address 00000000. Read of address 000000000. Почему?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{
AnsiString s,mas[5]; int k,i,j=1;
{
  TSysCharSet chTab;
  chTab<<'\t';
 
  TStringList *TokenTab = new TStringList();
for (i=0; i<Memo1->Lines->Count; i++){
  String str=Memo1->Lines[i].Text ;
  ExtractStrings(chTab, chTab, str.c_str(), TokenTab);
                                                            }
 if (2010-StrToInt(TokenTab->Strings[2])>65)
{
StringGrid1->Cells[k][j]=IntToStr(j);
for (int k=0; k<6; k++)
StringGrid1->Cells[k+1][j]=TokenTab->Strings[k];
j++;}
if (j==1)ShowMessage("Викладачі пенсійного віку відсутні");
  delete TokenTab;
}

@Roma_F · 29.05.2010, 16:35

трудно найти логику в этой куче - такое впечатление что фигурные скобки живут своей жизнью
оформите нормально код

@Chaps · 30.05.2010, 15:08 **[ТС]**

Так пойдет?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString s,mas[5]; int k,i,j=1;
{ TSysCharSet chTab;
chTab<<'\t';
 
TStringList *TokenTab = new TStringList();
for (i=0; i<Memo1->Lines->Count; i++){
String str=Memo1->Lines[i].Text ;
ExtractStrings(chTab, chTab, str.c_str(), TokenTab);}
//  ShowMessage(TokenTab->Text);
if (2010-StrToInt(TokenTab->Strings[2])>65)
{ StringGrid1->Cells[k][j]=IntToStr(j);
for (int k=0; k<6; k++)
StringGrid1->Cells[k+1][j]=TokenTab->Strings[k];
j++;}
if (j==1)ShowMessage("Âèêëàäà÷³ ïåíñ³éíîãî â³êó â³äñóòí³");
delete TokenTab;}}

@Roma_F · 30.05.2010, 16:03

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

Так пойдет?

ничего не изменилось

вот ваш код

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
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    AnsiString s,mas[5];
    int k, i, j=1;
    {
        TSysCharSet chTab;
        chTab<<'\t';
 
        TStringList *TokenTab = new TStringList();
        for (i=0; i<Memo1->Lines->Count; i++)
        {
            String str = Memo1->Lines[i].Text ;
            ExtractStrings (chTab, chTab, str.c_str(), TokenTab);
        }
 
        if (2010-StrToInt(TokenTab->Strings[2])>65)
        {
            StringGrid1->Cells[k][j] = IntToStr(j);
            for (int k=0; k<6; k++)
                StringGrid1->Cells[k+1][j]=TokenTab->Strings[k];
            j++;
        }
        if (j==1)
            ShowMessage("Викладачі пенсійного віку відсутні");
 
        delete TokenTab;
    }
}

так сразу становится яснее что происходит в программе
зачем фигурная скобка после "int k, i, j=1;"
в первом цикле проходятся все строки, но потом берётся солбец только из первой строки (TokenTab->Strings[2])

@Chaps · 30.05.2010, 17:45 **[ТС]**

Спасибо!
Можешь помочь пожалуйста как сделать что бы стодбец 2, брался не только с первой строки, а и с всех что есть?

@Roma_F · 30.05.2010, 23:06

если я правильно понял задачу (сомневаюсь насчёт переменной j), то выглядеть будет где-то так

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
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    TSysCharSet chTab;
    chTab << '\t';
 
    for (int i = 0; i < Memo1->Lines->Count; i++)
    {
        TStringList *TokenTab = new TStringList();
 
        String str = Memo1->Lines[i].Text;
        ExtractStrings (chTab, chTab, str.c_str(), TokenTab);
 
        if (TokenTab->Count < 6)
        {
            ShowMessage("Ошибка чтения столбцов таблицы");
            return;
        }
 
        if (2010 - StrToInt(TokenTab->Strings[2]) > 65)
        {
            StringGrid1->Cells[k][i+1] = IntToStr(i+1);
            for (int k = 0; k < 6; k++)
                StringGrid1->Cells[k + 1][i+1] = TokenTab->Strings[k];
        }
        else
        {
            ShowMessage("Викладачі пенсійного віку відсутні");
        }
 
        delete TokenTab;
    }
}

работоспособность я естественно не проверял

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Chaps 0 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 6

	Преобразование строки в масив 27.05.2010, 20:11. Показов 1622. Ответов 10 Метки нет (Все метки) Какое имя функции что би представить строку в Memo как масив,если разделитель знак табуляции?? 0

@Chaps 0 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 6
	28.05.2010, 14:33 [ТС]
	Спасибо, Maestro, сейчас попробую.. 0

@Roma_F 332 / 247 / 32 Регистрация: 13.12.2009 Сообщений: 589
	29.05.2010, 16:35
	трудно найти логику в этой куче - такое впечатление что фигурные скобки живут своей жизнью оформите нормально код 0

@Chaps 0 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 6
	30.05.2010, 17:45 [ТС]
	Спасибо! Можешь помочь пожалуйста как сделать что бы стодбец 2, брался не только с первой строки, а и с всех что есть? 0