Форум: "Начинающим";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];
ВнизЗапись 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c