AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Frage zu Stringgrid

Ein Thema von Cathrin1411 · begonnen am 28. Nov 2006 · letzter Beitrag vom 28. Nov 2006
Antwort Antwort
Seite 1 von 2  1 2   
Cathrin1411

Registriert seit: 28. Nov 2006
9 Beiträge
 
#1

Frage zu Stringgrid

  Alt 28. Nov 2006, 18:39
Hallo,ich bin neu hier und habe eine dringende Frage zu einer Aufgabe die ich machen muss,wegen Stringgrid. Vielleicht kann mir jemand helfen?!
  Mit Zitat antworten Zitat
Benutzerbild von hanselmansel
hanselmansel

Registriert seit: 23. Feb 2005
Ort: Kaiserslautern
279 Beiträge
 
Delphi 2009 Enterprise
 
#2

Re: Frage zu Stringgrid

  Alt 28. Nov 2006, 18:43
Gerne, wie lautet die Frage denn?
Es gibt nur sehr wenige Probleme auf dieser Welt, die sich nicht mit einigen hundert Gramm Sprengstoff lösen ließen.
  Mit Zitat antworten Zitat
Benutzerbild von uligerhardt
uligerhardt

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.734 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Frage zu Stringgrid

  Alt 28. Nov 2006, 18:44
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.
Uli Gerhardt
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Frage zu Stringgrid

  Alt 28. Nov 2006, 18:44
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.
Markus Kinzler
  Mit Zitat antworten Zitat
Cathrin1411

Registriert seit: 28. Nov 2006
9 Beiträge
 
#5

Re: Frage zu Stringgrid

  Alt 28. Nov 2006, 18:52
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?
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: Frage zu Stringgrid

  Alt 28. Nov 2006, 18:55
StringGrid.Cells[0, Zeile] := StrinGrid.Cells[Spalte-1, Zeile-1];
Markus Kinzler
  Mit Zitat antworten Zitat
Cathrin1411

Registriert seit: 28. Nov 2006
9 Beiträge
 
#7

Re: Frage zu Stringgrid

  Alt 28. Nov 2006, 19:01
Will irgendwie nicht recht klappen,kenne mich aber auch nicht wirklich gut damit aus.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#8

Re: Frage zu Stringgrid

  Alt 28. Nov 2006, 19:14
Was klappt denn nicht?


(ohne Bescheibung des Fehlers klappt bei unserer Hilfe och nüschts )
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Nicodius

Registriert seit: 25. Apr 2003
Ort: Graz
2.234 Beiträge
 
Delphi 2006 Architect
 
#9

Re: Frage zu Stringgrid

  Alt 28. Nov 2006, 19:22
zeig mal den code den du schon hast bitte

lg Nico
Nico Müller
  Mit Zitat antworten Zitat
Cathrin1411

Registriert seit: 28. Nov 2006
9 Beiträge
 
#10

Re: Frage zu Stringgrid

  Alt 28. Nov 2006, 19:24
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;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz