我自己写的函数应该放在什么地方？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BtnChange: TButton;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure BtnChangeClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;implementation//我是放在这里，但有问题，编译不了***************************function myChange(str:string):string;
begin
  ...............
end;end.

Answer 1

var
  Form1: TForm1;function myChange(str:string):string;  //加上这句申明implementation//我是放在这里，但有问题，编译不了***************************function myChange(str:string):string;
begin
  ...............
end;

Answer 2

晕，我写了，还是有这样的错误[Error] Unit1.pas(75): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(130): Statement expected but 'PROCEDURE' found

Answer 3

私有的放在
private
    { Private declarations }下
公用的在
 public
    { Public declarations }下

Answer 4

public
    { Public declarations }
    function myChange(str:string):string;有多了一个[Error] Unit1.pas(27): Unsatisfied forward or external declaration: 'TForm1.Change'

Answer 5

放在Type里..私有的放Private..公共的放Public.//////////////
[Error] Unit1.pas(75): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(130): Statement expected but 'PROCEDURE' found看看是不是少了';'号...

Answer 6

function myChange(str:string):string;  //加上这句申明
应该放在var之前

Answer 7

声明
 private
    function myChange(str:string):string;实现:
function TForm1.myChange(str:string):string;

Answer 8

implementation{$R *.DFM}             //你是不是把这句话给删了所以出现下面的错误[Error] Unit1.pas(75): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(130): Statement expected but 'PROCEDURE' found