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

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

Запись WideString в файл. [D7, XP]

AlexanderMS ©   (2006-07-10 20:15:00) 

Подскажите, пожалуйста, как мне записать переменную типа WideString в файл в виде последовательности по 2 байта на каждый символ с помощью TFileStream.

---

Германн   (2006-07-11 03:54:00) [1]

> Подскажите, пожалуйста, как мне записать переменную типа
> WideString ... в виде последовательности по 2 байта на
> каждый символ

Имхо, "последовательность по 2 байта на каждый сивмол" можно разумнополучить с применением функции IntToHex(Ord("Символ"),2)
Или я что-то не так понял?

---

palva   (2006-07-10 23:21:00) [2]


{$APPTYPE CONSOLE}
var
 s: String;
 ws: WideString;
begin
 s := 'T'#0'e'#0'x'#0't'#0;
 SetLength(ws, Length(s) div 2);
 Move(s[1], ws[1], Length(s));
 WriteLn(ws);
end.


---

Джо   (2006-07-10 21:02:00) [3]

S := Ws;
Ws := S;

---

AlexanderMS   (2006-07-10 20:54:00) [4]

Ещё вопросик: а как строку string вида:
T_e_x_t_ (где _ - #0) превратить в WideString и наоборот?

---

AlexanderMS   (2006-07-10 20:38:00) [5]

Спасибо! А то я что-то длину не умножал!

---

Джо   (2006-07-10 20:21:00) [6]

Как-то так:
var
 Ws: WideString;
 Fs: TFileStream;
begin
 Ws := 'строка';
 Fs := TFileStream.Create('d:\widefile.txt',fmCreate);
 try
   Fs.Write(Ws[1],Length(Ws)*2)
 finally
   Fs.Free
 end;
end;


---

Наверх