Streaming Objects to File ?

unit UntCommon;

interface

uses Classes, Contnrs, Graphics;

type

TQuizType = (qtTrueFalse, qtMultipleChoice, qtFillBlanks, qtAll);

TQuestion = class(TObject)
 private
  fQuestion: String;
  fAnswer: String;
  fAnswers: TStringList;
  fImage: TPicture;
  procedure SetQuestion(Value: String);
  procedure SetAnswer(Value: String);
  procedure SetAnswers(Value: TStrings);
  procedure SetImage(Value: TPicture);
  function GetQuestion: String;
  function GetAnswer: String;
  function GetAnswers: TStrings;
  function GetImage: TPicture;
 public
  constructor Create;
  destructor Destroy;override;
 published
  property Question: String read GetQuestion write SetQuestion;
  property Answer: String read GetAnswer write SetAnswer;
  property Answers: TStrings read GetAnswers write SetAnswers;
  property Image: TPicture read GetImage write SetImage;
end;

TQuestions = class(TObjectList)
 private
  function GetItems(Index: Integer): TQuestion;
  procedure SetItems(Index: Integer; value: TQuestion);
 public
  constructor Create;
  function Add(value: TQuestion): Integer;
  function IndexOf(value: TQuestion): Integer;
  procedure Insert(Index: Integer; value: TQuestion);
  function Remove(value: TQuestion): Integer;
 published
  property Items[Index: Integer]: TQuestion read GetItems write SetItems; default;
end;

TQuiz = class(TObject)
 private
  fTitle: String;
  fType: TQuizType;
  fAuthor: String;
  fQuestions: TQuestions;
  procedure SetTitle(Value: String);
  procedure SetType(Value: TQuizType);
  procedure SetAuthor(Value: String);
  procedure SetQuestions(Value: TQuestions);
  function GetTitle: String;
  function GetType: TQuizType;
  function GetAuthor: String;
  function GetQuestions: TQuestions;
 public
  constructor Create;
  destructor Destroy;override;
  //procedure SaveToFile(FileName: String);
  //procedure LoadToFile(FileName: String);
 published
 property Title: String read GetTitle write SetTitle;
 property QuizType: TQuizType read GetType write SetType;
 property Author: String read GetAuthor write SetAuthor;
 property Questions: TQuestions read GetQuestions write SetQuestions;
end;

implementation

{********** TQuestion **********}

procedure TQuestion.SetQuestion(Value: String);
begin
 if fQuestion <> Value then
  fQuestion:= Value;
end;

procedure TQuestion.SetAnswer(Value: String);
begin
 if fAnswer <> Value then
  fAnswer:= Value;
end;

procedure TQuestion.SetAnswers(Value: TStrings);
begin
  fAnswers.Assign(Value);
end;

procedure TQuestion.SetImage(Value: TPicture);
begin
 fImage.Assign(Value);
end;

function TQuestion.GetQuestion: String;
begin
 result:= fQuestion;
end;

function TQuestion.GetAnswer: String;
begin
 result:= fAnswer;
end;

function TQuestion.GetAnswers: TStrings;
begin
 result.Assign(fAnswers);
end;

function TQuestion.GetImage: TPicture;
begin
 result.Assign(fImage);
end;

constructor TQuestion.Create;
begin
 inherited Create;
 fAnswers:= TSTringList.Create;
 fImage:= TPicture.Create;
 fImage:= nil;
end;

destructor TQuestion.Destroy;
begin
 fImage.Free;
 fAnswers.Free;
 inherited Destroy;
end;

{********** TQUESTIONS **********}

constructor TQuestions.Create;
begin
 inherited Create(true);
end;

function TQuestions.Add(value: TQuestion): Integer;
begin
 Result := inherited Add(value);
end;

function TQuestions.GetItems(Index: Integer): TQuestion;
begin
 Result := TQuestion(inherited Items[Index]);
end;

function TQuestions.IndexOf(value: TQuestion): Integer;
begin
 Result := inherited IndexOf(value);
end;

procedure TQuestions.Insert(Index: Integer; value: TQuestion);
begin
 inherited Insert(Index, value);
end;

function TQuestions.Remove(value: TQuestion): Integer;
begin
 Result := inherited Remove(value);
end;

procedure TQuestions.SetItems(Index: Integer; value: TQuestion);
begin
 inherited Items[Index] := value;
end;

{********** TQUIZ **********}

procedure TQuiz.SetTitle(Value: String);
begin
 if fTitle <> Value then
  fTitle:= Value;
end;

function TQuiz.GetTitle: String;
begin
 result:= fTitle;
end;

procedure TQuiz.SetType(Value: TQuizType);
begin
 if fType <> Value then
  fType:= Value;
end;

function TQuiz.GetType: TQuizType;
begin
 result:= fType;
end;

procedure TQuiz.SetAuthor(Value: String);
begin
 if fAuthor <> Value then
  fAuthor:= Value;
end;

function TQuiz.GetAuthor: String;
begin
 result:= fAuthor;
end;

procedure TQuiz.SetQuestions(Value: TQuestions);
begin
 fQuestions.Assign(Value);
end;

function TQuiz.GetQuestions: TQuestions;
begin
 result.assign(fQuestions);
end;

constructor TQuiz.Create;
begin
 inherited Create;
 fQuestions:= TQuestions.Create;
 fQuestions.OwnsObjects:= True;
end;

destructor TQuiz.Destroy;
begin
 fQuestions.Free;
 inherited Destroy;
end;

end.

Select allOpen in new window