Ошибки при компилировании в Lazarus при Win32 , Извините, что создаю тему, просто я искал в других темах и не нашел.. дело вот в чем..

я только что начал
изучать Free Pascal и Lazarus. И по учебнику делаю задание и мне выводит ошибку при компиляции в первой строке.

procedure TForm1 . But ton1Click ( Sender : TObject ) ;
var
pud , funt : integer ;
kg : real ;
begin
pud:=St rToInt ( Edi t1 . Text ) ;
funt :=St rToInt ( Edi t2 . Text ) ;
kg:=pud*16.38+ funt*16.38/40 ;
Label4 . Caption:= ’В_килограммах:_’+FloatToSt r ( kg ) ;

все по учебнику перепроверил. все символ в символ, а компилировать не хочет, пишет ошибки

unit1.pas(38,2) Error: Illegal expression
unit1.pas(38,12) Fatal: Syntax error, ";" expected but "identifier TFORM1" found

помогите пожалуйста. незнаю как быть.

Сообщение отредактировано: volvo877 - 11.03.11, 13:18

Ошибка - в коде выше, где-то либо не тот раздел указан, либо не хватает чего-то... Покажи весь код...

И потом... У тебя вот эти пробелы среди слов что, прямо в коде тоже присутствуют? Их не должно быть. Или ты перепечатываешь сюда? Не надо этого делать. Копируй. Так больше вероятности, что не внесешь еще и во время задавания вопроса ошибку...

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{ TForm1 }
 
begin
 procedure TForm1.But ton1Click(Sender:TObject);
var
pud,funt:integer;
kg:real;
begin
pud:=StrToInt(Edit1.Text );
funt:=StrToInt(Edit2.Text);
kg:=pud*16.38+funt*16.38/40;
Label4.Caption:=’В_килограммах:_’+FloatToStr(kg);
end;
 
initialization
  {$I unit1.lrs}
 
end.

вот весь полностью код

Добавлено 11.03.11, 13:30
ах даа... пробелы после компиляции(после ее попытки)появились. и если возможно, то покажите наглядно, где и что неправильно. просто я в терминах пока что тупой.. пару дней, как учу всего лишь..

Сообщение отредактировано: volvo877 - 11.03.11, 13:47

begin в строке №37 - лишний. Убери его, и все заведется... Апострофы тоже замени на прямые ( 'вот такие' ). Пользуйся подсветкой, ее не просто для красоты продумали, ведь ясно видно, что твоя "В_килограммах:_" за строку не считается... Считается - когда подсвечена, как строка:

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender:TObject);
var
  pud,funt:integer;
  kg:real;
begin
  pud:=StrToInt(Edit1.Text );
  funt:=StrToInt(Edit2.Text);
  kg:=pud*16.38+funt*16.38/40;
  Label4.Caption:='В_килограммах:_'+FloatToStr(kg);
end;
 
initialization
  {$I unit1.lrs}
 
end.

Видишь разницу в цвете?

да!! огромное спасибо!! все получилось)) подозревал ведь, что begin не к месту, но удалять не решался.. и с апострофами спасибо!!

Добавлено 11.03.11, 14:21
извиняюсь за отдельные сообщения просто к аське привык.. и кнопки типа "дополнить" не найду.. еще раз простите.

P.s. не удаляйте пожалста тему. я буду по мере наобходимости помощи обращаться к Вам. спасибо))