вот код проги:
- Код: Выделить всё
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.
У меня стоит XP 2sp, 1Гб опер, Пенек 4(3000)
И я пробовала на Windows Zver 3sp и все тоже самое таже ошибка, сперва говорит что, что-то с отладчиком а потом вылетает ошибка..(см. выше), даже просто при запуске пустой формы, переутанавливала винду, переставляла компилятор и отладчик первый раз все оки-то, во-вророй раз запуска вылетает..
