[dyavolenok_shef]

У меня написана прога в Лазарусе, но при запуске он выдает ошибку Project raised exception class 'External: SIGSEGV' и не дает запускать по шагово сразу её и выводит, помогите, как исправить???

вот код проги:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93

unit Unit1;   {$mode objfpc}{$H+}   interface   uses   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,   StdCtrls, Buttons;   type     { TForm1 }     TForm1 = class(TForm)     BitBtn1: TBitBtn;     Button1: TButton;     ComboBox1: TComboBox;     ComboBox2: TComboBox;     Edit1: TEdit;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Memo1: TMemo;     Panel1: TPanel;     Panel2: TPanel;     RadioGroup1: TRadioGroup;     ScrollBar1: TScrollBar;     procedure Button1Click(Sender: TObject);     procedure Edit1KeyPress(Sender: TObject; var Key: char);     procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;       var ScrollPos: Integer);   private     { private declarations }   public     { public declarations }   end;   var   Form1: TForm1;   implementation   { TForm1 }   procedure TForm1.Button1Click(Sender: TObject); var rast: real; {расстояние}     cena: real; {цена}     potr: real; {потребность на 100 км}     suma: real; {сумма поездки}     obsuma: real; {общая сумма поездки}     skidka: real; {скидка на бензин}     stroka: string; {для вывода сообщения на экран} begin     rast:=StrToFloat(Edit1.Text); {переводим из строчного значение в числовое}     cena:=StrToInt(ComboBox1.Text);     potr:=StrToFloat(ComboBox2.Text);     {определяем стоимость поездки туда и обратно}     suma:=(rast/100) * potr * cena;     suma:=suma*2;     {если учитывается скидка в 5%}     If RadioGroup1.ItemIndex=1 then       Begin       {формируем сообщение}        stroka:='Поездка на дачу и обратно обойдется Вам в ';        {в Memo добавляем строку}        Memo1.Lines.Add(stroka + FormatFloat('####.## рублей ',suma));       End      {если скидка не учитывается}      else       Begin        Stroka:='Поездка на дачу и обратно(со скидкой в 5%)обойдется Вам в ';        skidka:=suma*0.05;  {вычисляем 5% скидку от полученной суммы}        obsuma:=suma-skidka;{вычисляем общую сумму поездки}        Memo1.Lines.Add(stroka + FormatFloat('####.## рублей ',obsuma));       End; end;   procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char); begin   If not (Key in ['0'..'9', #8]) then Key:=chr(0); end;   procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;   var ScrollPos: Integer); begin   ComboBox1.Text:=IntToStr(ScrollBar1.Position); end;   initialization   {$I unit1.lrs}   end.

[dyavolenok_shef]

ну помогите, пожалуйста ))
У меня стоит XP 2sp, 1Гб опер, Пенек 4(3000)
И я пробовала на Windows Zver 3sp и все тоже самое таже ошибка, сперва говорит что, что-то с отладчиком а потом вылетает ошибка..(см. выше), даже просто при запуске пустой формы, переутанавливала винду, переставляла компилятор и отладчик первый раз все оки-то, во-вророй раз запуска вылетает..

[M.A.D.M.A.N.]

Lazarus это какой-то ужас (тормозной, с ошибками и т.д), установи Delphi
А Zver PS3 тоже еще та лажа, на прошлой неделе ставил, ни игр ни паинта даже нет, тормозит ужасно даже при небольших процессах (мыш скачет), хотя конфигурация компа почти как у тебя (2Гб Ram, 3ГГц)

[dyavolenok_shef]

Ну раинт и игры есть и даже две серии стандартных игр одни под XP а другие под Vista'u вота посмотри iso Зверя на Торренте там лучше ))

[dyavolenok_shef]

Сообщение от M.A.D.M.A.N.

Lazarus это какой-то ужас (тормозной, с ошибками и т.д), установи Delphi

Сильно нужен Лазарус ничего поделать не могу, но надо разобраться ..