Форум: "Начинающим";
Текущий архив: 2007.12.23;
Скачать: [xml.tar.bz2];

Вниз

TStringList.QuoteChar   Найти похожие ветки 

← →
SkyN   (2007-11-27 14:54) [0]

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;

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

---

← →
Reindeer Moss Eater ©   (2007-11-27 15:20) [1]

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

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

---

← →
SkyN   (2007-11-27 15:43) [2]

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

---

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

Форум: "Начинающим";
Текущий архив: 2007.12.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.048 c