Frage zu Stringgrid

[Cathrin1411]

Hallo,ich bin neu hier und habe eine dringende Frage zu einer Aufgabe die ich machen muss,wegen Stringgrid. Vielleicht kann mir jemand helfen?!

[hanselmansel]

Gerne, wie lautet die Frage denn?

[uligerhardt]

Zitat:

Zitat von Cathrin1411

Hallo,ich bin neu hier und habe eine dringende Frage zu einer Aufgabe die ich machen muss,wegen Stringgrid. Vielleicht kann mir jemand helfen?!

Ziemlich wahrscheinlich. Wenn du deine Frage jetzt auch noch stellst, steigen deine Chancen ins Unermessliche. :P

[mkinzler]

Wir würden ja gern Helfen, wenn wir wüßten, was für eine Frage du hast. immerhin wissen wir jetzt, daß es um ein StringGrid geht.

[Cathrin1411]

Hallo,
ich muss eine Aufgabe bearbeiten,in der ich im Stringgrid ein Abzahlungsdarlehen berechne.meine erste Frage wäre,wie ich einen Wert der in der letzten Spalte der ersten Zeile steht,als Anfangswert in die nächste Zeile bekomme?

[mkinzler]

Delphi-Quellcode:

StringGrid.Cells[0, Zeile] := StrinGrid.Cells[Spalte-1, Zeile-1];

[Cathrin1411]

Will irgendwie nicht recht klappen,kenne mich aber auch nicht wirklich gut damit aus.

[himitsu]

Was klappt denn nicht?


(ohne Bescheibung des Fehlers klappt bei unserer Hilfe och nüschts ;) )

[Nicodius]

zeig mal den code den du schon hast bitte

lg Nico

[Cathrin1411]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
eKredit: TEdit;
Label2: TLabel;
RadioGroup1: TRadioGroup;
ComboBox1: TComboBox;
StringGrid1: TStringGrid;
Button1: TButton;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
Kredit,Zinssatz,Kreditbetrag,Zinsen,Tilgung,Annuit at,Rest:real;
Laufzeit,I,Zeile:integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
// Eingabe
Kredit:=strtofloat(eKredit.text);

// Verarbeitung Combobox
case combobox1.itemindex of
-1: Messagedlg('Keine combo angecklickt' , Mtinformation, [Mbabort],0);
0: Laufzeit:= 1;
1: Laufzeit:= 2;
2: Laufzeit:= 3;
3: Laufzeit:= 4;
4: Laufzeit:= 5;
5: Laufzeit:= 6;
6: Laufzeit:= 7;
7: Laufzeit:= 8;
8: Laufzeit:= 9;
9: Laufzeit:= 10;
end;

// Verarbeitung Radiogroup
case Radiogroup1.itemindex of
-1: Messagedlg('Keine Radio angecklickt' , Mtinformation, [Mbabort],0);
0: Zinssatz:= 0.06;
1: Zinssatz:= 0.07;
2: Zinssatz:= 0.08;
3: Zinssatz:= 0.09;
end;

//Ausgabe spalten
stringgrid1.cells[0,0]:= 'Jahre';
stringgrid1.cells[1,0]:= 'Kreditbetrag';
stringgrid1.cells[2,0]:= 'Zinsen';
stringgrid1.cells[3,0]:= 'Tilgung';
stringgrid1.cells[4,0]:= 'Annuität';
stringgrid1.cells[5,0]:= 'Restschukd am ende des Jahres';
stringgrid1.rowcount:=Laufzeit+2;

//Tilgung
Tilgung:= Kredit/Laufzeit;

//Berechnug von stringgrid

For I := 1 to Laufzeit do
begin
Kredit:= Kredit-Rest;
Zinsen:= Kredit*Zinssatz ;
Annuitat:= Tilgung+Zinsen;
Rest:=Kredit-Tilgung;


//Ausgabe
Zeile:= Zeile+1;
stringgrid1.cells[0,Zeile]:= inttostr (I);
stringgrid1.cells[1,Zeile]:= formatfloat ('0.00 €' , Kredit);
stringgrid1.cells[2,Zeile]:= formatfloat ('0.00 €' , Zinsen);
stringgrid1.cells[3,Zeile]:= formatfloat ('0.00 €' , Tilgung);
stringgrid1.cells[4,Zeile]:= formatfloat ('0.00 €' , Annuitat);
stringgrid1.cells[5,Zeile]:= formatfloat ('0.00 €' , Rest);


end;

[mkinzler]

Du solltest das Grid, bem Hinzufügen einer Zeile uach Vergrößern (.RowCount)

[Cathrin1411]

und das 1.problem ist, dass der Wert von Rest des 1.Jahres als Kreditwert des 2.Jahres ausgegeben werden soll und so jedes Jahr weiter.

[Hansa]

Zitat:

Zitat von Cathrin1411

...wie ich einen Wert der in der letzten Spalte der ersten Zeile steht,als Anfangswert in die nächste Zeile bekomme?

Du mußt schon genauer schreiben was Sache ist. Insbesondere, was nicht geht und zumindest die Fehlermeldung angeben, wenn denn eine kommt.

Das hier ist zu knapp :

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

StringGrid.Cells[0, Zeile] := StrinGrid.Cells[Spalte-1, Zeile-1];

Guck Dir StringGrid.RowCount an, sonst gehen die Zeilen aus und es kommt eine Exception. Das Spalte-1 ist auch verkehrt, zumindest sofern der alte Wert lediglich in eine neue Zeile kommen muss und nicht immer weiter nach links rutschen soll. Trotz der ziemlich unpräzisen Frage :

Delphi-Quellcode:

StringGrid.RowCount := StringGrid.RowCount + 1;  // neue Zeile
StringGrid.Row:= StringGrid.Row + 1;  // Positionierung in neue Zeile
StringGrid.Cells [StringGrid.Col,StringGrid.Row] := StringGrid.Cells [StringGrid.Col,StringGrid.Row-1];

P.S.: DP war kurz offline. Später geposteten Source noch nicht gelesen.

[Cathrin1411]

Habe ich getan aber in der 1.Zeile,1.Spalte soll ein selbst eingetragener Betrag stehen und in der 2.Zeile,1.Spalte erst das ausgerechnete.

[mkinzler]

Zitat:

Zitat von Hansa

Guck Dir StringGrid.RowCount an, sonst gehen die Zeilen aus und es kommt eine Exception. Das Spalte-1 ist auch verkehrt, zumindest sofern der alte Wert lediglich in eine neue Zeile kommen muss und nicht immer weiter nach links rutschen soll.

Mit dem Zeile-1/Spate Minus eins wollte ich andeuten, daß der Index bei 0 beginnt.

[Cathrin1411]

Vielen Dank für deine Hilfe.