Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

За 2005-10-08

Re: Проклятый WideString!

Здравствуйте, -=.

Вы писали 8 октября 2005 г., 17:48:18:

> Привет всем!

> Теперь к делу,

> Как сохранить (а потом и загрузить) данные переменной типа WideString?
> Делаю я так:

> //---[save]> var
> Size: Integer;
> URL: WideString;
> begin

> URL := 'West-Test';

> Size := Length(URL);

> Stream.Write(Size, SizeOf(Size));
> Stream.Write(PWideChar(URL)^, Size);

> end;

> //---[load]> var
> Size: Integer;
> URL: WideString;
> begin

> Stream.Read(Size, SizeOf(Size));

> SetLength(URL, Size);
> Stream.Read(PWideChar(URL)^, Size);

> end;

> После загрузки вместо долгожданного тест слова "West-Test" появляется
> какой то мусор :-((

> Что тут можно сделать?

Извини, ты сохраняешь 2-а раза а читаешь один! И что хочешь получить
что то читаемоемое?
Попробуй конвертировать в стринг. Как мне кажется TEdit (я не уверен)
может с этим справиться. Во всяком случае я слышал(не видел) , есть
функции конвертации.

   2005-10-08 23:37:39 (#451814)

Re: Заливка

Здравствуйте, Виктор.

Вы писали 9 октября 2005 г., 0:22:55:

> Здравствуйте, comp.

> Подскажите кто нибудь. У меня окно залито "любым" цветом. После перекрытия
этого
> окна другим
> цвет теряется. Как егоо можно сохранить?

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

   2005-10-08 23:37:19 (#451813)

Заливка

Здравствуйте, comp.

Подскажите кто нибудь. У меня окно залито "любым" цветом. После перекрытия этого
окна другим
цвет теряется. Как егоо можно сохранить?

   2005-10-08 22:30:52 (#451767)

Проклятый WideString!

Привет всем!

Теперь к делу,

Как сохранить (а потом и загрузить) данные переменной типа WideString?
Делаю я так:

//---[save]var
Size: Integer;
URL: WideString;
begin

URL := 'West-Test';

Size := Length(URL);

Stream.Write(Size, SizeOf(Size));
Stream.Write(PWideChar(URL)^, Size);

end;

//---[load]var
Size: Integer;
URL: WideString;
begin

Stream.Read(Size, SizeOf(Size));

SetLength(URL, Size);
Stream.Read(PWideChar(URL)^, Size);

end;

После загрузки вместо долгожданного тест слова "West-Test" появляется
какой то мусор :-((

Что тут можно сделать?

Номер выпуска : 4968
Возраст листа : 748 (дней)
Количество подписчиков : 531
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/451766
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   2005-10-08 22:29:50 (#451766)