读文本

Question

有一个文本文件内容为1,2,3,4
有四个edit
如何把内容读入EDIT.

Answer 1

var
  F: TFileStream;
  P: PChar;
begin
  GetMem(P,MAXBYTE);
  F := TFileStream.Create(FileName,fmOpenRead);
  F.Read(P,Length(P));
  Edit1.Text := String(P)[1];
  ....
  FreeMem(P);
  FreeAndNil(F);  
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————