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

← →
WebSQLNeederr (2008-06-02 21:24) [0]

Есть подстрока {VARS=value1;value2;value3} которая находится в тексте txt

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

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

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

← →
engine © (2008-06-02 21:41) [1]

TStringList + F1

← →
WebSQLNeederrr (2008-06-02 21:43) [2]

с алгоритмом прошу помочь ...

← →
engine © (2008-06-02 21:45) [3]

А в [1] и есть алгоритм.

← →
Anatoly Podgoretsky © (2008-06-02 21:48) [4]

> engine (02.06.2008 21:41:01) [1]

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

← →
WebSQLNeederrr (2008-06-02 21:52) [5]

не ну если не сложно приведите пример ... ато у меня уже голова болит :(

← →
WebSQLNeederrr (2008-06-02 22:28) [6]

Буду очень благодарен ...

← →
Германн © (2008-06-03 00:37) [7]

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

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

← →
Anatoly Podgoretsky © (2008-06-03 01:41) [8]

> Германн (03.06.2008 0:37:07) [7]

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

← →
Германн © (2008-06-03 01:43) [9]

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

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

← →
WebSQLNeederr (2008-06-03 18:53) [10]

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

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

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

← →
Anatoly Podgoretsky © (2008-06-03 18:54) [11]

> WebSQLNeederr (03.06.2008 18:53:10) [10]

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

← →
AndreyV © (2008-06-03 19:16) [12]

Чем не нравится
> [1] engine © (02.06.08 21:41)

← →
WebSQLNeederr (2008-06-03 20:25) [13]

Вот как я написал:

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 20:32) [14]

> [13] WebSQLNeederr (03.06.08 20:25)

Смотри в TStringList
Delimiter
DelimitedText

← →
Palladin © (2008-06-03 23:54) [15]

>WebSQLNeederr (03.06.08 18:53) [10]

ах мы тут сутками сидим и программируем, а ты бедняжко, программируешь час в день, а мы такие негодники тебе помочь не можем. ну так скажи начальству, что не можешь ты целый час в день программировать, программист вам на фирму нужен, он и будет заниматься своими прямыми делами, программированием, а ты своими прямыми делами...

но поверь, метла принесет тебе дохода куда больше чем программирование... отсюда же и чистота на улицах... приятно, черт возьми...

← →
Ляпа (2008-06-04 00:01) [16]

> Palladin © (03.06.08 23:54) [15]

И что? Я программирую от силы час в месяц. Работа у всех разная однако...

← →
sniknik © (2008-06-04 00:10) [17]

> Мне же если раз в месяц за делфи для нужд сесть нужно то что мне тратить еще пол месяца на обучение?
совершенно не нужно тратить! ты прав.
есть программисты которые этому учились, этим занимаются, и этим зарабатывают...

не умею на машине ездить, и что теперь, изза раза в месяц когда выпадает возможность проехаться тратить 2 месяца на курсах и еще экзамены на права сдавать?

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

> Я программирую от силы час в месяц. Работа у всех разная однако...
вот и занимайся ей. а час в месяц добавь к отдыху.

← →
Ляпа (2008-06-04 00:33) [18]

> sniknik © (04.06.08 00:10) [17]

А я у кого-то советов прошу, что мне делать и как?

← →
Игорь Шевченко © (2008-06-04 00:42) [19]

> Мне же если раз в месяц за делфи для нужд сесть нужно то
> что мне тратить еще пол месяца на обучение?

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

← →
MsGuns © (2008-06-04 00:55) [20]

>Мне же если раз в месяц за делфи для нужд сесть нужно то что мне тратить еще пол месяца на обучение?

"В Делфи хожу редко - только по большой нужде" (с)

← →
sniknik © (2008-06-04 00:58) [21]

> А я у кого-то советов прошу, что мне делать и как?
советы что делать и как (а также куда идти) прилагаются бесплатно к рассуждениям на тему "работа у всех разная однако..., вашу мы сделаем по вашим же ответам в форуме, пусть плохо но ни платить вам за нее ни тратить своего времени обучение (становиться такими же) которое тратили вы, мы не собираемся".

все бы ничего, да только ответы вы пытаетесь выдавить "на жалость" аргументируя тем, что это не ваша работа... но только желания помочь, даже из жалости, такие аргументы не вызывают, вызывают только раздражение.

← →
Ляпа (2008-06-04 00:59) [22]

> sniknik © (04.06.08 00:58) [21]

Т ыот меня хоть один вопрос в форуме видел?

← →
Ляпа (2008-06-04 01:00) [23]

> sniknik © (04.06.08 00:58) [21]

Ты от меня хоть один вопрос в форуме видел? Не видел. Так фигли наезжаешь заранее?

← →
Германн © (2008-06-04 01:15) [24]

> Ляпа (04.06.08 01:00) [23]
>
>
> > sniknik © (04.06.08 00:58) [21]
>
> Ты от меня хоть один вопрос в форуме видел? Не видел. Так
> фигли наезжаешь заранее?
>

Старая притча о горшке и порке. :)

← →
sniknik © (2008-06-04 01:20) [25]

> Т ыот меня хоть один вопрос в форуме видел?
думаю да. под другим ником. (очень это стало распространено... а ты для "бабочки однодневки" только и успевшей наследить в паре веток, слишком хорошо ориентируешься в местных порядках, значит старожил меняющий ники -> значит ничего святого для тебя нет, и ты наверняка для вопросов пользуешься другим ником, не портить репутацию основному, поругаться(/потролить) не прочь, тоже анонимно естественно.)

> Так фигли наезжаешь заранее?
не заранее, а по поводу... повод смотри начиная с [15]-го поста, на которой ты ответил, и как. да и не "наезжаю" вовсе, а , имхо, адекватно реагирую.

> Старая притча о горшке и порке. :)
вовсе нет.

← →
Германн © (2008-06-04 01:28) [26]

> sniknik © (04.06.08 01:20) [25]
>
> > Старая притча о горшке и порке. :)
> вовсе нет.
>

Значит я не располагаю необходимой и достаточной информацией.
Но и та самая притча до сих пор не потеряла своей актуальности! :)

← →
Ляпа (2008-06-04 02:34) [27]

> sniknik © (04.06.08 01:20) [25]

Т.е. исходя только из своих предположений, ты не поленился накидать мне лягушек за шиворот... Спасибо.

← →
Slym © (2008-06-04 04:53) [28]

WebSQLNeederr (03.06.08 20:25) [13]
утечка памяти

function Fetch(var AInput:string;const ADelim:string;const ADelete:Boolean=true):string; var DelimPos:integer; begin DelimPos:=Pos(ADelim,AInput); if DelimPos=0 then begin Result:=AInput; if ADelete then AInput:=""; end else begin Result:=Copy(AInput,1,DelimPos-1); if ADelete then AInput:=Copy(AInput,DelimPos+length(ADelim),MaxInt); end; end; procedure TForm1.FormCreate(Sender: TObject); var s:string; data:TStringList; begin s:="{VARS=100;50;30;}"; Fetch(s,"{"); s:=Fetch(s,"}"); Fetch(s,"="); data:=TStringList.Create; try while length(s)>0 do data.Add(Fetch(s,";")); Use(data); finally data.Free; end; end;

> ты не поленился накидать мне лягушек за шиворот... Спасибо.
разве тебе? вообщето я имел в виду того лентяя который не хочет тратить "пол месяца" на обучение но желает заниматься программированием раз в месяц, за нас счет как выясняется...
ты просто "попал под горячую руку" т.к. встал на его сторону. ничего личного.

← →
Ляпа (2008-06-04 11:53) [31]

> sniknik © (04.06.08 11:06) [30]

А какие проблемы? Колхоз дело добровольное - помогать никто никого не принуждает. Не вижу причин так нервничать.

> А какие проблемы? Колхоз дело добровольное - помогать никто никого не принуждает.
добровольство в колхозе обоюдное, программировать тоже никто не принуждает, хочеш программируешь не хочеш платишь...
как таксисту. не лезешь вместо него за руль со словами "я и сам в состоянии рулить, чего это я деньги тебе платить должен. ты тока говори какие педали и когда нажимать"... вот это уже наглость. и тот же человек который обучил бы тебя на водителя, при соответствующей просьбе, в этой ситуации попросту пошлет далеко.
не правда? а какая разница с программированием? (кроме того, что учиться дольше)

вот и не стоит оправдываться тем, что "у меня другая работа", просить по этому поводу примеров, т.к. имхо, это уже не "обучение вождению", а попытка разово "доехать на халяву".

> Не вижу причин так нервничать.
ну, так не нервничай.

> Ляпа (04.06.08 00:01) [16]

а ты то тут причем? о тебе речь чтоли? речь идет о конкретном человеке, который с вопросами уровня школы около полугода тусуется на форуме... и строит обиженки, что ему никто не помогает... помоему у человека с головой не в порядке... чего ты к "час в день" прицепился...

> а попытка разово "доехать на халяву".

если бы разово... уровень вопросов от этого персонажа не меняется уже довольно продолжительное время...

← →
Ляпа (2008-06-04 12:58) [34]

Да я-то как раз не нервничаю.
Аналогия с таксистом кривая. Никакой наглец в форуме физически не может толкнуть под руку и заставить за него что-либо сделать.
Можно заставить не писать в форуме. Принудить писать - способа нет.

← →
Ляпа (2008-06-04 13:01) [35]

> Palladin © (04.06.08 12:57) [33]
>
> > Ляпа (04.06.08 00:01) [16]
>
> а ты то тут причем?

Вообще-то посты sniknik © (04.06.08 01:20) [25] и частично [17] адресованы были мне.

> уровень вопросов от этого персонажа не меняется уже довольно
> продолжительное время...

Так не отвечай, раз не обучается? Кто заставляет?

> Вообще-то посты sniknik © (04.06.08 01:20) [25] и частично
> [17] адресованы были мне.

при чем тут sniknik, я тебе вообще то на [16] ответил...

> Так не отвечай, раз не обучается? Кто заставляет?

а я и не отвечаю, дело не в том, хочу я или нет, отвечать, а в том, что нефик тут писать возмущенные посты, ответы были даны еще в первых постах. иди, дерзай, ах нет? так вы сэр халявщик, что более чем противно в свете не первого раза...

автору поста читать до полного просветления:
http://delphimaster.net/view/16-1208434700/
и не постить возмущенные обиженки

← →
WebSQLNeederr (2008-06-04 13:25) [37]

Это мне кажется некоторые здесь обижены на все и на жизнь в том числе. У меня же настрой всегда позитивный. И я не вижу ничего плохого, что раз на месяц задам пусть и глупый (с точки зрения программиста со стажем) вопрос. Меня программированию никто специально не обучал что бы знать какие то тонкости. Я спросил есть ли хороший алгоритм для того чего я хочу.

Это как аналогия - есть профессиональные автомеханики а есть владельцы автомобиля. Так вот если у механика спросишь например какой топливный насос лучше купить то врядли он начнет пыжится тут и говорить иди в институт изучай строение автомобиля потом иди в библиотеку изучай производителей и так далее ... он просто подскажет совет. По крайней мере мне только такие встречались. Я ж не машину вас отремонтировать попросил ...

Ну да ладно, я в принципе ни на кого не в обиде так как вопрос мой решился.

PS. Slym - спасибо за алгоритм!

> WebSQLNeederr (04.06.08 13:25) [37]
> Я ж не машину вас отремонтировать попросил ...

Странно, в [0] ты именно это и попросил

> Если не сложно напишите код

> Аналогия с таксистом кривая.
ну может немного, более точная будет не в физическом "лазании" за руль, а в выяснении (хотябы тоже на форуме) кто из таксистов будет в указанном месте в нужное время "но только я сам поеду, т.к. платить не собираюсь" и т.д. см выше.
но только не говори что ты ее не понял...

> а в том, что нефик тут писать возмущенные посты
именно. положил вопрос и жди ответа, может комуто и вздумается ответить, никто не запрещает, как и отвечать/не отвечать, но не возмущайся тем более с такими аргументами... получается что вроде (раз уж начал автомобильными аналогиями) "не наказывайте меня господин гаишник, я не нарочно аварию сделал, просто был пьян, а у пьяных координация хуже". сорри за очередную кривость.

> PS. Slym - спасибо за алгоритм!
это не алгоритм, это решение, код для копи пасте. называй вещи своими именами.

Помогите с алгоритмом Найти похожие ветки