Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.038 c
8-16538
pasha_676
2003-10-03 10:13
2004.02.06
Управление видеомагнитофоном по FireWire


3-16073
Zamik
2004-01-12 11:02
2004.02.06
Как получить строку пути из Алиаса


14-16644
}|{yk
2004-01-13 13:02
2004.02.06
Смотрите, как нужно работать!


14-16622
LSV
2004-01-15 03:16
2004.02.06
Подскажите, какие книги по Delphi 7 самые лучшие?


14-16671
goga
2004-01-16 22:50
2004.02.06
Никуда не гожусь