Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=327739&view=findpost&p=2851176 Fri, 11 Mar 2011 14:17:24 +0000 Ошибки при компилировании в Lazarus при Win32 https://forum.sources.ru/index.php?showtopic=327739&view=findpost&p=2851176
Добавлено
извиняюсь за отдельные сообщения :oops: просто к аське привык.. и кнопки типа "дополнить" не найду.. еще раз простите.

P.s. не удаляйте пожалста тему. я буду по мере наобходимости помощи обращаться к Вам. спасибо))]]> MatriXX 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=327739&view=findpost&p=2851152 Fri, 11 Mar 2011 13:53:41 +0000 Ошибки при компилировании в Lazarus при Win32 https://forum.sources.ru/index.php?showtopic=327739&view=findpost&p=2851152 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.
Видишь разницу в цвете?]]> volvo877 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=327739&view=findpost&p=2851133 Fri, 11 Mar 2011 13:27:30 +0000 Ошибки при компилировании в Lazarus при Win32 https://forum.sources.ru/index.php?showtopic=327739&view=findpost&p=2851133
    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.




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

Добавлено
ах даа... пробелы после компиляции(после ее попытки)появились. и если возможно, то покажите наглядно, где и что неправильно. просто я в терминах пока что тупой.. пару дней, как учу всего лишь..]]> MatriXX 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=327739&view=findpost&p=2851125 Fri, 11 Mar 2011 13:20:24 +0000 Ошибки при компилировании в Lazarus при Win32 https://forum.sources.ru/index.php?showtopic=327739&view=findpost&p=2851125
И потом... У тебя вот эти пробелы среди слов что, прямо в коде тоже присутствуют? Их не должно быть. Или ты перепечатываешь сюда? Не надо этого делать. Копируй. Так больше вероятности, что не внесешь еще и во время задавания вопроса ошибку...]]> volvo877 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=327739&view=findpost&p=2851105 Fri, 11 Mar 2011 13:09:18 +0000 Ошибки при компилировании в Lazarus при Win32 https://forum.sources.ru/index.php?showtopic=327739&view=findpost&p=2851105 изучать 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

помогите пожалуйста. незнаю как быть. :wall:]]> MatriXX 32-битные компиляторы