Помогите с прогой "банкомат"

Maksimca · 02.10.2012, 21:32

Помогите с ошибочкой в моей проге, там после нажатия на "пополнить" вылазиет не то число!!!!!!!
Я уже запарился.... по-моему глупая ошибка , вот тока незнаю где?
код:

PHP код:


			
unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit2: TEdit;

    Edit3: TEdit;

    Button2: TButton;

    Button3: TButton;

    Label4: TLabel;

    Label5: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  f: textfile;

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

var money:integer;

begin

money:=10000;

write(f,edit1.Text);

Label2.Caption:='Номер вашей карты:'+ edit1.Text +

'сохранен в текстовый файл';

Label3.Caption:='Ваш баланс равен =' + IntToStr(money)+ 'tg';

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

assignfile(f,'cod.txt');

rewrite(f);

end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Closefile(f);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var money, money1 : integer;

mymoney: real;

begin

money1:=StrToInt(edit2.Text);

mymoney:=money1+money;

Label4.Caption:=FloatToStr(mymoney);

end;

 

end.

Помогите. Заранее благодарен!
P.S я учу делфи около 3 дней (не ругайте)

Gruvi · 02.10.2012, 23:07

Цитата:

mymoney:=money1+money;

перед этой строчкой надо mymoney присвоить значение 0.
+ любое прибавление нужно делать через цикл for.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070