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

TFileStream   Найти похожие ветки 

← →
Seldon   (2003-07-10 15:14) [0]

Здрасьте!
Мне нужно читать текст из Unicode файла. Делаю так:

var
FS:TFileStream;
S:String;
W:WideChar;
R:WideString;
a:Integer;
begin
FS:=TFileStream.Create(OpenDialog.FileName,fmOpenRead);
FS.Seek(2,soFromBeginning);
SetLength(R,(FS.Size-2)div 2); {если закомментировать эти 2 строки и раскомментировать}
FS.Read(R,FS.Size-2); {следующие, то всё работает, но жутко тормозит}
{R:=""
for a:=1 to (FS.Size-2)div 2 do
begin
FS.Read(W,2);
R:=R+W;
end;}
FS.Free;
SetLength(S,Length(R));
WideCharToMultiByte(0,0,@R[1],-1,@S[1],Length(R),nil,nil);
Memo.Lines.Text:=S;
end;

В R получаю "". В чём ошибка?

---

← →
MBo ©   (2003-07-10 15:16) [1]

FS.Read(R [0],FS.Size-2);

---

← →
VMcL ©   (2003-07-10 18:31) [2]

>MBo © (10.07.03 15:16)

FS.Read(R[ 1],FS.Size-2);

---

← →
MBo ©   (2003-07-10 18:36) [3]

Угу ;)

---

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

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



Память: 0.45 MB
Время: 0.013 c