Tilgung

[flac]

Delphi-Quellcode:

unit Tilgung;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    StringGrid: TStringGrid;
    Off_BitBtn1: TBitBtn;
    Kredit_Edit: TEdit;
    Zinssatz_Edit: TEdit;
    Tilgungsrate_Edit: TEdit;
    Kredit_Label1: TLabel;
    Zinssatz_Label1: TLabel;
    Tilgungsrate_Label2: TLabel;
    Rechnen_BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure Off_BitBtn1Click(Sender: TObject);
    procedure Rechnen_BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Rate, Kredit, Zinsen: Real;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
   StringGrid.Cells[0,0]:= 'Jahr';
   StringGrid.Cells[1,0]:= 'Tilgung';
   StringGrid.Cells[2,0]:= 'Zinsen';
   StringGrid.Cells[3,0]:= 'Kontostand';
end;


procedure TForm1.Off_BitBtn1Click(Sender: TObject);
begin
  close
end;


procedure TForm1.Rechnen_BitBtn1Click(Sender: TObject);
begin
  Kredit:= StrToFloat (Kredit_Edit.Text);
  Zinsen:= StrToFloat (Zinssatz_Edit.Text);
  Rate:= StrToFloat (Tilgungsrate_Edit.Text);
  //???

end;

end.

SO SIEHT ES BISHER AUS UND NUN MÜSSEN AN STELLE DER FRAGEZEICHEN DIE ANWEISUNGEN
UM DAS ALLES ZUM LAUFEN ZU BRINGEN... ICH WEIß NICHT WIE ICH DAS NOCH ERKLÄREN SOLL
ICH WÄRE EUCH WIRKLICH SEHR DANKBAR WENN ICH WENIGSTENS EIN SCHRITT WEITER KOMME

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte unnötige Großschreibung weg lassen außer es ist beabsichtigt das wir das als anschreien auffassen sollen - Mfg, SirThornberry[/edit]