Чтение нескольких записей в TList ?

[spamer]

Вот есть код, некоторые куски которого были найдены на форуме:

type
  PMyType = ^MyType;
  MyType = record
    Name : string[30];
    Path : String[100];
  end;  


var
  Form1: TForm1;
  List : TList;
  PMy, ReadItm  : PMyType;
  fs: TFileStream;
  I : Integer;
implementation

{$R *.dfm}

//Заношу структуры в TLsit
procedure TForm1.Button1Click(Sender: TObject);
begin
   List := TList.Create;
      for I := 0 to 2 do
        begin
           New(PMy);
           PMy^.Name := 'Имя'+IntToStr(i);
           PMy^.Path := 'Путь'+IntToStr(i);
           List.Add(PMy);
        end;
end;

//Записываю структуры в файл
procedure TForm1.Button2Click(Sender: TObject);
begin
  fs:=TFileStream.Create('C:\data.st', fmCreate);
   for I := 0 to List.Count - 1 do
      fs.Write(PMyType(List[i])^, sizeof(MyType));
   fs.Free;
end;

//Добавляю значения полей в ListBox1
procedure TForm1.Button3Click(Sender: TObject);
begin
   for I := 0 to List.Count - 1 do
     begin
         ReadItm := List.Items[i];
         ListBox1.Items.Add(ReadItm^.Name + ReadItm^.Path);
     end;
end;

Вопрос: как мене прочитать структуры из файла в TList ?
Народ, подскажите, уже несколько часов над этим сижу и никак не получается

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

кхм...она точно сохраняется?
при такой структуре в файле надо еще хранить длину текста.

[Stilet]

spamer

Вообще-то это не самый лучший подход, поскольку string у тебя не образмерен, а стало быть скорее всего запишется указатель на нее а не ее содержимое.

Я бы на твоем месте описал отдельным методом запить в файл

[spamer]

Парни, сори что запутал, там действительно строки ограничены.
Код я подправил.

Я бы на твоем месте описал отдельным методом запить в файл

А вот на счет этого, я не понял чето. Вы имеете ввиду что бы вместо записи в файл структур из TList, писать туда сразу созданную структуру не добавляя ее в TList ?
Ну а все же как реализовать чтение структур из файла в TList ?
з.ы. чето я вобще уже запутался(((

[Stilet]

Вот ты подправл код образмерив строки теперь норм.
А вообще я бы такую запись обернул в класс отдельный. В нем свой метод сохранения чтения прикрутил бы, а вместо TList пользовал TObjectList и уже в нем составлял список экземпляров.

[spamer]

Stilet, спс за пояснение улучшения. Но это будет чуть позже. Я хочу вот на это хотябы б реализовать.
Но вопрос о чтении все равно не могу решить.
Вот пытаюсь так читать:

procedure TForm1.Button4Click(Sender: TObject);
begin
List1 := TList.Create;

fs:=TFileStream.Create('C:\data.st', fmOpenRead);
  for I := 0 to 2 do
    begin
      new(ReadItm);
      fs.Read(ReadItm, sizeof(MyType));
      List1.Add(ReadItm);
    end;
end;

Оно выкидывает ошибку access violation at address ((((
Как переделать мой код что бы оно его нормально читало?

[Stilet]

Я покажу как я обычно делаю:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,Contnrs,Classes;
 type
//Это некий тип данных
  MyType = record
    Name : string[30];
    Path : String[100];
  end;
//это класс - единица работающая с переменной этого типа вместо него можно было использовать динамический массив
// Но с я решил этот тип в класс закатать чтоб работа была удобней
 TMyClass=class
   Private
   Public
    mt:MyType;
//Эта процедура тут лишняя. Я забыл ее удавить
    Procedure Save;
   end;
//Это контейнер того класса. Он имеет список, в который вбираются а точнее
// создаются классы элементы
//Этот контейнер полностью контролирует входящие в него элементы - сам мусор убирает, потому
// и предложил в классы обернуть твой пример
 TMy=class
   Public
    one:TObjectList;
   public
// Эта функа выбирает i-тый элемент
    Function Item(i:integer):TMyClass;
// Эта добавляет в список
    Function add:TMyClass;
// Эта все сохраняет
    Procedure Save;
// Эта считывает из фала создавая список и корректно наполняя его обьектами куда попадает считываемая инфа
    Procedure Open;
    Constructor Create;
    Destructor Free;
 end;

{ TMyClass }

procedure TMyClass.Save;
begin
end;

{ TMy }

function TMy.add: TMyClass;
begin
 if one=nil then one:=TObjectList.Create;
 Result:=TMyClass.Create;
 one.Add(Result);
end;

constructor TMy.Create;
begin
 one:=TObjectList.Create;
end;

destructor TMy.Free;
begin
 one.Free;
end;

function TMy.Item(i: integer): TMyClass;
begin
 Result:=nil;
 if (i>=0)and(i<one.Count) then
  Result:=TMyClass(one[i]);

end;

procedure TMy.Open;
var m:TMyClass;   fs: TFileStream;i:integer;
begin
 if one<>nil then one.Clear else one:=TObjectList.Create;
   fs:=TFileStream.Create('C:\temp\data.st', fmOpenRead);
   while fs.Position<fs.Size do begin
      m:=TMyClass.Create;
      fs.read(m.mt, sizeof(MyType));
      one.Add(m);
   end;
   fs.Free;
end;

procedure TMy.Save;
var  fs: TFileStream;i:integer;
begin
  fs:=TFileStream.Create('C:\temp\data.st', fmCreate);
   for I := 0 to one.Count - 1 do
      fs.Write(TMyClass(one[i]).mt, sizeof(MyType));
   fs.Free;
end;



var m:TMy;q:TMyClass;i:integer;
begin
 m:=TMy.Create;
 q:=m.add; q.mt.Name:='1';q.mt.Path:='11';
 q:=m.add; q.mt.Name:='2';q.mt.Path:='22';
 q:=m.add; q.mt.Name:='3';q.mt.Path:='33';
 m.Save;
 m.Open;
 i:=0;
 q:=m.Item(i);
 while q<>nil do begin
   writeln(q.mt.Name,' ',q.mt.Path);
  inc(i);
  q:=m.Item(i);
 end;


 m.Free;
 readln;
end.

Все оборачиваю в классы.

Пояснения нужны?

[spamer]

Stilet, большое спасибо.

Пояснения нужны?

Если тебе не составит труда, то напиши пояснения.

Все оборачиваю в классы.

А это значит, что этот код ты заносиш еще в некий общий класс? Или как это понять?

з.ы. сори за глупые вопросы, просто с классами особо не работал.

[Stilet]

Если тебе не составит труда, то напиши пояснения.

Написал. См. выше.

что этот код ты заносиш еще в некий общий класс?

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

просто с классами особо не работал.

Рекомендую - надежность повышается

[spamer]

Stilet, спасибо еще раз. Теперь буду разбираться в этом детально.

з.ы. сори, что не могу оставить отзыв - пишет, что мол еще кому то нада оставить.