Главная страница
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.075 c
1-16491
__Alex__
2004-01-26 20:44
2004.02.06
Эффекты при загрузке формы с помощью регионов


3-16064
kaif
2004-01-15 17:32
2004.02.06
Как купить Yaffil ?


1-16229
sanf
2004-01-26 20:43
2004.02.06
Курсор в Memo


1-16383
Бывающий
2004-01-23 16:39
2004.02.06
TOleContainer. Мышь ведет себя странно. Не select-ит Помогите ПЛЗ


8-16515
Il'ya
2003-09-28 13:47
2004.02.06
Работа с waveOut