Работа с указателями в словах (символах)

[Des]

Здравствуйте!
В гугле искал, искал, но там только про указатели для работы с памятью.
Помню читал что то примерно такого рода: процедура (функция) служит для перемещения указателя в строке....
В общем задание я себе дал такое найти в слове "questкве ст" пробел.
Как это реализовать?
Примерно код нужен такого содержания.
1) помещаем курсор за первый символ
2) выделяем этот символ
3) если символ не равн " " (пробел) тогда переходим на следющий символ
Пожалуйста если можно дайте почитать документацию, найти сам ничег оне смог.

[mihali4]

Для поиска символов в строке есть функция Pos().

[VVM]

1) помещаем курсор за первый символ
2) выделяем этот символ
3) если символ не равн " " (пробел) тогда переходим на следющий символ

Зачем так мучиться...

procedure TForm1.Button1Click(Sender: TObject);
var
  P: integer;
begin
  P := pos(' ', 'questкве ст');
  if P <> 0 then
    ShowMessage('Пробел есть, номер символа ' + IntToStr(P));
end;

[Des]

Сообщение от VVM

Зачем так мучиться...

Так нужно, Pos не катируется. Мне надо именно все сложно) Тоесть занести строку (слвоо) в память и там творить переходы курсора и выделения, удаления =)

[evg_m]

нормальный (правильный) вариант для Delphi
var s: string;
for j:=1 to length(s) do
if s[j]=' ' then нашли ;

вариант в стиле С (за правильность не уверен)
var s: Pchar;
while s<>#0 do
if s=' ' then нашли else inc(s);