|
Тема |
bug в TStream.SaveToFile ? |
|
Автор |
Maнитy (тайнствен) |
|
Публикувано | 30.10.01 18:30 |
|
|
Следния примерен код дава странни резултати:
var
TmpStream : TMemoryStream;
IntVar : Integer;
ByteVar : Byte;
StrVar : String; //в Delphi6 -> AnsiString, null терминиран
begin
IntVar := 1000;
ByteVar := 100;
StrVar := 'що не става да му!';
TmpStream := TMemoryStream.Create;
with TmpStream do
begin
Write(IntVar, SizeOf(IntVar));
Write(ByteVar, SizeOf(ByteVar));
Write(StrVar, Length(StrVar));
SaveToFile(Path);
Free;
end;
end;
... имам чувството, че TStream (TMemoryStream е негов наследник) грешно конвертира стрингове или трябва преди това да конвертирам в Byte тип ръчно, но как.. изключвам възможността знак по знак, бавно и глупаво, би трябвало сам да го прави, а Integer и Byte типовете се записват коректно, освен това в самия stream мисля, че стринга се записва коректно, но след записа става каша в файла почему ?
Моля спешно помогнете
...may the source be with you <P ID="edit"><FONT class="small"><EM>Редактирано от Maнитy на 30.10.01 18:31.</EM></FONT></P>Редактирано от Maнитy на 30.10.01 18:31.
|
| |
|
|
|