[JEDI.NET-commits] main/examples/Jedi.System.IO/FileOfRecord WinFormMain.pas,1.1,1.2

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/main/examples/Jedi.System.IO/FileOfRecord
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19426/main/examples/Jedi.System.IO/FileOfRecord

Modified Files:
	WinFormMain.pas 
Log Message:
Mantis #2111: In the FileOfRecord example the age is written to income field

Index: WinFormMain.pas
===================================================================
RCS file: /cvsroot/jedidotnet/main/examples/Jedi.System.IO/FileOfRecord/WinFormMain.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** WinFormMain.pas	29 Jul 2004 09:36:06 -0000	1.1
--- WinFormMain.pas	4 Sep 2004 15:06:30 -0000	1.2
***************
*** 310,314 ****
      r.Name := TextBoxName.Text;
      r.Age := Decimal.ToByte(NumericUpDownAge.Value);
!     r.Income := Decimal.ToDouble(NumericUpDownAge.Value);
      f.Write(r);
    finally
--- 310,314 ----
      r.Name := TextBoxName.Text;
      r.Age := Decimal.ToByte(NumericUpDownAge.Value);
!     r.Income := Decimal.ToDouble(NumericUpDownIncome.Value);
      f.Write(r);
    finally
***************
*** 372,376 ****
      r.Name := TextBoxName.Text;
      r.Age := Decimal.ToByte(NumericUpDownAge.Value);
!     r.Income := Decimal.ToDouble(NumericUpDownAge.Value);
      f.Write(r);
    finally
--- 372,376 ----
      r.Name := TextBoxName.Text;
      r.Age := Decimal.ToByte(NumericUpDownAge.Value);
!     r.Income := Decimal.ToDouble(NumericUpDownIncome.Value);
      f.Write(r);
    finally