VPF::Как отловить запятую - Форум программистов

ZBugz

Дата 23.8.2006, 09:56 (ссылка)

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

Загрузка ...

Опытный

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

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

Привет.
Вот такой вопрос: А как отловить запятую в строке и вычитать значение за ним, и так далее до конца.
К примеру вот таккая строка: *.*, *.exe, *.bat, *.txt и т.д.
Мнре нужно отловить заданные расширения.
Только прошу пример пожайлуста. smile

Romikgy

Дата 23.8.2006, 10:11 (ссылка)

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

Загрузка ...

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

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

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

pos({строка},','); возвращает где нашло или 0 если не нашло

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

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

volvo877

Дата 23.8.2006, 10:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Можешь через Pos, можешь засунуть эту строку в TStringList.DelimitedText, установить Delimiter в ',' и считывать строки из Strings... Вот так:

Код

Var SL: TStringList;
...
  SL := TStringList.Create;
  SL.DelimitedText := '*.bat, *.exe, *.txt';
  SL.Delimiter := ',';
  for i := 0 to SL.Count-1 do
    memo1.Lines.Add(SL.Strings[i]);
  SL.Free;

ZBugz

Дата 23.8.2006, 10:33 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(volvo877 @ 23.8.2006, 10:13)

Код

Var SL: TStringList;
...
  SL := TStringList.Create;
  SL.DelimitedText := '*.bat, *.exe, *.txt';
  SL.Delimiter := ',';
  for i := 0 to SL.Count-1 do
    memo1.Lines.Add(SL.Strings[i]);
  SL.Free;

Спасибки, то что надо smile

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