| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с алгоритмом
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 ... ? А если я не знаю сколько всего этих валуе будет? Помогите с алгоритмом. Как это сделать? В массив? Или как? Если не сложно напишите код ... Буду очень благодарен ... ато у меня этими посами такие нагромождения, что запутываюсь да и когда становится вопрос о количестве валуев то ухожу в ступор ...
Palladin (2008-06-04 12:57:00) [41]
> Ляпа (04.06.08 00:01) [16]
а ты то тут причем? о тебе речь чтоли? речь идет о конкретном человеке, который с вопросами уровня школы около полугода тусуется на форуме... и строит обиженки, что ему никто не помогает... помоему у человека с головой не в порядке... чего ты к "час в день" прицепился...
> а попытка разово "доехать на халяву".
если бы разово... уровень вопросов от этого персонажа не меняется уже довольно продолжительное время...
sniknik (2008-06-04 12:29:00) [42]> А какие проблемы? Колхоз дело добровольное - помогать никто никого не принуждает.
добровольство в колхозе обоюдное, программировать тоже никто не принуждает, хочеш программируешь не хочеш платишь...
как таксисту. не лезешь вместо него за руль со словами "я и сам в состоянии рулить, чего это я деньги тебе платить должен. ты тока говори какие педали и когда нажимать"... вот это уже наглость. и тот же человек который обучил бы тебя на водителя, при соответствующей просьбе, в этой ситуации попросту пошлет далеко.
не правда? а какая разница с программированием? (кроме того, что учиться дольше)
вот и не стоит оправдываться тем, что "у меня другая работа", просить по этому поводу примеров, т.к. имхо, это уже не "обучение вождению", а попытка разово "доехать на халяву".
> Не вижу причин так нервничать.
ну, так не нервничай.
Ляпа (2008-06-04 11:53:00) [43]
> sniknik © (04.06.08 11:06) [30]
А какие проблемы? Колхоз дело добровольное - помогать никто никого не принуждает. Не вижу причин так нервничать.
sniknik (2008-06-04 11:06:00) [44]> ты не поленился накидать мне лягушек за шиворот... Спасибо.
разве тебе? вообщето я имел в виду того лентяя который не хочет тратить "пол месяца" на обучение но желает заниматься программированием раз в месяц, за нас счет как выясняется...
ты просто "попал под горячую руку" т.к. встал на его сторону. ничего личного.
Slym (2008-06-04 05:08:00) [45]
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;
Slym (2008-06-04 04:53:00) [46]WebSQLNeederr (03.06.08 20:25) [13]
утечка памяти
Ляпа (2008-06-04 02:34:00) [47]
> sniknik © (04.06.08 01:20) [25]
Т.е. исходя только из своих предположений, ты не поленился накидать мне лягушек за шиворот... Спасибо.
Германн (2008-06-04 01:28:00) [48]
> sniknik © (04.06.08 01:20) [25]
>
> > Старая притча о горшке и порке. :)
> вовсе нет.
>
Значит я не располагаю необходимой и достаточной информацией.
Но и та самая притча до сих пор не потеряла своей актуальности! :)
sniknik (2008-06-04 01:20:00) [49]> Т ыот меня хоть один вопрос в форуме видел?
думаю да. под другим ником. (очень это стало распространено... а ты для "бабочки однодневки" только и успевшей наследить в паре веток, слишком хорошо ориентируешься в местных порядках, значит старожил меняющий ники -> значит ничего святого для тебя нет, и ты наверняка для вопросов пользуешься другим ником, не портить репутацию основному, поругаться(/потролить) не прочь, тоже анонимно естественно.)
> Так фигли наезжаешь заранее?
не заранее, а по поводу... повод смотри начиная с [15]-го поста, на которой ты ответил, и как. да и не "наезжаю" вовсе, а , имхо, адекватно реагирую.
> Старая притча о горшке и порке. :)
вовсе нет.
Германн (2008-06-04 01:15:00) [50]
> Ляпа (04.06.08 01:00) [23]
>
>
> > sniknik © (04.06.08 00:58) [21]
>
> Ты от меня хоть один вопрос в форуме видел? Не видел. Так
> фигли наезжаешь заранее?
>
Старая притча о горшке и порке. :)
Ляпа (2008-06-04 01:00:00) [51]
> sniknik © (04.06.08 00:58) [21]
Ты от меня хоть один вопрос в форуме видел? Не видел. Так фигли наезжаешь заранее?
Ляпа (2008-06-04 00:59:00) [52]
> sniknik © (04.06.08 00:58) [21]
Т ыот меня хоть один вопрос в форуме видел?
sniknik (2008-06-04 00:58:00) [53]> А я у кого-то советов прошу, что мне делать и как?
советы что делать и как (а также куда идти) прилагаются бесплатно к рассуждениям на тему "работа у всех разная однако..., вашу мы сделаем по вашим же ответам в форуме, пусть плохо но ни платить вам за нее ни тратить своего времени обучение (становиться такими же) которое тратили вы, мы не собираемся".
все бы ничего, да только ответы вы пытаетесь выдавить "на жалость" аргументируя тем, что это не ваша работа... но только желания помочь, даже из жалости, такие аргументы не вызывают, вызывают только раздражение.
MsGuns (2008-06-04 00:55:00) [54]>Мне же если раз в месяц за делфи для нужд сесть нужно то что мне тратить еще пол месяца на обучение?
"В Делфи хожу редко - только по большой нужде" (с)
Игорь Шевченко (2008-06-04 00:42:00) [55]
> Мне же если раз в месяц за делфи для нужд сесть нужно то
> что мне тратить еще пол месяца на обучение?
Нет, тебе надо потратить на обучение два года или больше, чтобы понять, что нефиг грузить незнакомых людей своими проблемами.
Ляпа (2008-06-04 00:33:00) [56]
> sniknik © (04.06.08 00:10) [17]
А я у кого-то советов прошу, что мне делать и как?
sniknik (2008-06-04 00:10:00) [57]> Мне же если раз в месяц за делфи для нужд сесть нужно то что мне тратить еще пол месяца на обучение?
совершенно не нужно тратить! ты прав.
есть программисты которые этому учились, этим занимаются, и этим зарабатывают...
не умею на машине ездить, и что теперь, изза раза в месяц когда выпадает возможность проехаться тратить 2 месяца на курсах и еще экзамены на права сдавать?
все просто, либо тратить, либо не ездить самому даже если выпала возможность/нужда, а платить за такси.
> Я программирую от силы час в месяц. Работа у всех разная однако...
вот и занимайся ей. а час в месяц добавь к отдыху.
Ляпа (2008-06-04 00:01:00) [58]
> Palladin © (03.06.08 23:54) [15]
И что? Я программирую от силы час в месяц. Работа у всех разная однако...
Palladin (2008-06-03 23:54:00) [59]
>WebSQLNeederr (03.06.08 18:53) [10]
ах мы тут сутками сидим и программируем, а ты бедняжко, программируешь час в день, а мы такие негодники тебе помочь не можем. ну так скажи начальству, что не можешь ты целый час в день программировать, программист вам на фирму нужен, он и будет заниматься своими прямыми делами, программированием, а ты своими прямыми делами...
но поверь, метла принесет тебе дохода куда больше чем программирование... отсюда же и чистота на улицах... приятно, черт возьми...
AndreyV (2008-06-03 20:32:00) [60]> [13] WebSQLNeederr (03.06.08 20:25)
Смотри в TStringList
Delimiter
DelimitedText
| |
Страницы: 