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

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

Записать WideString строку [D7, 2000, XP]

Страницы:   < 1 2 3 >

Ёжик ©   (2007-04-22 04:42:00) 

Может я чего-то не понимаю, но не получается.
Записываем
type
TServer = packed record
   edServer  : WideString;
end;

var
F   : File;
Server_ : TServer;

begin
{$I-}
AssignFile (F, 'Config.INI');
Rewrite (F, 1);
if IOResult <> 0 then exit;

FillChar (Server_, SizeOf (Server_), 0);
Server_.edServer := edServer;

try
 BlockWrite (F, Server_, SizeOf (TServer));
Finally
 CloseFile (F);
end;
{$I+}

Пытаемся прочитать

type
TServer = packed record
   edServer  : WideString;
end;

var
F   : File;
Server_ : TServer;

begin
{$I-}
AssignFile (F, 'Config.INI');
Reset (F, 1);
If IOResult <> 0 then exit;
FillChar (Server_, SizeOf (Server_), 0);

try
 BlockRead (F, Server_, SizeOf (TServer));
 //edServer := Server_.edServer;
Finally
 CloseFile (F);
end;
{$I+}

---

Ёжик   (2007-04-22 04:44:00) [41]

На закоменченной строке выпадает ошибка - мол, что-то с доступом к памяти. Да, дело происходит в dll.

---

Страницы:   < 1 2 3 >

Наверх