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

28.02.2010, 16:22. **Показов** 5446. **Ответов** 1

Author24 — интернет-сервис помощи студентам

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

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

Delphi

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;

Заранее благодарен!!!

@igoriy · 28.02.2010, 16:51

Delphi

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)); в цикл загнать

	28.02.2010, 16:51