Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Вниз

Мастера, помогите, почему у меня в цикле не   Найти похожие ветки 

 
Yuraz   (2003-07-25 10:24) [0]

Дело такое, есть текст, преобр. в переменную, в этой переменной ищу слово"<period>", нахожу, отрезаю начало переменной от конца слова "<period>", далее ищу это слово вновь, и т.д, запоминаю координаты вхождения. Идея вроде правильная, да вот реализовываю не правильно, всё время находит первое вхождение, и переменную не режет. :(


 
Yuraz   (2003-07-25 10:25) [1]

Да, код забыл привести, как делаю:

st:=Memo1.Text;

while Pos("<period>",st)>0 do
begin
a:=Pos("<period>",st);
showmessage(IntToStr(a));
Delete(st,0,a+8);
end;


 
Lord Warlock   (2003-07-25 10:32) [2]

a:=Pos("<period>",st);
while а>0 do
begin
a:=Pos("<period>",st);
showmessage(IntToStr(a));
Delete(st,0,a+8);
end;


 
Leshiy   (2003-07-25 10:32) [3]

...
Delete(st, 1,a+8);
...


 
Lord Warlock   (2003-07-25 10:32) [4]

a:=Pos("<period>",st);
while а>0 do
begin
showmessage(IntToStr(a));
Delete(st,0,a+8);
a:=Pos("<period>",st);
end;


 
Yuraz   (2003-07-25 10:38) [5]

Спасибо за помощь!


 
Leshiy   (2003-07-25 11:00) [6]

из хелпа
Delete removes a substring of Count characters from string S starting with S[Index]. S is a string-type variable. Index and Count are integer-type expressions.

If index is larger than the length of the S or less than 1, no characters are deleted.

If count specifies more characters than remain starting at the index, Delete removes the rest of the string. If count is less than 0, no characters are deleted.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.012 c
3-20378
Silver_
2003-07-15 11:01
2003.08.07
SQL: Group By <MM> | <YYYY>


11-20459
lamachok
2002-12-01 22:41
2003.08.07
Трей


4-20844
deadfrog
2003-06-05 11:42
2003.08.07
ShellExecute


3-20395
Viktor
2003-07-16 10:19
2003.08.07
SQL


14-20766
Сатир
2003-07-19 16:09
2003.08.07
сабж





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский