[santaIsAbsent]

Доброго врмени суток.

Есть такая задача. Нужно найти индекс 4-го вхождения "," в строке. Т.е. есть строка, слова в которой разделены запятыми и нужно найти индекс четвертой запятой в этой строке. Как это можно сделат?

Заранее спасибо.

[friz]

ну самый простой способ:

Код:

k:=0;
index:=0;

for i:=1 to length(str) do

  if str[i]=',' then begin k:=k+1;
                               if k=4 then Index:=k;
                       end;

[santaIsAbsent]

Большое человеческое СПАСИБО!!!

[Страдалецъ]

Я думаю так будет несколько правильнее:

Код:

k:=0;
index:=0;

for i:=1 to length(str) do

  if str[i]=',' then begin k:=k+1;
                               if k=4 then begin
                                              Index:=i;
                                              Break;   
                                              end;
                       end;