Developing.ru

Pa vart webbhotell kan ni kanna er trygg! Forutom att vi anvander oss av speglade harddiskar pa alla vara servrar sa tar vi aven backup tva ganger per dygn pa separata servrar. Vi anvander oss av ISPmanager som kontrollpanel. ISPmanager ar en kontrollpanel som gor det enkelt att administrera sin hemsida. Hos oss kan ni lagga hur manga hemsidor och domaner ni onskar under ett webbhotellskonto.
[url=http://fastvds.pro/shared-hosting.html]virtual hosting[/url]

т.е. если мне не изменяет мой маразъм (что вполне может быть), ваш модуль должен иметь вид:
[quote]
unit Unit1;

interface

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

type
TForm1 = class(TForm)
lbl1: TLabel;
edt1: TEdit;
procedure button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;
var
[b]Form1: TForm1;
Form2: TForm1;[/b]
Edit1: TEdit;
implementation
{$R *.dfm}
[b]procedure TForm1.button1Click(Sender: TObject);[/b]
begin
form2.Show;
end;

[b]begin
end.[/b][/quote]

PS: Код правил навскидку, возможны ошибки

1) Процедуры и функции должны располагаться вне основного исполняемого блока (begin..end.)
2) Переменная Form1 скорее всего типа TForm1
3) button1Click указана как принадлежащая к классу TForm1, но описана потом без классового префикса

unit Unit1;

interface

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

type
TForm1 = class(TForm)
lbl1: TLabel;
edt1: TEdit;
procedure button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm;
Form2: TForm;
Edit1: TEdit;
implementation
{$R *.dfm}
begin
procedure button1Click(Sender: TObject);
begin
form2.Show;
end;

end.

Дальше ничего не могу сказать - нет полного кода

type
TForm1 = class(TForm)
Button1Click(Sender: TObject);
теперь он просит заменить ( на :

заменила
теперь опять докопался до процедуры
[Error] Unit1.pas(50): Statement expected but 'PROCEDURE' found

В описателе класса добавить
procedure Button1Click(Sender: TObject);

кнопке Button1 событию OnClick присвоить обработчик Button1Click

А можно подробнее написать, как это сделать, а то я совсем не понимаю :)

[quote]что делать??[/quote]
Скорее всего процедура не описана в классе TForm1

[quote="AiK"][b]Twins[/b],
procedure TForm1.Button1Click(Sender: TObject);
[/quote]
вот на этой строчке он меня и мучает:
[Error] Unit1.pas(36): Statement expected but 'PROCEDURE' found
что делать??