Текущий архив: 2004.02.10;
Скачать: CL | DM;

Вниз

Работа со строками   Найти похожие ветки 

← →
AntonSh   (2004-01-29 10:52) [0]

У меня есть строка. В неё через разделитель например "|" занесены слова. Подскажите как теперь из этой строки извлекать данные слова?

---

← →
Тимохов ©   (2004-01-29 11:06) [1]

AntonSh (29.01.04 10:52)
Посмотри посты за вчера - был точно такой же вопрос. Только там был разделитель ";" - но думаю это не проблема.

---

← →
Jel ©   (2004-01-29 11:07) [2]

Можно перебирая строку посимвольно ловить эти разделители и разбивать строку на слова. см. справку по
pos и copy

---

← →
easy ©   (2004-01-29 11:08) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
s,w:string;
i:integer;
begin
s:="Вася|Петя|Терминатор2|Гриша|Феропонт";
for i:=1 to Length(s) do begin
if s[i]<>"|" then
w:=w+s[i]
else begin
showmessage(w);
w:="";
end;
end;
showmessage(w);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s,w:string;
i:integer;
SL:TstringList;
begin
s:="Вася|Петя|Терминатор2|Гриша|Феропонт";
SL:=TstringList.Create;
SL.Delimiter:="|";
SL.DelimitedText:=s;
for i:=0 to SL.Count-1 do
showmessage(SL.Strings[i]);
SL.Free;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c