Как разбить строку по разделителю ""

← →
WebSqlNeederr (2006-05-22 12:52) [0]

например есть строка, как мне из нее сделать массив, элементами которого был бы текст из строки, который разделяется в ней пробелом?

Понимаю что это глупый вопрос, но вот что заступорился :)

← →
Сергей М. © (2006-05-22 12:59) [1]

sl: TStringList;
arr: array of String;
..
sl.Delimiter := " ";
sl.DelimitedText := "Строка с пробелами";
SetLength(arr, sl.Count);
for i:= 0 to Length(arr)-1 do
arr[i] := sl[i];

← →
WebSqlNeederr (2006-05-22 13:14) [2]

Не работает, пишет Acces violetion ...

← →
WebSqlNeederr (2006-05-22 13:15) [3]

Ошибка на сколько я понял здесь arr[i] := sl[i];

← →
Сергей М. © (2006-05-22 13:15) [4]

sl должен указывать на существующий объект класса TStringList

← →
Плохиш © (2006-05-22 13:16) [5]

> WebSqlNeederr (22.05.06 13:14) [2]
> Не работает, пишет Acces violetion ...

Тогда напиши вместо .. следуюшее sl := TStringList.Create и задавай свои вопросы в конференции "Начинающим"!

← →
Сергей М. © (2006-05-22 13:17) [6]

> Ошибка на сколько я понял здесь

Интересен ход твоих мыслей при этом умозаключении ..

← →
MBo © (2006-05-22 13:17) [7]

sl создал?

← →
Fay © (2006-05-22 13:19) [8]

LOL

← →
WebSqlNeederr (2006-05-22 13:20) [9]

Протупил :) Спасибо за помощь!

← →
WebSqlNeederr (2006-05-22 13:31) [10]

А как быть с переносами на новую строку? В общем у меня есть статистика помещения моего сайта, она составлена в таком вот формате, пример

2006-05-19 09:51:28 http://www.menshealth.kiev.ua/q.php 22739 0 73.96.199.82
2006-05-19 09:44:33 http://www.ofoto.com.ua/ru/ 32569 0 230.128.153.194
2006-05-19 08:53:47 http://ref.a.org.ua/?id=217472 25218 0 118.41.40.212

Когда я пытаюсь во второе мемо вывести только урлы то получается сделать для всех кроме тех у кого длинный урл и он переновится на новую строку, пример моего кода:

procedure TForm1.Button2Click(Sender: TObject);
var sl: TStringList; i,j:integer;
begin
for j:=0 to memo1.Lines.Count-1 do
begin
sl:=TStringList.Create;
sl.Delimiter := " ";
sl.DelimitedText := memo1.Lines.Strings[j];
Memo2.Lines.Add(sl[2]);
sl.Destroy;
end;
end;

В мемо1 я закидываю ту общую статистику и вот обрывается вывод когда строка например :

http://infostore.org/search?s=%D0%A0%D1%96%D1%88%D0%B5%D0%BD%D0%BD%D1%8F+%D0%9A%D0%B8%D1%97%D0%B2%D1%80%D0%B0%D0%B4%D0%B8+%E2%84%96+164%2F885+%D0%B2%D1%96%D0%B4+08.06.2000+%D1%80.&type=0&flag_files=1 23379 0 50.251.64.195

← →
WebSqlNeederr (2006-05-22 13:33) [11]

Ошибка List index out of bounds (2)

← →
Сергей М. © (2006-05-22 13:38) [12]

URL не может содержать пробелы.

← →
Плохиш © (2006-05-22 13:39) [13]

У Memo1 надо установить свойство WordWrap в FALSE.

← →
WebSqlNeederr (2006-05-22 13:55) [14]

Плохиш, спасибо. Действительно WordWrap в FALSE нужно было ...

← →
WebSqlNeederr (2006-05-22 14:00) [15]

А еще может кто то уже такое делал - как из урла оставить только домен? например http://ref.a.org.ua/?id=217472 оставить только http://ref.a.org.ua ??

Хочу узнать сколько совпадений по доменам у меня в статистике есть ...

← →
WebSqlNeederr (2006-05-22 14:30) [16]

← →
Сергей М. © (2006-05-22 14:31) [17]

sl.Delimiter := "\";

sl[2]

← →
WebSqlNeederr (2006-05-22 15:39) [18]

А как мне проверить сколько совпадений есть в списке доменов в моем Стринглисте? Я вот составил код, но он что то коряво работает :(

procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
begin
for i:=0 to urls2.Count-1 do
begin
for j:=0 to i-1 do
begin
if urls2.Strings[j]=urls2.Strings[i] then
begin
urls2.Strings[i]:=urls2.Strings[i]+" +1 совпадение";
//urls2.Delete(i);
break;
end;
end;
end;
memo2.Text:=urls2.Text;
end;

В urls2 хранятся сами домены.

Эка ты фонтанируешь!

← →
WebSqlNeederr (2006-05-22 16:14) [20]