Meydzin
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
народ подскажите плиз в общем у меня дельфи выдает ошибку на любой проге
[Error] Unit1.pas(34): Statement expected but 'PROCEDURE' found
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TfmExample = class(TForm)
Panel1: TPanel;
bbrun: TBitBtn;
bbClose: TBitBtn;
edInput: TEdit;
lbOutput: TLabel;
mmOutput: TMemo;
BbResult: TBitBtn;
procedure bbrunClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmExample: TfmExample;
implementation
{$R *.dfm}
Begin
procedure TfmExample.bbrunClick(Sender: TObject);
begin
lbOutput.Caption:=edInput.Text;
mmOutput.Lines.Add(edInput.Text);
edInput.Text:='';
edInput.SetFocus;
end;
end.
procedure TfmExample.bbrunClick(Sender: TObject); - вот на этой строке и материцца
это пример тупой учебной проги
самый прикол еще 2-3 дня назад - она нормально компилилась без проблем
а теперь ни одна прога ни компилица - ругается вот так на разные процедуры
|
