Текущий архив: 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.026 c
