Структуры,Записи в делфи ПРОБЛЕМА

[mar4elo]

type
 str=record
 f:integer;
 s:string;
end;
var
mas[0..100] of str;
.......

Вопрос: как массив со структурой записать в файл, а потом обратно прочитать из файла в массив

[BOBAH13]

Подразумивается:

type
  str = packed record // я всегда использую packed
    f: Integer;
    s: String;
  end;
var
  F: File;
  mas: array[0..100] of str;
...
  Assigned(F, 'someone.txt');
  Reset(F, 1);

Пример записи елемента массива:

BlockWrite(F, mas[Index].f, SizeOf(mas[Index].f));
BlockWrite(F, Pointer(mas[Index].s)^, Length(mas[Index].s));

думаю в цикл for Low to High сами подставите и замените Index на циклическую переменную ?

[Роман Радер]

помоему проще вместо BlockWrite делать так:

var f:File of str;
mas:array[0..99] of str;
...
чтение
assign(f,'file.ext'); //!!! не "Assigned" a "Assign" assigned проверяет на выделенную память.
reset(f);
for i:=0 to 99 do
  Read(f,mas[i]);
close(f)
...
запись
assign(f,'file.ext');
rewrite(f);
for i:=0 to 99 do
  Write(f,mas[i]);
close(f);

[mar4elo]

var f:File of str;
В этой строчку выдаёт ошибку!!!

[DCC Error] Unit1.pas(36): E2155 Type 'Str' needs finalization - not allowed in file type

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Zapis = record
    UIN : integer;
    STR : String;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1 : TForm1;
  Mas : Array [0..10] of Zapis;
  Fil: File OF Zapis ;//Выдает сдесь ошибку

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Assign(Fil,'File.txt'); и сдесь
end;
end.

[Баламут]

И правильно выдает ошибку. Ограничь длину STR и будет тебе счастье. И настоятельно рекомендую почитать о типах данных в Делфи, в частности о string. Довольно увлекательно

[BOBAH13]

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

[DCC Error] Unit1.pas(36): E2155 Type 'Str' needs finalization - not allowed in file type

p.s. как обычно решение в первом же ответе... так нее ))) давайте сведем программирование в одну строку!

[mar4elo]

ТЕМА ЗАКРЫТА