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

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

TStringList.QuoteChar [D7, XP]

SkyN ©   (2007-11-27 14:54:00) 

procedure TForm1.FormCreate(Sender: TObject);
var
 S: String;
 SL: TStringList;
begin
 S := 'attr1="доПробела ПОСЛЕ"; attr2=100';
 SL := TStringList.Create;
 try
   SL.QuoteChar  := '"'; //пробовал удалить эту строчку
   SL.Delimiter  := ';';
   SL.DelimitedText  := S;

   MessageBox(0,PChar(SL.Values['attr1']),PChar(S),0);
 finally
   if assigned(SL) then freeandnil(SL);
 end;
end;

упорно выдает "доПробела , а хотелось бы "доПробела ПОСЛЕ"

---

SkyN   (2007-11-27 15:43:00) [1]

значит вместо
   SL.QuoteChar  := '"'; //пробовал удалить эту строчку
  SL.Delimiter  := ';';
  SL.DelimitedText  := S;
буду юзать
SL.Text := StringReplace(S,';',#13#10,[rfReplaceAll]);
спасибо

---

Reindeer Moss Eater   (2007-11-27 15:20:00) [2]

Сначала посмотри вот это :
SL.DelimitedText  := S;
ShowMessage(sl.text);

потом смотри реализацию SetDelimetedText;

---

Наверх