Заполнение полей Table из Memo

@Светлана_1988 · Регистрация: 23.11.2009

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

Прошу помочь советом.
Дело в том, что мне нужно заполнить поля Table1 из Memo1.
Содержимое Memo1 наподобие такого (некий телефонный справочник):
Авдеев!Петр!Васильевич!25725!ул. К. Маркса, д. 19
Петров!Петр!Петрович!26587!ул. Полярная, д. 27
...
и т.д., количество записей неизвестно, их вводит пользователь в Memo1 построчно.
Мне необходимо вывести в первый столбец Table1 только фамилии, т.е. то, что записано до первого "!". вывести во второй столбец Table1 только имена, т.е. то, что записано между первым и вторым "!" и т.д.
Очень надеюсь на помощь.

@Lord_Voodoo · 24.11.2009, 00:04

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void AnalizeAnswer(AnsiString Text, TStringList* Block, char Delimiter)
{
  AnsiString Str = Text, tmp = "";
  while(!Str.IsEmpty()){
    if(!Str.Pos(AnsiString(Delimiter))) break;
    tmp = ((Str.SubString(1, Str.Pos(AnsiString(Delimiter)) - 1)).TrimLeft()).TrimRight();
    Block->Add(tmp);
    Str.Delete(1, Str.Pos(AnsiString(Delimiter)));
  }
  if(!Str.IsEmpty()){
    tmp = ((Str).TrimLeft()).TrimRight();
    Block->Add(tmp);
  }
}

вот вам функция, которая преобразует вашу строку в TStringList, потом в цикле запишете строки в нужном вам порядке

@Светлана_1988 · 27.11.2009, 22:02 **[ТС]**

Спасибо...
Извините, но я не понимаю немного.. какая строка преобразуется в TStringList? и еще: а в каком порядке будут записаны строки тогда?

Добавлено через 13 минут
В моей программе выполняется сохранение данных в файл таким образом:

C++
1
2
3
4
5
6
7
8
9
{
if (SaveDialog1->Execute())
{
 for (Table1->First();!Table1->Eof;Table1->Next())
 Memo1->Lines->Add(DBEdit2->Text+"!"+DBEdit3->Text+"!"+DBEdit4->Text+"!"+DBEdit5->Text+"!"+DBEdit6->Text);
 Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
Table1->First();
}

где в DBEdit-ы вводят фамилию, имя, отчество, телефон, адрес.
В таблице много записей, следовательно в Memo1 получается много строк однотипных записей, которые записываются в текстовый файл.
Мне необходимо выполнить обратное действие: считывание из Memo1 данных в Table1 (либо в DBEdit-ы).
Вот считывание данных из файла:

C++
1
2
3
4
5
if (OpenDialog1->Execute())
 {
  Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
 }
 Table1->First();

пока все. остальное не могу пока выполнить. надеюсь на помощь. спасибо.

@Lord_Voodoo · 28.11.2009, 11:14

Светлана_1988, вы не умеете вызывать функции? заполните нужные параметры и она все вам сделает, порядок определяете вы сами

@Светлана_1988 · 28.11.2009, 12:45 **[ТС]**

В том то и дело, что не умею. я на C++ Builder никогда не программировала, впервые его запустила. Кроме того я не могу понять зачем мне эта функция? я даже не разбираюсь, что она все-таки делает.

Свою задачу мне удалось реализовать в Delphi 7. Вот что получилось:

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
procedure TForm1.Button1Click(Sender: TObject);
var k:array[1..4] of byte;
    s:string;
    l,i,j,q:byte;
begin
 if OpenDialog1.Execute then
 begin
  table1.First;
  for q:=1 to table1.recordcount do
  begin
   table1.Delete;
   if i<>(table1.recordcount) then table1.Next;
  end;
 end;
 Memo1.Lines.LoadFromFile('text123.txt');
 for j:=0 to memo1.Lines.count do
 begin
 table1.Insert;
  s:=memo1.Lines.Strings[j];
  l:=1;
  for i:=1 to length(s) do
  if s[i]='!' then
  begin
   k[l]:=i;
   l:=l+1;
  end;
  DBEdit1.Text:=copy(s,1,k[1]-1);
  DBEdit2.Text:=copy(s,k[1]+1,k[2]-k[1]-1);
  DBEdit3.Text:=copy(s,k[2]+1,k[3]-k[2]-1);
  DBEdit4.Text:=copy(s,k[3]+1,k[4]-k[3]-1);
  DBEdit5.Text:=copy(s,k[4]+1,length(s)-k[4]);
 end;
 table1.First;
end;
 
Данный код я преобразую в C++ Builder (есть некоторые ошибки):
{
 Integer k[4];
 String s;
 Integer l,i,j,q;
 {
  if (OpenDialog1->Execute())
  {
   Table1->First();
   for (q=1;Table1->RecordCount;q++)
   {
    Table1->Delete();
    if (i!=(Table1->RecordCount))
    {
     Table1->Next();
    }
   }
  }
  Memo1->Lines->LoadFromFile("text123.txt");
  for (j=0;Memo1->Lines->Count;j++)
  {
  Table1->Insert();
  s=Memo1->Lines->Strings[j];
  l=1;
  for (i=1;s.Length();i++)
  if (s[i]='!')
  {
   k[l]=i;
   l=l+1;
  }
  DBEdit1->Text=copy(s,1,k[1]-1);
  DBEdit2->Text=copy(s,k[1]+1,k[2]-k[1]-1);
  DBEdit3->Text=copy(s,k[2]+1,k[3]-k[2]-1);
  DBEdit4->Text=copy(s,k[3]+1,k[4]-k[3]-1);
  DBEdit5->Text=copy(s,k[4]+1,s.length()-k[4]);
 }
 }
 Table1->First();
}

Не знаю как в C++ Builder записывается команда copy, в ней и ошибка. остальное, надеюсь, правильно.
проверьте, пожалуйста, кто знает C++ Builder.
P.S: я не знаю как использовать теги кода. уж, извините...
не будьте со мной так грубы, я же не виновата, что не изучала раньше эту среду программирования...

@Lord_Voodoo · 28.11.2009, 13:03

Светлана_1988, нет функции Copy, зато у AnsiString есть функция SubString - аналог дельфийского copy

@Светлана_1988 · 28.11.2009, 14:43 **[ТС]**

Спасибо большое. Но все равно пока не получается всё.
Вот в этой части кода ошибок при компиляции нет. Но программа "ругается":
"Project D:\программа в C++ Builder\Project1.exe faulted with message: 'access volation at 0x7c9378af: write of address 0x00030ffc'/ Process Stopped/ Use Step or Run to continue."

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
AnsiString s; 
for (j=0;Memo1->Lines->Count;j++)
 {
  Table1->Insert();
  s=Memo1->Lines->Strings[j];
  l=1;
  for (i=1;s.Length();i++)
  if (s[i]='!')
  {
   k[l]=i;
   l=l+1;
  }
  DBEdit1->Text=s.SubString(1,k[1]-1);
  DBEdit2->Text=s.SubString(k[1]+1,k[2]-k[1]-1);
  DBEdit3->Text=s.SubString(k[2]+1,k[3]-k[2]-1);
  DBEdit4->Text=s.SubString(k[3]+1,k[4]-k[3]-1);
  DBEdit5->Text=s.SubString(k[4]+1,(s.Length()-k[4]));
 }

Что это может быть? Может быть, не так описан массив k[l]? или что-то еще..

@Lord_Voodoo · 29.11.2009, 11:46

честно говоря, сложно сказать, что не так в вашем коде, есть подозрение, что вы каким-то образом вылазите за пределы строки... в общем обращаетесь к неинициализированной памяти (трассировка кода это покажет нагляднее)

C++
1
2
3
4
5
6
7
8
9
AnsiString s; 
TStringList lst = new TStringList(); 
for (j=0;Memo1->Lines->Count;j++)
 {
  lst->Clear();
  Table1->Insert();
  AnalizeAnswer(Memo1->Lines->Strings[j], lst, '!');
  //  тут добавляешь полученные подстроки в таблицу   
 }

@Светлана_1988 · 30.11.2009, 21:58 **[ТС]**

Ребят, помогите с программой... Ну, честное слово, не понимаю я что вы мне советуете, даже не знаю куда этот кусок кода вставить в программе.

нашла одну ошибку у себя: if (s[i]=='!') , а не if (s[i]='!').
при пошаговой отладке сомнительная ситуация начинается здесь:
for (j=0;Memo1->Lines->Count;j++)
программа видит j++ как j='@', это что значит? как сделать шаг цикла=1?
и еще вопрос - если я пишу: Integer k[4]; это значит, что массив состоит у меня из элементов 0,1,2,3,4 или 1,2,3,4?
k - массив для восклицательных знаков, которых не может быть больше 4, впрочем как и меньше.
k[l] - показывает позицию восклицательного знака в строке (номер элемента).

Выручите кто-нибудь...
никогда в C++ Builder не программировала. в Delphi 7 все работает, видно описываю массивы, либо циклы не так.

@Lord_Voodoo · 30.11.2009, 22:57

Светлана_1988, да я вам все написал, или вы не знаете как обратиться к строке в TStringList?
lst->String[index]

@Светлана_1988 · 06.12.2009, 20:15 **[ТС]**

Спасибо за помощь, Lord_Voodoo

Я справилась сама, своими силами

Если кому понадобится, то вот
(открытие данных из файла, куда внесены данные в следующем виде:
Авдеев!Валерий!Васильевич!21411!ул. Революции, д. 29):

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
{
 Byte k[3];
 AnsiString s;
 if (OpenDialog1->Execute())
 {
  Table1->First();
  int n=Table1->RecordCount;
  for (int q=0;q<n;q++)
  {
   Table1->Delete();
   if (q!=(Table1->RecordCount))
   Table1->Next();
  }
  Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
 }
 int p=Memo1->Lines->Count;
 if (p>0)
 {
  for (int j=0; j<p; j++)
  {
   Table1->Insert();
   s=Memo1->Lines->Strings[j];
   int l=0;
   int z=s.Length();
   for (int i=1;i<z;i++)
   if (s[i]=='!')
   {
    k[l]=i;
    l=l+1;
   }
   DBEdit1->Text=s.SubString(1,k[0]-1);
   DBEdit2->Text=s.SubString(k[0]+1,k[1]-k[0]-1);
   DBEdit3->Text=s.SubString(k[1]+1,k[2]-k[1]-1);
   DBEdit4->Text=s.SubString(k[2]+1,k[3]-k[2]-1);
   DBEdit5->Text=s.SubString(k[3]+1,(s.Length()-k[3]));
  }
  Table1->First();
 }
}

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Светлана_1988 300 / 76 / 6 Регистрация: 23.11.2009 Сообщений: 25

	Заполнение полей Table из Memo 23.11.2009, 21:04. Показов 4947. Ответов 10 Метки нет (Все метки) Прошу помочь советом. Дело в том, что мне нужно заполнить поля Table1 из Memo1. Содержимое Memo1 наподобие такого (некий телефонный справочник): Авдеев!Петр!Васильевич!25725!ул. К. Маркса, д. 19 Петров!Петр!Петрович!26587!ул. Полярная, д. 27 ... и т.д., количество записей неизвестно, их вводит пользователь в Memo1 построчно. Мне необходимо вывести в первый столбец Table1 только фамилии, т.е. то, что записано до первого "!". вывести во второй столбец Table1 только имена, т.е. то, что записано между первым и вторым "!" и т.д. Очень надеюсь на помощь. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	28.11.2009, 11:14
	Светлана_1988, вы не умеете вызывать функции? заполните нужные параметры и она все вам сделает, порядок определяете вы сами 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	28.11.2009, 13:03
	Светлана_1988, нет функции Copy, зато у AnsiString есть функция SubString - аналог дельфийского copy 0

@Светлана_1988 300 / 76 / 6 Регистрация: 23.11.2009 Сообщений: 25
	30.11.2009, 21:58 [ТС]
	Ребят, помогите с программой... Ну, честное слово, не понимаю я что вы мне советуете, даже не знаю куда этот кусок кода вставить в программе. нашла одну ошибку у себя: if (s[i]=='!') , а не if (s[i]='!'). при пошаговой отладке сомнительная ситуация начинается здесь: for (j=0;Memo1->Lines->Count;j++) программа видит j++ как j='@', это что значит? как сделать шаг цикла=1? и еще вопрос - если я пишу: Integer k[4]; это значит, что массив состоит у меня из элементов 0,1,2,3,4 или 1,2,3,4? k - массив для восклицательных знаков, которых не может быть больше 4, впрочем как и меньше. k[l] - показывает позицию восклицательного знака в строке (номер элемента). Выручите кто-нибудь... никогда в C++ Builder не программировала. в Delphi 7 все работает, видно описываю массивы, либо циклы не так. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	30.11.2009, 22:57
	Светлана_1988, да я вам все написал, или вы не знаете как обратиться к строке в TStringList? lst->String[index] 0