Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

поиск подстроки POS [D7, XP]

Leshas0 © (2007-05-14 11:56:00)
Добрый день!

столкнулся с простой задачей, но в чём проблема не могу понять.

есть переменная buf: string[255];

нужно найти знак ";" (тчк с зпт).

Делаю так:
while Pos (';', buf) > 0 do
begin
tmp := concat (tmp, buf[i]);
end;

Delphi показывает ошибку:
Missing operator or semicolon

В чём м.б. проблема?

Спасибо!

pavel_guzhanov (2007-05-14 13:56:00) [1]
Покажи весь код, а не только цикл, тогда можно будет что-то сказать...

leshas0 (2007-05-14 13:43:00) [2]
Удалено модератором
Примечание: Как сказал, так и будет

Плохиш (2007-05-14 13:08:00) [3]

> leshas0 © (14.05.07 12:55) [6]

Не люблю врунов...

leshas0 (2007-05-14 12:55:00) [4]
всё поставлено.
основы синтаксисы выучены.

Плохиш (2007-05-14 12:49:00) [5]

> leshas0 © (14.05.07 12:25) [4]
> но дельфи ссылается именно на Pos (';', buf) > 0

Потому что в предыдущей строке точка с запятой, оканчивающие в паскале оператор, не поставлены, пора бы уже и прочитать основы синтаксиса используемого языка программирования...

leshas0 (2007-05-14 12:25:00) [6]
но дельфи ссылается именно на Pos (';', buf) > 0 :(

MBo (2007-05-14 12:23:00) [7]
В этой строке ошибки (синтаксической) нет, ищи выше по тексту

leshas0 (2007-05-14 12:12:00) [8]
дело не в concat, в ошибке при вызове функции Pos

while Pos (';', buf) > 0do // !!!!!!!! ОШИБКА В ЭТОЙ СТРОКЕ
begin
// дальнейшие действия
end;

В мануале именно столько аргументов. Что ещё хочет Delphi я не пойму.

MBo (2007-05-14 12:05:00) [9]
вместо Concat можно использовать +
tmp := tmp + buf[i];

А код вообще-то странный, и не особо соответствует заявленной задаче, и цикл бесконечный.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »