Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с алгоритмом

Страницы: < 1 2 3 4
WebSQLNeederr © (2008-06-02 21:24:00)
Есть подстрока {VARS=value1;value2;value3} которая находится в тексте txt

Теперь нужно ... ну найти эту строку не проблема:

i:=pos('{',txt);j:=pos('}',txt);
str:=copy(str,i,j-i);

Ну а дальше все опять пос-ами искать value1, value2, value3 ... ? А если я не знаю сколько всего этих валуе будет? Помогите с алгоритмом. Как это сделать? В массив? Или как? Если не сложно напишите код ... Буду очень благодарен ... ато у меня этими посами такие нагромождения, что запутываюсь да и когда становится вопрос о количестве валуев то ухожу в ступор ...

WebSQLNeederr (2008-06-03 20:25:00) [61]
Вот как я написал:

function cript(str:string):TStringList;
var i:integer;s:string;
begin
cript:=TStringList.Create; s:=str; i:=pos('}',s); s:=copy(s,7,i-7);
while pos(';',s)<>0 do
begin
i:=pos(';',s); cript.Add(copy(s,0,i-1)); s:=copy(s,i+1,length(s)-i);
end;
end;

...

var data:TStringList;
begin
data:=TStringList.Create;
data:=cript('{VARS=100;50;30;}');
END;

Но это мой алгоритм, я уверен, есть более простой алгоритм ... Мне не нравится что у меня через стринглист ...

AndreyV (2008-06-03 19:16:00) [62]
Чем не нравится
> [1] engine © (02.06.08 21:41)

Anatoly Podgoretsky (2008-06-03 18:54:00) [63]
> WebSQLNeederr (03.06.2008 18:53:10) [10]

На слабо берешь?

WebSQLNeederr (2008-06-03 18:53:00) [64]

> Извини, но ты уже много месяцев повторяешь эти слова. И
> не реагирушь на советы почитать учебник. Ну сколько можно
> попрошайничать? С такой позицией ты не выживешь в реальной
> жизни.
> Примите и прочь.

Блин вы тут сидите сутками наверное программируете и вам всем легко бросаться фразами - иди справку прочитай. Мне же если раз в месяц за делфи для нужд сесть нужно то что мне тратить еще пол месяца на обучение?

PS. В принципе алгоритм я написал и он работает - но он сильно громоздкий, я думал может вы помогли бы. Не ну есть ведь такие люди им нравится программировать ... я наверное ошибся это не про вас ...

Германн (2008-06-03 01:43:00) [65]

> Anatoly Podgoretsky © (03.06.08 01:41) [8]
>
> > Германн (03.06.2008 0:37:07) [7]
>
> Папа с мамой будут кормить до пенсии, а так уже выживет.
>
>

Папа с мамой - это святое. Но на форуме я его уже не воспринимаю.

Anatoly Podgoretsky (2008-06-03 01:41:00) [66]
> Германн (03.06.2008 0:37:07) [7]

Папа с мамой будут кормить до пенсии, а так уже выживет.

Германн (2008-06-03 00:37:00) [67]

> Если не сложно напишите код ... Буду очень благодарен ..
> .

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

WebSQLNeederrr (2008-06-02 22:28:00) [68]
Буду очень благодарен ...

WebSQLNeederrr (2008-06-02 21:52:00) [69]
не ну если не сложно приведите пример ... ато у меня уже голова болит :(

Anatoly Podgoretsky (2008-06-02 21:48:00) [70]
> engine (02.06.2008 21:41:01) [1]

Алгоритм простой - разделять по разделителям.

engine (2008-06-02 21:45:00) [71]
А в [1] и есть алгоритм.

WebSQLNeederrr (2008-06-02 21:43:00) [72]
с алгоритмом прошу помочь ...

engine (2008-06-02 21:41:00) [73]
TStringList + F1

Страницы: < 1 2 3 4

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »