Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.02.17;
Скачать: CL | DM;

Вниз

При записи в файл через TFileStream и TWriter в файл попадает мусор   Найти похожие ветки 

 
TFileStream   (2008-01-26 22:13) [0]

При записи в файл через TFileStream и TWriter в файл попадает мусор

[code]
procedure Load;
var
 fs:TFileStream;
 tw:TWriter;
 s:string;
 i:word;
begin
 s:="";
 fs:=TFileStream.Create("table.txt",fmCreate or fmOpenWrite);
 tw:=TWriter.Create (fs, 1);
  try
   tw.WriteListBegin;
   tw.WriteChar("B");
   tw.WriteListEnd;
  finally
   tw.free;
   fs.free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Load;
end;
[/code]

Вместо одного байта файл содержит пять, вот пример (in hex):
01 01 01 42 00

В чём тут дело?


 
jack18_   (2008-01-26 23:30) [1]


> Вместо одного байта файл содержит пять

а с чего ты взял, что он должен соджержать 1 байт??
По твоему эти три строчки
>   tw.WriteListBegin;    tw.WriteChar("B");    tw.WriteListEnd;

один байт что ли запишут??? Ну так ты глубоко ошибаешся.


 
TFileStream   (2008-01-26 23:48) [2]

Да, это понятно, но если вот так сделать:

try
  tw.WriteChar("B");
finally
  tw.free;
  fs.free;
end;


То всё равно там
06 01 42

А нужно что бы только один символ туда записался.


 
jack18_   (2008-01-27 00:42) [3]


> То всё равно там


потому что райтер, как я понимаю еще и сигнатуру в поток пишет.
кажись от использования райтера и просто через поток пиши:


procedure Stream_WriteChar(Stream: Tstream; Ch: Char);
begin
 Stream.WriteBuffer(Ch, SizeOf(Ch))
end;

fs:=TFileStream.Create("table.txt",fmCreate or fmOpenWrite);
try
  Stream_WriteChar(fs, "B" );
finally
 fs.free;
end;



 
Jack128_   (2008-01-27 00:44) [4]

Кстати, записывать данные в файл в процедуре под название Load - это мягко говоря спорное решение ;-)


 
Германн ©   (2008-01-27 00:52) [5]


> Jack128_   (27.01.08 00:44) [4]
>
> Кстати, записывать данные в файл в процедуре под название
> Load - это мягко говоря спорное решение ;-)
>

Да. Лучше переименовать в UpLoad :)


 
TFileStream   (2008-01-27 12:00) [6]

>Кстати, записывать данные в файл в процедуре под название Load - это мягко говоря спорное решение ;-)

Я привёл только фрагмент процедуры.

Спасибо, вопрос решён.



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

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

Наверх




Память: 0.48 MB
Время: 0.016 c
2-1201272521
erroremaerr
2008-01-25 17:48
2008.02.17
Всем с днем студента :)


1-1194517113
DDDeN
2007-11-08 13:18
2008.02.17
Реализация механизма расписания


6-1178645354
flaxe
2007-05-08 21:29
2008.02.17
Съэмулировать клиент


2-1201086730
Guriev
2008-01-23 14:12
2008.02.17
Как расчитать количество рабочих дней между двумя датами?


15-1200547314
гость
2008-01-17 08:21
2008.02.17
на каком языке это написано ?