Ошибочка...

[Crabobass]

Всем привет. Ребят, обьясните пожалуйста. Уже который раз сталкиваюсь с такой проблемой никак не могу понять в чем дело. Есть задача. Не будем вдаваться в подробности, в итоге нужно записать массив в файл используя TFileStream. В файл он записывает вот такое: # # % # # % % % % % # . Обьясните пожалуйста что к чему и как можно более подробнее. Заранее очень благодарен. Вот код.

type
  mas=array [0..10] of Integer;
procedure TForm1.btn1Click(Sender: TObject);
var
  f:TFileStream;
  a:mas;
  i,Size,tmp1:Integer;
  p:Pointer;
begin
  For i:=0 to 10 do
   begin
    randomize;
    a[i]:=Random(40);
   end;
  tmp1:=a[2];
  a[2]:=a[10];
  a[10]:=tmp1;
 p:=@a;
 F:=TFileStream.Create('Massiv.txt',FmCreate);
 f.Write(p^,SizeOf(a));
 f.Free;


end;

Если можно то напишите примерчик. Как записывать массивы что б небыло абракадабры в итоге. Надеюсь на вас.

[Serge_Bliznykov]

ну, как вариант:

 f.Write(Mas[0],SizeOf(Mas));

p.s. меня терзают смутные сомнения!
А как Вы проверяете, что и как записалось?!
Ведь получаемый файл - БИНАРНЫЙ (двоичный)!
Если его посмотреть в блокноте (или в любой редакторе) - то и увидишь всякие подобные непечатные символы...

[Прик]

Мудрить с указателями здесь нет нужды. Все в приведенном коде правильно, кроме одного:

// p:=@a;
 F:=TFileStream.Create('Massiv.txt',FmCreate);
 f.Write(a, SizeOf(a));
 f.Free;

А в файл он правильно записывает. В файл пишутся бинарные представления чисел. И мы не можем это представление связать с чем-то понятным, например, с цифровыми символами ("0", "1", ... "9").

[Человек_Борща]

А почему бы и не StringList?

[Crabobass]

2Serge_Bliznykov. А никак я не проверял. Я наивно считал что и должны записываться символы которые и есть в массиве. Мы на паре пример такой разбирали. Ну вобщем то пришёл тогда моим страданиям конец. Спасибо Всем Огромное!

[chertovich]

Сообщение от Serge_Bliznykov

ну, как вариант:

 f.Write(Mas[0],SizeOf(Mas));

p.s. меня терзают смутные сомнения!
А как Вы проверяете, что и как записалось?!
Ведь получаемый файл - БИНАРНЫЙ (двоичный)!
Если его посмотреть в блокноте (или в любой редакторе) - то и увидишь всякие подобные непечатные символы...

В Hex редакторе, отображается соотвествующие байтам символы. То есть текстовый файл частный случай бинарного