Помогите найти ошибку в коде, пишет Undeclared identifier 'Edit'

[Dexal]

В чем собственно проблема то?Помогите пожалуйста

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s3:string;
i:integer;
begin
s3:=GetCurrentDir;
Edit.text:=s3;
end;

end.

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Alex11223]

Написано ж в чем, у вас нет ничего с именем Edit.

[TaLadno]

Сообщение от Dexal

procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s3:string;
i:integer;
begin
s3:=GetCurrentDir;
Edit.text:=s3;
end;

Ты хоть положи на форму этот Edit. И таки да, почитай что-то про Delphi, будет полезным

[tsar_]

Сообщение от Dexal

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s3:string;
i:integer;
begin
s3:=GetCurrentDir;
Edit.text:=s3;
end;

end.

Сам писал? Шо такое Edit?

[Dexal]

Сообщение от tsar_

Сам писал? Шо такое Edit?

да какой там сам)препод дала,учи как как хочешь и что хочешь,за месяц перед экзаменом)
вообще edit должно быть как дата...

[tsar_]

Задание-то какое?

[type_Oleg]

Нужен Edit? Делай так..
И на имя обрати внимание - Edit1, а не просто Edit. Хотя имя можно и изменить.

[Dexal]

Сообщение от tsar_

Задание-то какое?

Создать приложение, окно которого содержит элементы управления, указанные в вариантах
Вариант 1. Кнопка "ДАТА" для показа текущей даты, радиокнопка для задания цвета фона формы (включена - цвет серый, выключена - цвет темносерый). Кнопка "ЗАКРЫТЬ" для закрытия приложения

[type_Oleg]

Сообщение от Dexal

... Кнопка "ДАТА" для показа текущей даты..

Текущая дата называется Now, а не GetCurrentDir
К тому же она имеет тип TDateTime, а не string

PS И на это дают аж месяц ? Это чтоб мосх не надорвали ?
Делов-то на 10 минут.

[Dexal]

Сообщение от type_Oleg

Текущая дата называется Now, а не GetCurrentDir
К тому же она имеет тип TDateTime, а не string

как то Date to str(now) или нет?