Скачать: CL | DM;

Запись WideString в файл.   Найти похожие ветки 

← →
AlexanderMS ©   (2006-07-10 20:15) [0]

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

---

← →
Джо ©   (2006-07-10 20:21) [1]

Как-то так:
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;


---

← →
AlexanderMS ©   (2006-07-10 20:38) [2]

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

---

← →
AlexanderMS ©   (2006-07-10 20:54) [3]

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

---

← →
Джо ©   (2006-07-10 21:02) [4]

S := Ws;
Ws := S;

---

← →
palva ©   (2006-07-10 23:21) [5]


{$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-11 03:54) [6]

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c