Недавно добавленные исходники

•  3D Designer  86

•  Sik Screen Capture  68

•  Patch Maker  63

•  Айболит (remote control)  75

•  ListBox Drag & Drop  64

•  Доска для игры Реверси  958

•  Графические эффекты  73

•  Рисование по маске  52

•  Перетаскивание изображений  59

•  Canvas Drawing  54

•  Рисование Луны  137

•  Поворот изображения  44

•  Рисование стержней  39

•  Paint on Shape  35

•  Генератор кроссвордов  49

•  Головоломка Paletto  51

•  Теорема Монжа об окружностях  99

•  Пазл Numbrix  46

•  Заборы и коммивояжеры  68

•  Игра HIP  52

•  Игра Go (Го)  45

•  Симулятор лифта  46

•  Программа укладки плитки  47

•  Генератор лабиринта  90

•  Проверка числового ввода  38

•  HEX View  93

•  Физический маятник  96

•  Задача коммивояжера  123

•  Автомобильная пробка  47

•  Квадратные сетки из слов  40

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Простое использование TParser



Автор: Mike Scott

...можно ли с помощью TParser "вытащить" из строки целочисленные значения, разделенные между собой пробелом, например, из строки '345 998 223 546 777' получить пять чисел?

Как этот пример? Он парсирует текст из поле редактирования с именем Edit1 и помещает полученные числа с список с именем Listbox1:


procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TStream;
  s: string;
begin
  Stream := TMemoryStream.Create;
  try
    { получаем текст области редактирования и помещаем его в поток }
    s := Edit1.Text;
    Stream.WriteBuffer(s[1], length(s));
    { сбрасываем стартовую позицию потока и создаем парсер }
    Stream.Position := 0;
    with TParser.Create(Stream) do
    try
      { "добываем" числа и добавляем их в список }
      while Token <> toEOF do
      begin
        CheckToken(toInteger); { возбуждаем исключение, если не toInteger }
        Listbox1.Items.Add(IntToStr(TokenInt));
        NextToken;
      end;
    finally
      Free;
    end;
  finally
    Stream.Free;
  end;
end;

Как вы можете видеть, бОльшая часть кода тривиальна: работа с потоком, его создание и освобождение, и парсер, естественно, с обработкой ошибок<g>. CheckToken проверяет, является ли текущий признак ожидаемым, и, если нет, генерирует исключительную ситуацию. В нашем случае мы ищем целые (toInteger), и читаем их из TParser.TokenInt. Просто!








Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter