Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Aug 1st, 2012  |  syntax: Delphi  |  size: 0.30 KB  |  hits: 24  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. var
  2.   frmMain: TfrmMain;
  3.   FilePath : String;
  4.   FileContents : TStringList;
  5.  
  6. implementation
  7.  
  8. {$R *.dfm}
  9.  
  10. procedure TfrmMain.btnLoadFileClick(Sender: TObject);
  11. Var
  12.   DataFile : TextFile;
  13. begin
  14.   FileContents := TStringList.Create;
  15.   AssignFile(DataFile,FilePath);
  16.   Reset(DataFile);
  17.  
  18. end;
create a new version of this paste RAW Paste Data