home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap15 / pcharfun / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  999 b   |  57 lines
  1. unit Main;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: }
  5.  
  6. { This program demonstrates how to retrieve a
  7.   PChar from a function. The key point is that
  8.   you should never allocate memory for the PChar
  9.   from inside the called function, but should
  10.   first allocate memory, pass the string to a
  11.   function, and then change the string that
  12.   has been passed in. }
  13.  
  14. interface
  15.  
  16. uses
  17.   WinTypes, WinProcs, Classes,
  18.   Graphics, Forms, Controls,
  19.   StdCtrls;
  20.  
  21. type
  22.   TForm1 = class(TForm)
  23.     Button1: TButton;
  24.     Edit1: TEdit;
  25.     procedure Button1Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   Form1: TForm1;
  34.  
  35. implementation
  36.  
  37. uses
  38.   SysUtils;
  39.  
  40. {$R *.DFM}
  41.  
  42. procedure GetDate(Date: PChar);
  43. begin
  44.   StrCopy(Date, '11/01/94');
  45. end;
  46.  
  47.  
  48. procedure TForm1.Button1Click(Sender: TObject);
  49. var
  50.   S: array[0..100] of char;
  51. begin
  52.   GetDate(S);
  53.   Edit1.Text := S;
  54. end;
  55.  
  56. end.
  57.