Сохранение/чтение в нетипизированный файл массива используя потоки

[sanji2010]

Здравствуйте, необходима помощь, так как не понимаю использования потоков, сделал без них, преподаватель сказал переделать, а так же считать с файла через OpenDialog.
Это описание переменных и типа записи.

type
  Ticq=record
       Uin: Cardinal;
       Name: string;
       mail: string;
       phone: string;
  end;
const
MaxSize=20;
var
  Form1: TForm1;
  ICQ: Ticq;
  MasIcq: array [1..MaxSize] of Ticq;
  p: Integer;

Имеется данная процедура для сохранения в файл, используя SaveDialog.

procedure TForm1.SaveFileClick(Sender: TObject);
var FName: string; num:Integer;
    F: TextFile;
begin
 if p=0 then
   begin
   ShowMessage('База пуста!');
   Exit;
   end
 else
SaveInFile.FileName := FName;
if SaveInFile.Execute then
 begin
  FName := SaveInFile.FileName;
  AssignFile(f,FName);
  Rewrite(f);
  for num:=1 to p do begin
   writeln(F,MasIcq[num].Uin);
   writeln(F,MasIcq[num].Name);
   writeln(F,MasICQ[num].Mail);
   writeln(F,MasICq[num].phone);
  end;
  CloseFile(F);
 end;
end;

Мне необходимо сохранить массив записей в файл, используя потоки, а так же процедура считывания из файла и записать в массив записей, так же используя потоки

[min@y™]

TSaveDialog не имеет отношения к сохранению, его функция - выбор имени.
Остальное – в корне неверно, т.к. ты юзаешь текстовый файл, а по условию надо бинарник.

Но я, конечно, знаю, как сделать твою лабу через какого-нить потомка TStream. Нужно вместе с полем сохранять его размер.
Если утром задача будет ещё актуальна, свяжись со мной.

[sanji2010]

Сообщение от min@y™

TSaveDialog не имеет отношения к сохранению, его функция - выбор имени.
Остальное – в корне неверно, т.к. ты юзаешь текстовый файл, а по условию надо бинарник.

Но я, конечно, знаю, как сделать твою лабу через какого-нить потомка TStream. Нужно вместе с полем сохранять его размер.
Если утром задача будет ещё актуальна, свяжись со мной.

Да, я знаю, то что я скинул выше, естественно не верно, т.к. я там вообще поток не юзаю. Нашёл, в принципе, информацию в интернете, но не знаю как связать с компонентами. Так ли это выполняется?

type
  TPerson = record
    Name: String;
    Age: Integer;
    Salary: Currency;
  end;
 
  TPersons = array of TPerson;
 
// Сохранение в файл
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TFileStream;
  Values: TPersons;
  Index: Integer;
begin
  SetLength(Values, 3);
  for Index := 0 to High(Values) do
  begin
    Values[Index].Name := 'Person #' + IntToStr(Index);
    Values[Index].Age := Random(20) + 20;
    Values[Index].Salary := Random(10) * 5000;
  end;
 
  F := TFileStream.Create(ExtractFilePath(GetModuleName(0)) + 'Test.bin', fmCreate or fmShareExclusive);
  try
    for Index := 0 to High(Values) do
    begin
      WriteBufferDyn(F, Values[Index].Name);
      F.WriteBuffer(Values[Index].Age, SizeOf(Values[Index].Age));
      F.WriteBuffer(Pointer(@Values[Index].Salary)^, SizeOf(Values[Index].Salary));
    end;
  finally
    FreeAndNil(F);
  end;
end;
 
// Загрузка из файла
procedure TForm1.Button2Click(Sender: TObject);
var
  F: TFileStream;
  Values: TPersons;
  Value: TPerson;
begin
  F := TFileStream.Create(ExtractFilePath(GetModuleName(0)) + 'Test.bin', fmOpenRead or fmShareDenyWrite);
  try
    while not EoS(F) do
    begin
      ReadBufferDyn(F, Value.Name);
      F.ReadBuffer(Value.Age, SizeOf(Value.Age));
      F.ReadBuffer(Pointer(@Value.Salary)^, SizeOf(Value.Salary));
 
      SetLength(Values, Length(Values) + 1);
      Values[High(Values)] := Value;
    end;
  finally
    FreeAndNil(F);
  end;
 
  // Здесь Values тождественно равны исходным данным из Button1Click
end;

[min@y™]

WriteBufferDyn
ReadBufferDyn

шо за функции?

[Аватар]

http://www.gunsmoker.ru/2011/11/blog-post_12.html

WriteBufferDyn и ReadBufferDyn тоже от туда

[sanji2010]

Компилятор ругается на EoS, хотя и вправду вижу данную функцию впервые