TFileStream не сохраняет [delphi]

[Arkuz]

Здравствуйте.
Вот пришлось взяться за TFileStream. Пытался с ним раньше работать, но как-то не получалось... Не могу сохранить ничего в файл, ну и соответственно прочитать. Я так понимаю, что не верно что-то в SizeOf.
Подскажите что делать?

Функция сохранения

try
   begin
     Fn:=ExtDel(Fn)+'.bop';
     str:=Crypt('#bop_');
     l:=Sg.RowCount;
     BopStream:=TFileStream.Create(Fn,fmCreate);
     BopStream.WriteBuffer(l,sizeof(l));
     BopStream.WriteBuffer(str,sizeof(str));
     str:='';
     for i:=1 to l do
     begin
       str:=Crypt(Sg.Cells[0,i]);
       BopStream.WriteBuffer(str,sizeof(str));
       str:=Crypt(Sg.Cells[1,i]);
       BopStream.WriteBuffer(str,sizeof(str));
       str:=Crypt(Sg.Cells[2,i]);
       BopStream.WriteBuffer(str,sizeof(str));
       str:=Crypt(Sg.Cells[3,i]);
       BopStream.WriteBuffer(str,sizeof(str));
     end;
     BopStream.Free;
   end;
 except
     Result:=false;
     BopStream.Free;
 end;

Процедура открытия

procedure TMainForm.Button2Click(Sender: TObject);
var
 i,l:integer;
 str,tmp:string;
begin
     tmp:='';
     BopStream:=TFileStream.Create('C:\Documents and Settings\Arkuz\Рабочий стол\333.bop',fmOpenRead);
     BopStream.ReadBuffer(l,sizeof(integer));
     BopStream.ReadBuffer(str,sizeof(string));
    // str:=Decrypt(str);
     for i:=1 to l do
     begin
       BopStream.ReadBuffer(str,sizeof(string));
       str:=Decrypt(str);
       tmp:=tmp+str+'  ';

       BopStream.ReadBuffer(str,sizeof(string));
       str:=Decrypt(str);
       tmp:=tmp+str+'  ';

       BopStream.ReadBuffer(str,sizeof(string));
       str:=Decrypt(str);
       tmp:=tmp+str+'  ';

       BopStream.ReadBuffer(str,sizeof(string));
       str:=Decrypt(str);
       tmp:=tmp+str+'  ';

       ListBox1.Items.Add(tmp);
       tmp:='';
     end;
     BopStream.Free;
end;

[Serge_Bliznykov]

str := ...
str - какой тип данных? строка небось?
попробуйте сохранять так:

var W : longint;
....
    str:=Crypt(Sg.Cells[0,i]);
    W := length(str); 
    {записываем сначала длину строки}
    BopStream.WriteBuffer(W, sizeof(W));
    {потом, собственно строку}
    if W>0 then 
       BopStream.WriteBuffer(str[1], W);

читать примерно так:

    
   BopStream.ReadBuffer(W, sizeof(W));
   if W = 0 then str := '' 
   else begin
     SetLength(str, W);
     BopStream.ReadBuffer(str[1], W);
   end;

p.s. если версия Delphi => 2010 - то возможны проблемы с Unicode строками.... Надо или умножать длину на 2 или использовать AnsiString....

[Arkuz]

Serge_Bliznykov, объясните код мне пожалуйста:

BopStream.WriteBuffer(W, sizeof(W)); - тут понятно...

if W>0 then BopStream.WriteBuffer(str[1], W); - вот здесь не понятно, особенно про str[1]. Почему один?

[Serge_Bliznykov]

нумерация в строке в Pascal всегда начинается с первого символа. т.о. str[1] - это указатель на первый символ строки.

p.s. так предложенный вариант работает?

[Пепел Феникса]

Надо или умножать длину на 2

лучше на SizeOf(char)

[Serge_Bliznykov]

отвечаю на вопрос в личку...

вот работающий пример.
StrExample1.rar


Arkuz, Вашего кода не видно,
поэтому трудно сказать, где Вы сделали ошибку.
проверяйте размер, который Вы указываете при записи строки в файл...

[Arkuz]

спасибо, очень помогли. Теперь вродебы всё работает...