Budgetplaner v1.0

[be-2801]

Hi,

wollte euch hier mal mein kleines Programm vorstellen.
Wie man an der Überschrift schon erkennen kann handelt es sich um einen Budgetplaner.
Einnahmen und Ausgaben können verbucht und gespeichert werden, sowie in einer Gesamtübersicht oder einzeln: nur Einnahmen bzw. nur Ausgaben dargestellt werden.
Außerdem kann man eine Budgetübersicht aufrufen, die alle Einnahmen und alle Ausgaben zusammenrechnet und euch euer Gesamtbudget ausgibt.

Hab das Programm heute fertig gestellt, es ist die Version 1.0, also wer noch kleine Fehler entdecken sollte, bitte bescheid sagen.


Gruß
Benni

[arne99]

Oder:

Delphi-Quellcode:

//OnChange deines Edits 
... 
const bereich = ['0'..'9']; // Nur Zahlen  
var i: integer; 
begin 
 if length(DeinEdit.text) > 0 then 
 begin 
  for i:= 1 to length(DeinEdit.text) do 
  begin 
   if not (DeinEdit.text[i] in zahlen) then 
   begin 
    //Ausgabe über unzulässige Werte 
    exit; 
   end; 
  end; 


  //Hier sind alles Daten OK -> Verarbeitung 
 end; 
end;

Quelle

[leddl]

Zitat von arne99:

Oder:

Delphi-Quellcode:

//OnChange deines Edits 
... 
const bereich = ['0'..'9']; // Nur Zahlen  
var i: integer; 
begin 
 if length(DeinEdit.text) > 0 then 
 begin 
  for i:= 1 to length(DeinEdit.text) do 
  begin 
   if not (DeinEdit.text[i] in zahlen) then 
   begin 
    //Ausgabe über unzulässige Werte 
    exit; 
   end; 
  end; 


  //Hier sind alles Daten OK -> Verarbeitung 
 end; 
end;

Zum einen wird das so nicht funktionieren und zum anderen ist eine Reaktion im OnKeyPress deutlich besser. Es ist nämlich äußerst nervig, ständig ne Fehlermeldung wegen Falscheingabe zu bekommen. Dann doch besser einfach nur Eingaben erlauben, die auch tatsächlich Sinn machen

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if (not key in ['0'..'9',',',#8]) or
  (key = ',' and pos(key, Edit1.text) > 0) then
    key := #0;

  if (key = ',') and (length(Edit1.Text) = 0) then
    Edit1.Text := '0';
end;

Beim letzen Part bin ich mir nicht ganz sicher, ob das so funktioniert, aber ohne installiertes Delphi kann ich es auch schlecht nachprüfen Sinn dieser 2 Zeilen ist, bei Eingabe eines Kommas als erstes Zeichen eine 0 zu ergänzen, so dass nach der Eingabe '0,' im Feld steht. Könnte sein, dass dadurch die Eingabe hinfällig wird, oder der Text des Editfeldes markiert ist und durch die Eingabe gelöscht wird (in dem Fall dann einfach SelStart und SelBegin setzen )

Praktisch wäre es jetzt natürlich noch, wenn statt dem hardgecodeten Komma der eigentliche DecimalSeparator abgefragt wird

[be-2801]

Zitat von Aike:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key='1') or (key='2') {...} then showmessage('Zahl wurde eingegeben')
  else showmessage('Keine Zahl eingegeben');
end;

Wenn man die ShowMessage weglässt und stattdessen die Eingabe gleich verbietet funktioniert es nicht (hab ich auch schon öfters hier gesehen und geht nicht).

Zitat von leddl:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if (not key in ['0'..'9',',',#8]) or
  (key = ',' and pos(key, Edit1.text) > 0) then
    key := #0;

  if (key = ',') and (length(Edit1.Text) = 0) then
    Edit1.Text := '0';
end;

Operator ist auf diesen Operatortyp nicht anwendbar.
Funktioniert genauso wenig

Hab die 2 Varianten und noch mehr schon ausprobiert und keine funktioniert

Gruß
Benni

[leddl]

Zitat von be-2801:

Operator ist auf diesen Operatortyp nicht anwendbar.
Funktioniert genauso wenig

Naja, hättest du dir den Code mal kurz angeschaut, anstatt einfach nur die Fehlermeldung zu kopieren, hättest du das Problem aller Wahrscheinlichkeit sehr schnell gelöst gehabt Problem ist die eine oder andere fehlende Klammer

Zitat von be-2801:

Hab die 2 Varianten und noch mehr schon ausprobiert und keine funktioniert

Naja, man sollte eben auch mehr machen als nur Copy&Paste

Ne angepasste Variante:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',DecimalSeparator,#8]) or
  ((key = DecimalSeparator) and (pos(key, Edit1.Text) > 0) and (Pos(DecimalSeparator,Edit1.SelText) = 0)) then
    key := #0;

  if (key = DecimalSeparator) and ((length(Edit1.Text) = 0) or (Edit1.SelStart = 0)) then
  Begin
    Edit1.Text := '0' + Copy(Edit1.Text,Edit1.SelStart+Edit1.SelLength+1,Length(Edit1.Text));
    Edit1.SelStart := 1;
  end;
end;

Und die funktioniert Eben getestet, also erzähl mir nix

//Edit: Jetzt auch mit DecimalSeparator aus der SysUtils
//Edit2: Nochmal etwas verbessert. Sieht jetzt grauenhaft aus, aber das Verschönern überlass ich dir Mir gings eben um das Funktionieren
//Edit3-5: Ich weiß nich, ob ich heute noch alle kleinen Fehlerchen da raus krieg

[Balu der Bär]

Zitat von calculon:

Ich finde das Programm gut, weil es so einfach gehalten ist und würde bei der Übersichtsfunktion ein Diagramm gut finden, das die monatl. Einnahmen, Ausgaben und die Gesamtübersicht anzeigt. Außerdem fänd' ich es gut, wenn die Art der Einnahmen und Ausgaben ('Bezeichnung') frei gruppiert werden könnte (Girokonto, Sparbuch, Essen,...)

Wenn das verfügbar ist, benutz ich dein Programm.

Weiter so!

[Blackheart]

Nichts gegen Dein Programm aber das ist doch nicht unbedingt der Sinn der Sparte.
Hier sollte man sein Programm vorstellen, testen lassen, auf Verbesserungsvorschläge hoffen der Rest hatt hier nichts zu suchen.
Fragen und auch die dazu gegebenen Antworten gehöhren ins Forum !

[xZise]

Interessantes Programm... Aber ich würde folgende Sachen entpfehlen:
1. wenn man bei einer Listbox scrollt, dann bitte auch die anderen
2. Setzte die Radiobox wieder zurück

[edit]Weil er nicht die ini schreiben kann, kann ich das Programm nicht beenden! [/edit]

[BazzRah]

Genau das hab ich auch festgestellt!
Wenn "budgetloader.ini" nicht erstellt werden kann (z.B. wegen Zugriffsrechtsverletzung) kann es nicht beendet werden!

[xZise]

Und das ist besonders dumm, wenn der Taskmanager gesperrt ist

[BazzRah]

Unter Win 98 wird die Bilanz unschön dargestellt! Die Zahlen rutschen nach rechts aus dem Fenster hinaus! (Vielleicht sind die Labels zu klein?)