Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Вниз

TStringList не хочет грузится из TStringStream 


lipskiy   (2002-04-07 00:15) [0]

Почему так не работает:
StringStream.WriteBuffer(addr^,BlockSize);
StringList.LoadFromStream(StringStream);


А так работает:
StringStream.WriteBuffer(addr^,BlockSize);
Num:= 1;
for i:= 1 to StringStream.Size-1 do
if (StringStream.DataString[i] = #13) and (StringStream.DataString[i+1] = #10) then
begin
StringList.Add(Copy(StringStream.DataString,Num,i-Num));
Num:= i+2;
end;


Второй вариант - просто ручная загрузка строки в массив строк по кодам #10#13.
Но ведь не хочется каждый раз писать эту бодягу.
Почему нормальный первый вариант возвращает пустой StringList?



MBo   (2002-04-07 01:08) [1]

а
StringList.Text:=StringStream.DataString;
не пойдет?



lipskiy   (2002-04-07 13:32) [2]

Пошло!
Спасибо, как это я сам не допер :)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.034 c
1-57692           Yaro                  2002-03-30 17:09  2002.04.18  
ActiveX и использование функций из DLL ............


1-57754           voland0               2002-04-05 12:37  2002.04.18  
Помогите!!! onStartDrag в TDBGrid не наступает!!!


1-57808           Vitalik               2002-04-06 20:38  2002.04.18  
Динамическое окно


14-57871          DFG                   2002-03-11 21:27  2002.04.18  
Кто-то устанавливал Delphi на карманный компьютер?


1-57738           ymin                  2002-04-05 11:56  2002.04.18  
Как в 1-й форме ввести строку, потом нажать на кнопку и во второй