Чтение типизированного строкового файла

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

Эмм... невникаю...

var
  TS: TStringList;
  i: Integer;
  YTF:TYVFile;
begin
  if not FileExists(aFile) then
    Exit;

  TS := TStringList.Create;
  try
    TS.LoadFromFile(aFile);
    while i > 0 do
    begin
      i := TS.Count - 1;
      YTF:=TYVFile.Create;
      YTF.Description:=TS[i];
      YTF.Title:=TS[i-1];
      YTF.Filename:=TS[i-2];


      TS.Delete(i);
      TS.Delete(i-1);
      TS.Delete(i-2);
      Add(YTF);
    end;
  finally
    FreeAndNil(TS);
  end;
end;

Направьте на путь истинный.

О, аватар ответил. Пойду вникать.

[spamer]

Как-то так:

  TFileObj = class(TObject)
  private
    FPath: String;
    FTitle: String;
    FDescripiton: String;
  public
    constructor Create(const APath: String; const ATitle: String; const ADescripiton: String);

    property Path: String
      read FPath;
    property Title: String
      read FTitle;
    property Descripiton: String
      read FDescripiton;
  end;

  TFileObjList = class(TObjectList)
  private
    function GetItems(Index: Integer): TFileObj;
    procedure SetItems(Index: Integer; const Value: TFileObj);
  public
    property Items[Index: Integer]: TFileObj read GetItems write SetItems; default;
  end;

// ...

var
  sl: TStringList;
  FileObjList: TFileObjList;

// ...

{ TFileObj }

constructor TFileObj.Create(const APath, ATitle, ADescripiton: String);
begin
  FPath := APath;
  FTitle := ATitle;
  FDescripiton := ADescripiton;
end;

{ TFileObjList }

function TFileObjList.GetItems(Index: Integer): TFileObj;
begin
  Result := TFileObj(inherited GetItem(Index));
end;

procedure TFileObjList.SetItems(Index: Integer; const Value: TFileObj);
begin
  inherited SetItem(Index, Value);
end;

// ...

procedure TForm1.Button1Click(Sender: TObject);
const
  Sections = 4;
var
  i, j: Integer;
begin
  sl := TStringList.Create;
  FileObjList := TFileObjList.Create;
  try
    sl.LoadFromFile('D:\test.txt');
    i := 0;
    while i < sl.Count-1 do
    begin    
      FileObjList.Add(TFileObj.Create(sl[i], sl[i+1], sl[i+2]));
      inc(i, Sections);
    end;

    for j := 0 to FileObjList.Count-1 do
      Memo1.Lines.Add(FileObjList[j].Path + ' ' + FileObjList[j].Title + ' ' + FileObjList[j].Descripiton);
  finally
    FreeAndNil(sl);
    FreeAndNil(FileObjList);
  end;
end;

[maloun]

А в чем проблема, то?
В обращениях?
Зачем читать файл, что делать с этой инфой то..?

#Путь к файлу
#Название
#Описание
<Разделитель, пустая строка>
#Путь к файлу
#Название
#<пустая строка>
<Разделитель, пустая строка>
#Путь к файлу
#<пустая строка>
#Описание
<Разделитель, пустая строка>
#Путь к файлу
#<пустая строка>
#<пустая строка>
<Разделитель, пустая строка>

Я б загрузил текст в StringList, использовал, удалил, закрыл программу.