楚
楚辞
Unregistered / Unconfirmed
GUEST, unregistred user!
function GetFileContent(const AFile: String): String;var// s: TStringList;begin Result := ''; s := TStringList.Create; try s.LoadFromFile(AFile); Result := s.Text; finally s.Free; end;end;