Ребят, здесь такая проблема… Беру первую букву из текста с помощью COPY, проверяю её по условиям, вставляю в другой текс…. Все работает!!! А вот вторую букву взять уже не могу!!! А по моей задумке из текста поочередно нужно взять все буквы и проверить их на соответствие некоторым условиям, а после напечатать обратно…. Вот, как их из текста поочередно выковырять? Подскажите пожалуйста…. Пробовал GOTO…. Прога просто виснет и всё! Как ее лучше закольцевать?

С уважением ZENDAN.

Код

var   x:Integer; MyText,NewMyText:String; begin NewMyText:=EmptyStr; for x:=1 to length(MyText)   do  NewMyText:=MyText[x]+NewMyText; end;

так получишь текст в обратном порядке

Это сообщение отредактировал(а) z-END - 12.9.2005, 18:24

А почему legth(txt)-1? В пасе же символы в строке идут начиная с первого?

Mayk лопухнулся) привык уже с объектами работать

ZENDAN, а чем проблема пройти всю строку по символам?

Код

for i := 1 to Length(Str) do  if Str[i] = 'чему-то' then   ...

А если надо текст в обратном порядке получить, то используй ReverseString из StrUtils

Vet

Код

for i := 1 to Length(Str) do      if Str[i] = 'чему-то' then       ...

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


z-END дал ответ на вопрос, можно только ещё привести несколько вариаций:

Код

k:=length(MyText); for x:=1 to    k  do       NewMyText:=NewMyText+MyText[k-x];     end;

или (но более оптимальный, по сравнению с предыдущим вариантом)

Код

k:=length(MyText); for x:=k downto    1  do       NewMyText:=NewMyText+MyText[x];     end;

но это уже дело вкуса...

Это сообщение отредактировал(а) Albinos_x - 15.9.2005, 18:01

Цитата(Albinos_x @ 15.9.2005, 18:59)

или (но более оптимальный, по сравнению с предыдущим вариантом)

Если не секрет, с чего этот вариант более оптимальный.....

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

Цитата

с чего этот вариант более оптимальный

Код

MyText[k-x]

в первом на одну операцию больше...

ЗЫ: ну люблю я всё оптимизировать

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

Код

k:=length(oldText);      setLength(newText,k);      for i := 1 to k do          newText[k-i+1] := oldText[i];

Вроде должно быть быстрее.

Это сообщение отредактировал(а) Mayk - 17.9.2005, 09:07

...угу...

To Albinos_x

Цитата

по мойму текст этим не перевернёшь, а во вторых каждое условие дейтвует как крутой поворот для автомобиля и время выполнения кода увеличивается

По-моему, про тему топика уже забыли:

Цитата

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

Вот откуда взялось

Код

for i := 1 to Length(Str) do  if Str[i] = 'чему-то' then   ...

Также я автору посоветовал использовать ReverseString. Зачем изобретать велосипед?

Цитата

Вот откуда взялось

упс... просмотрел...