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)

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

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