| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Александр ©   (2002-08-18 17:35:00) 

Как разбить строку на части? Например все, что написано до первого "\" в одну переменную (str1), а остальное - в другую (str2). Спасибо.

---

Ray Adams   (2002-08-19 01:45:00) [1]

А лучше всего использовать библиотеку Регулярных выражений и не мучаться. Зачем изобретать велосипед?

---

SemFLY   (2002-08-19 00:56:00) [2]

Можно разделить и без символа, вот пример.
- - - - - - -
Имеется строка состоящая из двух прараметров:

первый параметр + #13#10 + второй параметр
#13#10 - разделение строки на две строчки
str1 = первый параметр
str2 = второй параметр
...


var
TTSL : TStringList;
str1, str2 : String;
begin
...

TTSL := TStringList.Create;
TTSL.Text := Param;
str1 := TTSL.Strings[0];
str2 := TTSL.Strings[1];

...
end;



P.S. Конечно составляя строку, надо не забывать разбивать её в нужных местах на части, знаком #13#10 !

;-)

---

Esu   (2002-08-18 21:40:00) [3]

Помоему так :) Зачем изобретать велосипед.

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
s : string;
begin
s := edit3.Text;
i := pos("\", s);
if i <> 0 then
begin
edit1.Text := copy(s, 1, i-1);
edit2.Text := copy(s, i+1, length(s)-i);
end;
end;


---

Ev_genus   (2002-08-18 21:34:00) [4]

согласен

procedure GetStr(s:string; var str1, str2:string);
var
i, l:word;
begin
str1:="";
str2:="";
l:=length(s);
if l<>0 then begin
i:=1;
while (s[i]<>"/") and (i<l) do inc(i);
if i>1 then str1:=copy(s, 1, i-1);
if l>i then str2:=copy(s, i+1, l-i);
end;
end;


---

Esu   (2002-08-18 21:32:00) [5]

> while s[i]<>"/" do inc(i);

будет искать несуществующий "/" до новых веников. Хотя там вроде какая-то зашщита стоит. А вот если найдет за пределами то последующий copy попытается скопировать в чужую область памяти.
А вообще конечно на это pos придумали.

---

Ev_genus   (2002-08-18 19:31:00) [6]


procedure GetStr(s:string; var str1, str2:string);
var
i, l:word;
begin
str1:="";
str2:="";
l:=length(s);
if l<>0 then begin
i:=1;
while s[i]<>"/" do inc(i);
if i>1 then str1:=copy(s, 1, i-1);
if l>i then str2:=copy(s, i+1, l-i);
end;
end;


---

Юрий Зотов   (2002-08-18 17:40:00) [7]

См. функции Pos и Copy. Может пригодиться и Delete.

---

Наверх