Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2010, 22:55   #1
SsdD
Пользователь
 
Регистрация: 06.05.2009
Сообщений: 17
По умолчанию Поиск в строке

Вобщем есть строка вида:
PHP код:
111_001_1__ 
Нужно вывести в другую строку через запятую порядок чисел начиная справой части строки, ну должно получиться что-то вида:
PHP код:
11,10,9,7,6,5,
SsdD вне форума Ответить с цитированием
Старый 01.05.2010, 23:26   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

читаем хелп по функциям Pos, PosEx
Человек_Борща вне форума Ответить с цитированием
Старый 02.05.2010, 10:35   #3
TRIZER
Студент
Пользователь
 
Аватар для TRIZER
 
Регистрация: 13.11.2009
Сообщений: 65
По умолчанию

что то типа
Код:
var
a : array [0..100] of string;
i,index:integer;
begin
index:=0;
for i:=length(str) downto 1 do
if str[i] in ['0','1','2','3','4','5','6','7','8','9'] then
a[index]:=a[index]+str[i]
else
if a[index]<>'' then
inc(index);
end;
этот кусочек заполняет массив a в нужном тебе порядке, остается только вывести в строку типа
Код:
i:=0;
while a[i]<>'' do
begin
str1:=str1+a[i];
inc(i);
end;
PS: Работоспособность не проверял , но принципиальных ошибок вроде нету

Последний раз редактировалось TRIZER; 02.05.2010 в 10:40.
TRIZER вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
поиск в строке Apis Паскаль, Turbo Pascal, PascalABC.NET 2 27.04.2010 22:05
поиск в строке Apis Общие вопросы C/C++ 1 27.04.2010 22:04
Поиск в строке. Xcopy Общие вопросы Delphi 1 12.10.2009 00:31
Поиск с строке nusik Общие вопросы Delphi 3 29.07.2009 14:15
Поиск с строке.. Rom1k06 Microsoft Office Excel 2 15.10.2008 07:42