如何将从文件中读取的字符串赋值给对象实例？

Question

譬如
type
TAnswer=class(TAnswer)
   private
    scorepoint:string;
   public
    score:double;
   procedure getpoint（s:string);
   function setscore:double;
end;
...我想把文本文档中的两个字符串，读取出来赋值给Tanswer类的新的对象实例， 
例如：文本文档中的两部分内容分别是是“memo1.caption:=good;”  “1”  之间以多个空格分开将“memo1.caption:=good;”附给scorepoint  将“1”附值给score,  可以实现吗？怎么实现呀？

Answer 1

var s:String;
    BlankPos:integer;
    Answer:TAnswer;
begin
  s:=edit1.Text ;  //“memo1.caption:=good;”  “1”  
  BlankPos:=Pos(' ',s);
  Answer.scorepoint :=Trim(Copy(s,1,BlankPos));
  Showmessage( Answer.scorepoint);
  Delete(s,1,BlankPos);
  Answer.score :=Trim(s);
end;
你看行不行?