Главная страница
    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.009 c
7-20821
Lord Vader
2003-05-26 04:56
2003.08.07
Длинные имена в DOS


14-20775
dataMaster
2003-07-21 16:44
2003.08.07
Вложить файл в почтовую программу, уст. по-умолчанию


1-20618
Pauk
2003-07-24 13:23
2003.08.07
Combobox и размещение DropedDown-списка


14-20671
Igor__
2003-07-22 16:27
2003.08.07
Винчестер


3-20415
KIR
2003-07-16 17:08
2003.08.07
Ограниченные возможности SQL в BDE...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский