Буква в i-ом слове строки.

[Nicole]

Прошу помочь новичку-самоучке.
Задача звучит так: дана строка символов. определить, содержит ли k-ое слово строки заданную букву.
нужен только алгоритм определения, а там я уже его сама встрою куда надо... Никак дойти до меня не может, как сделать так, чтобы прога сохраняла длины всех слов и потом без проблем находила нужное...

[eduard93]

Как насчет динамического массива?

[Nicole]

В смысле, к примеру, взять стринггрид, туда поместить эти самые символы и сверять? Ну да, так я смогу найти порядковый номер каждого слова... А вот как в стринггриде проверять наличие заданной буквы? Постоянно присваивать значение элемента массива эдиту?

[Don Karleone]

var 
  ST: string;
  Count, p: integer;

begin
  p:=pos(' ', ST);
  Count:=0;
  while p <> 0 do
    begin
      str:=copy(ST, 1, p);
      Delete(str, 1, p);
      if not ((Length(str) = 1) and (str[1] = ' ')) then Inc(Count);
      if Count = 6 then break;
      p:=pos(' ', ST);
    end;
  if (Count = 5) and (Length(ST) <> 0) then str:=st;
  
  // теперь в строке str находится 6-е слово
end;

вроде так, при условии что строка содержит 6 или более слов и слова разделены пробелами. Хотя код не проверял.
Вообще алгоритм простой: разбиваете строку на слова с целью выбрать из нее k-е слова. Ну а потом в этом слове ищите заданную букву. В приведенном коде k = 6.

[Nicole]

О! Спасибо огромное! Ничего, если что, сама подправлю. Главное, что основа для размышлений есть.

[SERG1980]

Если на делфи надо то проще пользоваться TStringList