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

← →
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]
утечка памяти

← →
Slym © (2008-06-04 05:08) [29]

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;

← →
sniknik © (2008-06-04 11:06) [30]

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

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

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

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

← →
sniknik © (2008-06-04 12:29) [32]

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

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

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

← →
Palladin © (2008-06-04 12:57) [33]

> Ляпа (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] адресованы были мне.

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

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

← →
Palladin © (2008-06-04 13:09) [36]

> Вообще-то посты 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 - спасибо за алгоритм!

← →
Плохиш © (2008-06-04 13:29) [38]

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

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

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

← →
sniknik © (2008-06-04 13:30) [39]

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

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

← →
sniknik © (2008-06-04 13:33) [40]

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

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

> Palladin ©

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

Тогда отвечу.
ИМХО. Как уже сказано - работы есть разные. Если программирование - не основное занятие человека на работе, а небольшой довесок, то плохие способности к программированию (или отсутствине интереса) - не повод предлагать сменить профессию и взять в руки метлу.
Подобные вещи тоже раздражают.
Ничего личного.

← →
Palladin © (2008-06-04 14:00) [42]

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

Может и так. Усли в правду довесок, то, по поводу метлы, я не прав. Признаю. При условии, что довесок.

← →
Anatoly Podgoretsky © (2008-06-04 14:01) [43]

Почему нет, надо направить в правильное русло, пока нет рецидива. А здесь давно рецидив. А помогают любому, вне зависимости от знаний, но не каждому. Этот каждый.

← →
Игорь Шевченко © (2008-06-04 14:05) [44]

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

В первую очередь это проблемы человека, но никак не отвечающих.

← →
Тын-Дын (2008-06-04 16:24) [45]

> Игорь Шевченко © (04.06.08 14:05) [44]
>
> В первую очередь это проблемы человека, но никак не отвечающих.
>

А по ответам создаётся впечатление, что их больше у отвечающих, а не у спрашивающего).

← →
Anatoly Podgoretsky © (2008-06-04 16:50) [46]

> Тын-Дын (04.06.2008 16:24:45) [45]

Мы проводим просветительную работу и смотрим потерян человек или еще есть надежда.

← →
Плохиш © (2008-06-04 17:06) [47]

Удалено модератором

← →
Gydvin © (2008-06-04 17:52) [48]

> ИМХО. Как уже сказано - работы есть разные. Если программирование
> - не основное занятие человека на работе, а небольшой довесок,
> то плохие способности к программированию (или отсутствине
> интереса) - не повод предлагать сменить профессию и взять
> в руки метлу.

Ну так пусть сменит професию, если он с ней не справляется. Если чел, как он сказал, раз в месяц программит, для себя или для облегчения своей работы. Пусть будет добр почитать хоть какуюнить документацию для начинающих. Чтоб просто быть в теме. Сабжевая задача, согласитетсь совсем несложная, обычный перебор. И на вскидку имеет штук пять-шесть решений.

Так что про метлу намек был верен имхо.

← →
Тын-Дын (2008-06-04 19:15) [49]

> Gydvin © (04.06.08 17:52) [48]
>
> Ну так пусть сменит професию, если он с ней не справляется.
>

С чего ты взял, что человек не справляется со своей работой?
Человек просит дать кусок кода, причем мелочь.
Жалко? Жалко - не давай.
А воспитатели в детском саду работают.

← →
Сергей М. © (2008-06-04 20:10) [50]

> Мне не нравится что у меня через стринглист

Это называется не "через стринглист", а "через ж."

У любого потомка TStrings есть св-во Values.

Чтение св-ва Values["VARS"] даст строку "value1;value2;value3"

Далее следовать [14]

Вот и весь "алгоритм"

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

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

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

Полностью поддерживаю Тын-Дын (04.06.08 16:24) [45]
А по ответам создаётся впечатление, что их больше у отвечающих, а не у спрашивающего).
(не исключено, что он один из авторов ветки:)

> А воспитатели в детском саду работают.

абсолютно верное замечание - нефиг отвечающих воспитывать.

← →
Ляпа (2008-06-04 21:38) [54]

я дико извиняюсь, но кто тут ОТВЕЧАЮЩИХ воспитывает?

> я дико извиняюсь, но кто тут ОТВЕЧАЮЩИХ воспитывает?

Хоть это и оффтопик, но воспитывает некто Тын-Дын в постах 45 и 49 и некто Ляпа в посте 41 (раньше лень смотреть)

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

Да ну? А я-то их за флеймеров приняла. Надо ж так обознаться %)

Игорь Шевченко © (04.06.08 21:23) [53]
абсолютно верное замечание - нефиг отвечающих воспитывать.

Не, ну почему? Ежели личным примером - то пусть попробуют %-)

Только вот те, кто учит отвечать, почему-то среди отвечающих замечены обычно не бывают...

> ПостОвый терминатор (04.06.2008 20:40:52) [52]

Как правило так (из-за более широкого кругозора), тем более если вопрос поставлен смутно.

58 относится к 45

← →
WebSQLNeederr (2008-06-05 01:04) [60]

Господа, флудить это не ведра таскать :) Проблему я уже решил, что ж тут еще обсуждать.

И маленькое уточнение - программирую не для работы а так сказать по собственной мелкой нужде. Так что в дворники пойдите объявление на столбе сорвите :)

Я никого не заставляю мне отвечать, и я всегда искренне благодарен человеку, который помогает. Так же как я благодарен соседу по гаражам-автомеханику за мелкий совет или соседу по дому-врачу за совет какое лекарство купить. И люди не предлагают мне учить строение автомобиля или человека - они просто помогают. За это я им благодарен ... Также как и тем программистам, что помогают мне здесь. И многие кто меня здесь критиковал раньше мне помогали - так что и на этом я хочу воспользоваться моментом и поблагодарить их.

PS. Давайте и вам подадут (с) Библия :)

← →
Тын-Дын (2008-06-05 01:09) [61]

> Virgo_Style © (04.06.08 22:59) [57]
> Игорь Шевченко © (04.06.08 21:23) [53]абсолютно верное
> замечание - нефиг отвечающих воспитывать.Не, ну почему?
> Ежели личным примером - то пусть попробуют %-)Только вот
> те, кто учит отвечать, почему-то среди отвечающих замечены
> обычно не бывают...

Умный, да?
Не суди о том, чего не знаешь. Хорошо?

> WebSQLNeederr (05.06.08 01:04) [60]
>
> Я никого не заставляю мне отвечать, и я всегда искренне
> благодарен человеку, который помогает. Так же как я благодарен
> соседу по гаражам-автомеханику за мелкий совет или соседу
> по дому-врачу за совет какое лекарство купить. И люди не
> предлагают мне учить строение автомобиля или человека -
> они просто помогают.

Заметь. Ты сейчас говоришь про совет. Пожалуйста. Посоветовать мы не прочь. Но как это соотнести с твоей постоянной фразой
> Если не сложно напишите код
? Это как раз соответствует "Если не сложно, почините мой автомобиль."

Про врача я молчу. Но моя жена может дополнить!

Тын-Дын (05.06.08 1:09) [61]
Не суди о том, чего не знаешь.

Угу, и я о том же.

← →
Тын-Дын (2008-06-05 13:42) [65]

> Virgo_Style © (05.06.08 11:56) [64]
> Тын-Дын (05.06.08 1:09) [61]
> Не суди о том, чего не знаешь.
>
> Угу, и я о том же.

И о чем же ты?
Я о том, что ты о других ничего не знаешь.
А не знаешь - лучше молчать.

В этой ветке ответы дали. Остальное - флуд с целью повыёживаться.

> Тын-Дын (05.06.08 13:42) [65]
> Остальное - флуд с целью повыёживаться.

И твои посты этому подтверждение.

← →
Тын-Дын (2008-06-05 13:54) [67]

> Плохиш © (05.06.08 13:50) [66]
>
> > Тын-Дын (05.06.08 13:42) [65]
> > Остальное - флуд с целью повыёживаться.
>
> И твои посты этому подтверждение.

Кто бы говорил. Загляни в любую ветку - один флуд.

Тын-Дын (05.06.08 13:54) [67]

Так подай пример и не флуди

> Игорь Шевченко © (05.06.08 14:15) [68]
> Тын-Дын (05.06.08 13:54) [67]
>
> Так подай пример и не флуди

А я и не начинаю флуд. С какой стати я пример буду подавать?

Так после флудеров все ветки именно во флуд и превращаются.
За флудом уже и автору, и всем, кто в ветку зашел, крупицы полезной информации можно с трудом найти.

> Игорь Шевченко © (05.06.08 14:15) [68]

Из соседней ветки:

Игорь Шевченко © (05.06.08 14:16) [18]
> Этот компонент не хочет из-за UNION делать POST.
вот же зараза

Кто должен пример-то подать?

> Тын-Дын (05.06.2008 13:54:07) [67]

Кончайте, с этим в Потрепаться, но и там не привествуется, правильнее в чат

Don"t feed the troll

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