Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 28, средняя оценка - 4.64
-={V}=-
Сообщений: n/a
#1

Разбить строку на части - Delphi

28.02.2010, 16:22. Просмотров 3644. Ответов 1
Метки нет (Все метки)

Имеется строка типа: 20800, Украина, м. Черкаси, вул. Чигиринська, буд. 8, оф./кв. 2
Нужно ее разбить на части - город в отдельной строковой переменной, улица в отдельной, и т.п...

Подскажите плз как это сделать, я только додумался для улицы:

Delphi
1
2
3
4
5
6
7
8
9
10
11
function getVul(sStr: String): String;
var
S: String;
Index: Integer;
begin
S:=sStr;
Index:=Pos('вул.',S);
if Index=0 then Index:=Pos('пров.',S);
Delete(S,1,Index-1);
Result:=S;
end;

Заранее благодарен!!!
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2010, 16:22
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Разбить строку на части (Delphi):

Разбить строку на равные части - Delphi
допустим есть строка S:='21545789654785124587963254785125847'; //35 символов как ее разбить на строки по 10 символов примерно так ...

Разбить число на две части - Delphi
есть перменная string содержит всебе число var tel,pref,nom:string; begin t:=7771234567 как мне сделать чтоб пермеменным было...

Игра в мозаику. Разбить картинку на части - Delphi
Вообщем нужно сделать игру в мозайку, но чтобы картинка разбивалась непересекающимися прямыми... пример картинки в приложении п.с....

Как разбить TStringList на части по 15 строк? - Delphi
Как разбить TStringList на части по 15 строк? Вот так вот вроде пашет но оно показывает только по 1 строке в ShowMessage... а мне надо...

Как разбить на части текст вводимый в edit(memo)? - Delphi
Добрый день. Нужно решить задачу, и для решения необходимо разбить вводимый текст (последовательность чисел). Текст можно ввести через Edit...

Как разбить файл на части а затем обратно соединить? - Delphi
Мне нужно сделать программку которая бы разбивала файлы на заданое количество частей, а затем обратно собирала файл по частям. Может у кого...

1
igoriy
869 / 540 / 19
Регистрация: 24.11.2009
Сообщений: 1,329
28.02.2010, 16:51 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.Button1Click(Sender: TObject);
var
a,a1,b,c,d,e,j: string;
begin
a:= Edit1.Text;
a1:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
Edit2.Text:= a1;
b:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
Edit3.Text:= b;
c:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
Edit4.Text:= c;
d:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
Edit5.Text:= d;
e:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
Edit6.Text:= e;
j:= Copy(a,1,Length(a));
Delete(a,1,Pos(',',a));
Edit7.Text:= j;
end;
Добавлено через 1 минуту
Можно просто
b:= Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a)); в цикл загнать
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2010, 16:51
Привет! Вот еще темы с ответами:

Разбить нужные части строки на отдельные подстроки в многострочных данных - Delphi
Помогите разобраться. Есть некоторые строковые данные Примерно Некоторый текст (278339,-9,53,3,4389,'СПБ...

Разбить на части строку - Delphi
Доброго времени суток! Помогите с простенькой задачкой пожалуйста! Нужно взять строку из Edit'a (например: 408087826341), и разбить на...

Разбить строку - Delphi
Пример строки: 012313_131232,231234_1235122,1237843_945345 и таких пар может быть много. Заранее их количество неизвестно. Размер первого и...

Как разбить строку? - Delphi
Есть строка st1:=''30,5 cm 32 cm 17,5 cm' Нужно по-присваивать следующим строкам эти три числа, т.е. st2:='30,5' st3:='32' ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru