VPF::TStringList и string - Форум программистов

Mr.Floppy

Дата 24.7.2006, 02:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 106
Регистрация: 3.7.2006
Где: Москва

Репутация: 1
Всего: 1

Есть строка (string) примерно следующего содержания: 'Строка 1'+#13#10+'Строка 2'+#13#10+'Строка 3'...
Каким образом эту строку лучше перегнать в TStringList?
Если ли какая-нибудь функция, реализующая это, или надо городить с циклами, Pos'ами и т.п.?
Add(string) добавляет одной строкой, а мне надо обращаться к ним, как к массиву.

Bose

Дата 24.7.2006, 02:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

У TstringList есть свойство, что-то типа Delimiter которое отвечает за то, какой символ используется в качестве разделителя.

Можно сделать так:
Заменить в строке все #13#10 на какой-нибудь малоиспользуемый текст(можно вообще выбрать "непечатный" символ типа chr(1)).
Сделать этот симол разделителем в TstringList.Delimiter:=chr(1)
А дальше сделать так: TstringList.DelimitedText:=строка с заменёнными символами.

к сожалению точных названий ф-ций сейчас не вспомню. Но когда-то я вполне успешно использовал подобный подход.

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

Mr.Floppy

Дата 24.7.2006, 03:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 106
Регистрация: 3.7.2006
Где: Москва

Репутация: 1
Всего: 1

Спасибо, работает

bazzzman

Дата 24.7.2006, 07:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 24.7.2006

Репутация: 0
Всего: 2

Не понимаю, чем не нравится свойство CommaText?

Код


procedure TForm1.Button1Click(Sender: TObject);
var s: String; sl: TStringList;
begin
s := '1'#13#10 + '2'#13#10;

sl := TStringList.Create;
sl.CommaText := s;

ShowMessage(IntToStr(sl.Count));

sl.Free;
end;

Отлично работает + легче чем с Delimiter.

Это сообщение отредактировал(а) bazzzman - 24.7.2006, 07:33

Romikgy

Дата 24.7.2006, 11:02 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(bazzzman @ 24.7.2006, 06:28

)

sl.CommaText := s;

можно проще

Код


sl.Text := s;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »