Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как отловить запятую

Автор: ZBugz 23.8.2006, 09:56

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

Автор: Romikgy 23.8.2006, 10:11

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

Автор: volvo877 23.8.2006, 10:13

Можешь через 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

Цитата(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