Текущий архив: 2004.02.06;
Скачать: CL | DM;

Вниз

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

← →
denkop ©   (2004-01-20 23:42) [0]

Пишу в поток строчку:

var
FileStream:TFileStream;
S:string;
begin
FileStream:=TFileStream.Create("c:\1.ttt",fmCreate);
S:="123456";
FileStream.Write(S,SizeOf(string));
FileStream.Free;
end;

а прочитать нужно только текстом, т.е.

var
f:textfile;
S:string;
begin
AssignFile(f,"c:\1.ttt");
Reset(f);
ReadLn(f,s);
ShowMessage(S);
CloseFile(f);
end;

Как и следовало ожидать в S нечитаемые двоичные данные. Как эти данные преобразовать в читаемую строку?

---

← →
хз ©   (2004-01-20 23:55) [1]

ИМХО, длину строки надо указать. То есть:

S:String[255];

---

← →
хз ©   (2004-01-20 23:55) [2]

ИМХО, длину строки надо указать. То есть:

S:String[255];

---

← →
MBo ©   (2004-01-21 06:49) [3]

FileStream.Write(S[1],Length(S));
Если будет читаться ReadLn-ом, и строк больше одной, нужно после каждой еще писать #13#10, а вообще то в таком случае и писать лучше средствами, предназначенными именно для текстовых файлов (writeln или TStringList)

---

← →
denkop ©   (2004-01-25 14:09) [4]

Спасибо разобрался

---

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

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c