Парсинг

[Stilet]

Думаю, что быстрей будет

Замени
Delete(test_string, 1, 1);
на
Delete(test_string, Length(test_string), 1);

Что получишь в тестовом примере на Делфи?

[Аватар]

Stilet

Так не честно

[Stilet]

Так не честно

Почему не честно? Я пытаюсь заставить вас разобраться с генофондом Делфи. Важно не то как функция работает, нет, это пол беды. А вот как она работает в связке с другими функциями или блоками программы - вот тут и роется песик в поисках скорости.
Можно трижды тридцать раз написать мегабыстрый код на ассемблере, но он вполне может проиграть в скорости встроенной функции, если его навесить другими блоками программы до чего-то, что ему помешает. Поэтому скорость работы со строками вопрос чрезвычайно деликатный.

[kta87]

я для решения такой задачи использовал бы такую вот функцию

function CopyString(AString, AFirst, AFinal: string): string;
begin
  if AFirst <> '' then Delete(AString, 1, Pos(AFirst, AString) +
    Length(AFirst) - 1);
  if AFinal <> '' then Delete(AString, Pos(AFinal, AString), Length(AString));
  Result:= AString;
end;

+ конечно же перед каждым последующем вызовом удалял бы из исходной строки "AFirst".

[XE5]

kta87 Почитайте предыдущую страницу обсуждения производительности, и подумайте.

[kta87]

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

[XE5]

kta87 Это решение ни чем не отличается от предложенного мной решения, только имеет лишнюю операцию. Толк от такого решения?

[kta87]

Сообщение от XE5

Толк от такого решения?

Наличие решения, это же очевидно.

[XE5]

kta87 Бессмысленно спорить с человеком, который не понимает, что ему пытаются донести. Не буду даже пытаться.

[kta87]

Видите ли XE5, непонимание как раз таки с вашей стороны. Когда стоит задача собрать данные из файла со структурой, которую представляет ТС, вопросы скорости операций уместны лишь в случае размера файла от 50 мб (такой размер для тектовых файлов крайне мало вероятен), или в целях лабораторных исследований (тс об этом тоже не говорит). В о всех остальных случаях следует помнить о теории "Минимально, но достаточно". Я не в курсе к сожалению ваших областей знаний, по этому приведу пример из теории автомобилей: При решении уравнения движения автомобиля, движущегося со скоростью меньше 40 км/ч не учитывают силу сопротивления воздуха. Это в значительной степени упрощает решение уравнения, но с физической точки зрения уравнение не полное, так как не учитывает силу сопротивления воздуха.