ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / array of TStrings ???
11 сообщений из 11, страница 1 из 1
array of TStrings ???
    #32358599
Юрец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юрец
Участник
Ребята как создать динамический массив типа TStrings или TStringList.
...
Рейтинг: 0 / 0
19.12.2003, 18:25
| Ответить | Цитировать | Написать  
array of TStrings ???
    #32358601
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
если массив стринглистов - TCollection ...
...
Рейтинг: 0 / 0
19.12.2003, 18:28
| Ответить | Цитировать | Написать  
array of TStrings ???
    #32358604
Юрец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юрец
Участник
а что такое TCollection ?
...
Рейтинг: 0 / 0
19.12.2003, 18:30
| Ответить | Цитировать | Написать  
array of TStrings ???
    #32358605
m_kus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_kus
Гость
а что тебя останавливает? пиши:
Код: plaintext
1.
var
  x:array of TStrings;
...
Рейтинг: 0 / 0
19.12.2003, 18:31
| Ответить | Цитировать | Написать  
array of TStrings ???
    #32358611
Юрец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юрец
Участник
Эта строчка проходит в Делфи, но при первом же обращении к массиву программа выдает ошибки. Если просто создать переменную типа TString ее создать строкой типа: Peremennaja:=TStringList.Create; После этого все заработает, а вот с массивом не знаю как.
...
Рейтинг: 0 / 0
19.12.2003, 18:37
| Ответить | Цитировать | Написать  
array of TStrings ???
    #32358615
m_kus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_kus
Гость
Давай пиши, какие ошибки выдаёт...
А лучше подробно опиши задачу и версию Delphi - тебе убедительно докажут, что нужно использовать TCollection...
В какой строке ошибка, нам домысливать что-ли?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
 var x:array of TStrings; i:integer;
begin
  SetLength(x, 10 );
  try
    for i:= 0  to  9  do x[i]:=TStringList.Create;
  finally
    Finalize(x);
  end;
end;
...
Рейтинг: 0 / 0
19.12.2003, 18:41
| Ответить | Цитировать | Написать  
array of TStrings ???
    #32358616
Юрец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юрец
Участник
Я пишу на Делфи 7.
после твоего кода дописываю строчку:

x[0].Add('sds');

Сразу возникает ошибка:

Access violationat adress 005513D3 in module 'Project.exe'. Read of adress 00000000
...
Рейтинг: 0 / 0
19.12.2003, 18:47
| Ответить | Цитировать | Написать  
array of TStrings ???
    #32358746
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
так а создавать экземпляр класса за тебя кто будет?
...
Рейтинг: 0 / 0
20.12.2003, 03:34
| Ответить | Цитировать | Написать  
array of TStrings ???
    #32358751
Lt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lt
Гость
Если надо хранить несколько строк в ячейке используй Array of TStringList
он переопределяет методы TStrings(Add и т.д. - абстрактные методы) - все работает.
...
Рейтинг: 0 / 0
20.12.2003, 06:15
| Ответить | Цитировать | Написать  
array of TStrings ???
    #32358753
я
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
я
Гость
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils,classes;

var
s:TStrings;
i:Integer;
begin
s:=TStringList.Create;
try
s.Add('Hello ');
s.Add('world!');
for i:=0 to s.Count-1 do
write(s );
s.Clear;
finally
s.Free;
end;
readln;
end.
...
Рейтинг: 0 / 0
20.12.2003, 06:26
| Ответить | Цитировать | Написать  
array of TStrings ???
    #32359315
m_kus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_kus
Гость
ЮрецЯ пишу на Делфи 7.
после твоего кода дописываю строчку:

x[0].Add('sds');

Сразу возникает ошибка:

Access violationat adress 005513D3 in module 'Project.exe'. Read of adress 00000000
У меня Delphi 6 и такой код проходит без ошибок:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
var x:array of TStrings; i:integer;
begin
  SetLength(x, 10 );
  try
    for i:= 0  to  9  do x[i]:=TStringList.Create;
    x[ 0 ].Add('sds');
    ShowMessage(x[ 0 ][ 0 ]);
  finally
    for i:= 0  to  9  do try x[i].Free; except {} end;
    Finalize(x);
  end;
...
Рейтинг: 0 / 0
22.12.2003, 10:04
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / array of TStrings ???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]