Запись 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;

{$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.

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

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

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