Question

delphi 类定义问题

unit test;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
Ttest=class
private
procedure get(value:string);
end;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.

运行时报错
[Error] test.pas(11): E2065 Unsatisfied forward or external declaration: 'Ttest.Getsth'

Answer 1

在
end.
的前边加上

procedure Ttest.get(value:string);
begin
//这里是过程代码
end;

Answer 2

你这个例子不须定义，就可以完成操作。

Answer 3

请问没定义是什么意思？？
哪一行哪一个词？