Delphi _ Button öfter benutzen

[remo.lieb]

Hallo,

zurzeit benutze ich Delphi 7 mit freier Lizenz. Ich interessiere mich sehr für Programmieren, doch stoße gerade an meine Grenzen. Ich habe heute versucht ein Programm zu schreiben, welches Daten wie Kosten, Name der Zahlung aufnimmt und diese in einer Tabelle ausgibt. Ich habe einen Button benutzt, den ich als "Hinzufügebutton" benutze (er soll thoeretisch immer in der nächsten Zeile den neuen Eintrag dranhängen). Ich kann zwar die erste Reihe in der Tabelle hinzufügen und diese durch Veränderungen in den Edit-Feldern verändern, aber komme NIE in die zweite Zeile meiner Tabelle um dort die zweite "Abbuchung" hinzuzufügen. Hier der Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    Label5: TLabel;
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
Tabrechnung = RECORD
  name : string;
  kosten : real;
  quit : string;
end;
var
  Form1: TForm1;
  abrechnung : Tabrechnung;
  i,n,c : integer;
implementation

{$R *.dfm}

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

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.RowCount := 2;
StringGrid1.ColCount := 4;

StringGrid1.Cells[0,0] := 'Nummer';
StringGrid1.Cells[1,0] := 'Name';
StringGrid1.Cells[2,0] := 'Kosten';
StringGrid1.Cells[3,0] := 'Quittung';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin
i := 1;
n := 1;
c := 0;



abrechnung.name := Edit2.Text;
abrechnung.kosten := strtofloat(Edit1.Text);
abrechnung.quit := Edit3.Text;

StringGrid1.Cells[0,n] := inttostr(n);
StringGrid1.Cells[i,n] := abrechnung.name;
i := i+1;
StringGrid1.Cells[i,n] := floattostr(abrechnung.kosten);
i := i+1;
StringGrid1.Cells[i,n] := abrechnung.quit;
n := n+1;
i := i-2;

Label5.Caption := inttostr(n);
StringGrid1.
end;




end.

Ich würde mich über hilfreiche Antworten sehr freuen. Vielen Dank!

[Medium]

Deine Variablen n und i sind lokale Variablen der Prozedur "Button1Click", und werden bei jedem Mal Button klicken neu erstellt. (Edit: Jo, verguckt. Das kommt von den Namen, die man in der Kürze idR wenn überhaupt nur als lokale Variablen nimmt.) Du weist ihnen ja sogar selbst noch (richtigerweise) einen Startwert zu - dies passiert bei JEDEM Mal klicken. Klar, denn der Code n := 1; steht ja auch in der Prozedur, in der du beschrieben hast, was bei einem Klick passieren soll. Das passiert dann auch

Du musst dir die aktuell zu beschreibende Zeile daher ausserhalb deriner "Button2Click" Prozedur merken. Zum Beispiel als Variable des Formulars, eine gute Stelle wäre im Private-Abschnitt davon.


In den Zeilen

Delphi-Quellcode:

n := n+1;
i := i-2;

dürfte der Compiler auch Hinweise geben, dass die hier zugewiesenen Werte niemals benutzt werden. (Es wird vor Prozedurende nicht mehr von ihnen gelesen, somit verfallen die Werte. Da ja beim nächsten Klick die Variablen wieder taufrisch sind.)
Edit: Ok, kommt bei dir in dem Fall nicht, da die Variablen ja global sind*. Da ist dann das Setzen auf 1 im Click das einzige Problem. Zumindest funktional.


Es ist i.A. schon meist sehr sehr hilfreich einige Fehler zu finden, wenn man die Warnungen und Hinweise des Compilers beachtet und zusieht, diese auf 0 zu bekommen. Das ist sogar nicht nur eine leere Predigt, mir hat das auch eine nötige Portion Selbstdisziplin gebracht, die mir definitiv besseren und besser handhabbaren Code gebracht hat.

Drei andere Dinge noch:
1) Wenn du deinen Code in [ delphi] [ /delphi] Tags (ohne die Leerzeichen) packst, wird er schön formatiert hier dargestellt und ist viel leichter zu lesen.
2) Bitte gewöhne dir schnellstmöglich an deinen Komponenten aussagekräftige Namen zu geben. Mit Edit1 und Button4 kannst du selbst schon nach ein paar Wochen nichts mehr anfangen, und andere die deinen Code lesen erst recht nicht. (Ähnlich wie die Warnungen und Hinweise. Man tut sich einfach selbst einen gewaltigen Gefallen damit, auch wenn es erst wie "zu viel" gemachte Arbeit aussieht. Ist es nie!)
3) Du setzt in deinem Stringgrid anfangs zwei Zeilen fest. Dies musst du natürlich auch erhöhen, wenn mehr Zeilen dazu kommen.

*) Und warum globale Variablen sehr böse sind, findet sich durch eine schnelle Forensuche auch hier.

[Dalai]

Schau mal, was beim Klick auf den Button mit der Variablen n passiert: sie wird immer auf 1 gesetzt.

Ein wichtiger genereller Hinweis: Wähle aussagekräftige Bezeichner für deine Variablen, Komponenten & Co! Leider werden selbst heutzutage teilweise noch einbuchstabige Variablennamen von Lehrkräften benutzt, bei denen sich mir die Fußnägel aufrollen (weniger wegen der Lehrkräfte als wegen der Variablen ). Wenn du später mal in den Code schaust, weißt du mit hoher Wahrscheinlichkeit nicht auf Anhieb, was denn nun i, n und c sind oder Edit1, Edit2 usw.

[EDIT] Zu langsam [/EDIT]

MfG Dalai

[remo.lieb]

Viele Dank ! Ich habe die Werte in der Startprozedur auf 1 gesetzt dann passt alles. Danke!

[Medium]

Schau dir dennoch bitte mein Edit an, dass ich zwischenzeitlich in meinem alten Beitrag gemacht habe.

[uligerhardt]

Zitat von remo.lieb:

zurzeit benutze ich Delphi 7 mit freier Lizenz.

Wot?

[Sherlock]

Zitat von uligerhardt:

Zitat von remo.lieb:

zurzeit benutze ich Delphi 7 mit freier Lizenz.

Wot?

Der Teil beschäftigt mich auch mehr als alles andere...

Sherlock

[himitsu]

Hab's nicht mehr im Kopf, da ich diese grauenhafte Komponente nicht mehr benutze.
RowCount und ColCount ändern nur den sichbaren Anzeigebereich,
aber die Größe des internen Datenspeichers mußte man zusätzlich auch noch anpassen.


[OT und dann Schluß] "Personal" (lag z.B. mal gratis einigen Zeitschriften bei und wird immernoch oft in Schulen weitergegeben ... D5 oder D7 Personal)
Ist fast wie die "Explorer"-Editionen, die es mal gab.

Und tut mir Leid, aber SSL/Edu-Editionen kann man vergessen.

[p80286]

Zitat von himitsu:

[OT und dann Schluß] "Personal" (lag z.B. mal gratis einigen Zeitschriften bei und wird immernoch oft in Schulen weitergegeben ... D5 oder D7 Personal)
Ist fast wie die "Explorer"-Editionen, die es mal gab.

Und tut mir Leid, aber SSL/Edu-Editionen kann man vergessen.

kommt darauf an was Du tun willst. Die DB-Anbindung gibt es nicht, dafür benötigt man die Prof. Version. Aber der Debugger ist dabei (wenn ich mich richtig erinnere)

Gruß
K-H

[himitsu]

Debugger ist da, aber es ist im Prinzip verboten "benutzbare" Programme zu schreiben.
Man darf damit erstellte Programme/Quellcodes praktisch nicht weitergeben und "produktiv" benutzen darf man die damit erstellten Programme auch nicht.
> die "Lehr"-Editionen sind nur zum Lernen