У меня возникают проблемы с разделителем в классе TStringList. Посмотрите:
var
s: string;
sl: TStringList;
begin
sl := TStringList.Create;
s := 'Users^foo bar^bar foo^foobar^barfoo';
sl.Delimiter := '^';
sl.DelimitedText := s;
ShowMessage(sl[1]);
end;
sl[1]
ДОЛЖЕН возвращаться 'foo bar'
sl[1]
Возвращает 'foo'
Кажется, что теперь разделитель '^'
AND ' '
Любые идеи?