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. :-D


Gruß
Benni

[Aike]

Hallo und willkommen im DP-Forum,

das Programm sieht sehr gut aus, allerdings vermisse ich eine Datumsanzeige. Ich würde gerne wissen, wann ich Ausgaben hatte ;-)

Oh, und willst du nicht vielleicht das Logo in dein Projekt einbinden? Dann musst du die Datei nicht mitliefern. Ob man die Hilfe braucht, na ja ... meistens hat man lieber ein Programm ohne Setup/Installer. So wie ich das sehe, könntest du die Hilfe bestimmt auch bei "?" einbauen und in eine neue TForm packen. Dann braucht's auch keinen Installer.

[Balu der Bär]

Hallo,

zeigst du mir vorher wenigstens einen Screenshot wenn ich schon was installieren muss? :P

Grüße

[be-2801]

Verbesserungsvorschläge angenommen. :wink:

Hier jetzt Version 1.1 mit Datum und ohne Installation.


Hab nur noch ein Problem, sowohl in der Version 1.0, als auch in der Version 1.1:

Ich lasse bei der Eintragung im Betragfeld überprüfen, ob ein Komma gedrückt wurde.
Wenn die Bedingung erfüllt ist, dann sollen nur noch 2 weitere Stellen möglich sein.
Das funktioniert im Programm aber nur so lange, bis wieder das Komma gedrückt wird.
Hier der Quelltext dazu, vielleicht habt ihr ja nen Vorschlag, wie man den kleinen Hacken noch rausbringt:

Delphi-Quellcode:

procedure TNewEntryForm.KeyCheck(Sender: TObject; var Key: Char);
begin
  if Key=',' //wenn Komma gedrückt wurde
    then AmountEdit.MaxLength:=length(AmountEdit.Text)+3; //dann maximale Länge, des einzugebenden Betrags auf aktuelle Länge + 3 Zeichen setzen
end;

Ach ja, ein auch vielleicht viel diskutiertes Thema im Forum geht um die Verwendung bestimmter Tasten, hab schon viele Varianten gesehen, mit Konstanten oder Arrays, hab auch selbst schon welche versucht, aber keine davon hat funktioniert.
Wäre echt super, wenn jemand eine Möglichkeit kennt, wie man es richtig macht.
Schonmal danke für die Antworten.

Gruß
Benni

[ringli]

Nett wäre auch noch wenn du bei neuen Einträgen gleich das aktuelle Datum in das Datumsfeld einträgst. Ausserdem wäre hier ein DatePicker sicherlich auch noch eine gute Idee. Beim "Öffnen"- bzw. "Speichern unter"-Dialog wäre es gut wenn du auch den Vista-Dialog verwenden würdest. Desweiteren wäre eine Option zum automatischen Laden der zuletzt verwendeten Datei gut.

[Tiuri]

und es wäre schön, wenn du den ersten beitrag immer aktualisierst, damit man nicht erst suchen muss, bis man die neuste version findet. Und du solltest im Laden/Speichern-Dialog einen Dateitypen angeben

[be-2801]

Das mit dem DatePicker war meine erste Idee, aber wie kann ich das Datum aus dem DatePicker auslesen?
Lässt sich der Vista-Style wie der XP-Style einbinden, einfach mit "VistaMan" oder sowas?
Für das Laden, der letzten Datei wäre dann wieder ne Install nötig, weil der Pfad irgendwo gemerkt werden muss, wenn das Programm beenden wird, oder geht das auch ohne zusätzliche Datei?

Hab die Version an erster Stelle aktuallisiert, mein Fehler, bin noch nicht so lange hier. :oops:
Den Dateityp werde ich als nächstes mit festlegen, wenn die Fragen zum Vista-Style und das automatische Laden geklärt sind. :wink:

Gruß
Benni

[Balu der Bär]

Jetzt gibt es irgendwie gar keinen Download mehr. :stupid:

[be-2801]

Jetzt geht er wieder ^^

Hab ein kleines Problemchen gehabt :mrgreen:

Das mit dem DatePicker hab ich jetzt auch raus, muss einfach den Befehl "DateToStr" verwenden ^^

Gruß
Benni

[ringli]

Zitat:

Zitat von be-2801

Lässt sich der Vista-Style wie der XP-Style einbinden, einfach mit "VistaMan" oder sowas?

Google mal nach der VistaReady-Unit. Ich meine die bei CodeGear gefunden zu haben. Das dürfte für dich das einfachste sein.

Ausserdem solltest du ein Manifest einbinden welches die Vistaerweiterungen enthält. Also nicht mehr TXPManifest bzw. die XPman-Unit verwenden.

Zitat:

Zitat von be-2801

Für das Laden, der letzten Datei wäre dann wieder ne Install nötig, weil der Pfad irgendwo gemerkt werden muss, wenn das Programm beenden wird, oder geht das auch ohne zusätzliche Datei?

Ich würde mir an deiner Stelle sowieso eine Konfigurationsdatei (Stichwort: INI-Datei) zulegen damit dein Programm später auch mal die Fensterposition und die Fenstergröße speichern und auslesen kann. Eine Installation ist hierfür nicht nötig.

[EDIT]
Ich habe versucht den Link zur VistaReady-Unit wiederzufinden, aber bin leider nicht fündig geworden. Deswegen hänge ich die Unit hier mal an. Hoffe das das in Ordnung geht.
[/EDIT]

[Skatspieler]

#1


Moin,

ein paar Kritiken:

- Eintrag bei Datum kann nicht geändert werden.
- Fehleingabe bei Datum sollte überprüft werden (z. B. 30.02.) .
- Bei der Eingabemaske wäre es komfortabel wenn man durch alle Editfelder mit der Returntaste gehen könnte.
- Budgetbericht gegliedert nach Monaten und/oder Kalenderjahr (ggf. Zeitraum variabel def. lassen) in Memofeld zur Voransicht und zum Ausdruck.

Gruss, der Skatspieler :wink:

[Aike]

Jup, man sollte die Monate "durchscrollen" können oder ähnliches. Das wird viel Arbeit ;-p

So, hab's mal ausprobiert und hier einige Anwendungsverbesserungen:

• Bugdetübersicht für einen Monat, ein Jahr oder alle
• Alle Listboxen sollten miteinander scrollen, wenn man per Maus scrollt. Ich weiß zwar grade nicht, wie das gehen soll, aber du schaffst das schon ;-p Dass es mit den Pfeiltasten geht, ist schonmal gut.
• Mir geht es so (euch bestimmt auch *g*), dass ich mehr Ausgaben hab als Einnahmen, zumindest an Einträgen. Es wäre also schön, wenn bei der Erstellungen eines neuen Eintrags dieses Feld nicht wieder zurückgesetzt würde. Wenn ich bei Ausgaben bin, möchte ich, dass das auch wieder ausgewählt ist, wenn ich einen neuen Eintrag auswähle.
• Datum: Meistens bewegt man sich doch im selben Monat oder zumindest im selben Jahr. Wenn ich also "13" eingebe, meine ich den "13.05.2007". Bei "13.10." meine ich natürlich "13.10.2007". Ich weiß gerade nicht, ob er "3.5.07" annimmt, sollte er aber, falls es noch nicht geht.
• Ich weiß nicht, ob es an meiner Liste liegt, dass ich am 01.04. begonnen und beim 16.05. die Liste beendet habe, aber ich finde es komisch, dass die Liste absteigend(?) sortiert wird. Schöner wär's doch, wenn die neuesten Ausgaben oben stünden, damit man sie gleich im Auge hat.
• Irgendwie sind die Listboxen ziemlich klein, wenn man mal 30 Einträge hat, was ja in ein oder zwei Monaten schon zusammenkommen kann. Lass den Anwender lieber die Form-Größe ändern können und lass die Listboxen mit vergrößern :-)
• Das was da in der Hilfe ganz unten steht, wahrscheinlich Copyright und so, ist echt unlesbar ;-)
• Ich kann das Datum der Einträge nicht ändern! Hilfe! ;-)
• Warum kann man Einträge nicht löschen/editieren, wenn man bei "Ausgaben"/"Einnahmen" reinschaut?
• Ich tendiere dazu, alle Button-Captions groß zu beginnen. Ist wahrscheinlich Ansichtssache, halte ich aber für guten Stil.
• Wenn ich speichern will, wird gar keine Dateiendung "vorgegeben". Da muss ich die ja selbst eingeben. Ich bin aber faul ;-p .txt oder .cfg sind immer gut
• Die Listbox für das Datum ist ziemlich breit. So lange Datumsangaben gibt es noch gar nicht ;-) Genauso bei Betrag. Meinetwegen könntest du es gerne enger fassen. Außerdem finde ich es schön, wenn die GroupBoxen die Caption nicht so an den Linien klebt. Dazu kann man einfach ein Leerzeichen vor und nach die Caption einfügen (" Verbuchen unter: ")
• Bei Rechtsklick auf einen Eintrag könnte ein PopUpMenü erscheinen, mit dem man auch an die Buttons kommt. Ich finde das immer praktischer, als wenn ich erst einen Eintrag auswählen und dann auf einen Knopf drücken muss.
• Die Suche ist wohl CaseSensitive. Das ist aber schade ;-p
• Wenn ich in der Suche eingabe "wow" eingebe, in der Listbox aber "WoW" steht, findet er es nicht. Wenn ich danach "WoW" eingebe, ist er am Ende der Liste und fragt mich, ob er nochmal von vorne suchen soll; danach findet er es. Das ist komisch ;-)

Das war's für's erste. Das soll dich jetzt aber nicht demotivieren, sondern anspornen. Ich will das Programm weiterhin benutzen und dich hiermit anregen, es weiter zu entwickeln. Und hör jetzt bloß nicht auf ;-p

[Garfield]

Zitat:

Zitat von ringli

[EDIT]
Ich habe versucht den Link zur VistaReady-Unit wiederzufinden, aber bin leider nicht fündig geworden. Deswegen hänge ich die Unit hier mal an. Hoffe das das in Ordnung geht.
[/EDIT]

http://www.experts-exchange.com/Prog..._22465261.html
http://threads.codegear.com/threads/...ommentid=39872
http://www.installationexcellence.co...nal/Index.html

[ringli]

Zitat:

Zitat von Garfield

http://www.experts-exchange.com/Prog..._22465261.html
http://threads.codegear.com/threads/...ommentid=39872
http://www.installationexcellence.co...nal/Index.html

Die Seiten hatte ich auch gefunden, aber ich finde da nirgends die VistaReady-Unit selber, sondern nur Themen die sich darum drehen. Aber vielleicht bin ich auch blind.... :roll:

[Klaus01]

Zitat:

Zitat von be-2801

Hab nur noch ein Problem, sowohl in der Version 1.0, als auch in der Version 1.1:

Ich lasse bei der Eintragung im Betragfeld überprüfen, ob ein Komma gedrückt wurde.
Wenn die Bedingung erfüllt ist, dann sollen nur noch 2 weitere Stellen möglich sein.
Das funktioniert im Programm aber nur so lange, bis wieder das Komma gedrückt wird.
Hier der Quelltext dazu, vielleicht habt ihr ja nen Vorschlag, wie man den kleinen Hacken noch rausbringt:

Delphi-Quellcode:

procedure TNewEntryForm.KeyCheck(Sender: TObject; var Key: Char);
begin
  if Key=',' //wenn Komma gedrückt wurde
    then AmountEdit.MaxLength:=length(AmountEdit.Text)+3; //dann maximale Länge, des einzugebenden Betrags auf aktuelle Länge + 3 Zeichen setzen
end;

Warum interessiert es Dich, ob ein Komma eingegeben wurde ooder nicht?
Laß den User doch soviele Nachkommastellen eingeben wie er/sie will, du kannst
doch hinterher durch Rundung die für Dich sinnvolle Anzahl der Nachkommastellen erreichen.

Und was passiert wenn der User ein nicht deutsches Windows setup hat, dann ist
der Dezimalseparator <> ','.

Grüße
Klaus

[be-2801]

Hab schon wieder ein bisschen was am Programm geändert, meine Frage jetzt:

wenn ich die Form vergrößern lasse, muss ich die Elemente in Größe und Possition jedesman neu berechnen lassen, oder gibt es dafür einen einfachen Befehl?

Gruß
Benni

[ringli]

Schau dir mal die Anchors-Eigenschaften im Objektinspektor an. ;)

[jmit]

Hallo,

die meisten Probleme bzw. Änderungen wurden ja schon in den vorherigen Beiträgen erwähnt.
Was mir aber trotzdem noch aufgefallen ist.
Ich mache einen Eintrag auf der Ausgabenseite und einen auf der Einnahmenseite. Jetzt ändere ich den Eintrag auf der Einnahmenseite in eine Ausgabe, dieser erscheint jetzt zwar auf der Ausgabenseite, jedoch ist der Eintrag auf der Einnahmenseite immer noch vorhanden. Ist dies gewollt, bzw. kaufmännisch so richtig?

[EDIT]
Das Programm lässt sich nur ordentlich beenden, wenn etwas in die Ini-Datei geschrieben werden kann.
Will man es aber nicht speichern, so lässt sich das Programm nicht beenden. :gruebel:
[/EDIT]

Gruß Jörg

[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,...)

Gruß

Calculon
--

[be-2801]

Bin dabei die genannten Fehler zu verbessern.

Wieso willst du das Label in der ersten Spalte selbst definieren können?
Dafür hatte ich eigentlich das Bezeichnungs-Eingabefeld gedacht, oder versteh ich das jetzt falsch, wie du das meinst?

Gruß
Benni

[mr.winkle]

Ich weiß nicht ob das schon gesagt wurde, aber viele haben monatl. Einnahmen, wie z.B. Taschengeld / Geld vom Job etc
Es wäre also praktisch, wenn man immer wieder autretende einnahmen/ausgaben eintragen könnte

[calculon]

Zitat:

Zitat von be-2801

Wieso willst du das Label in der ersten Spalte selbst definieren können?
Dafür hatte ich eigentlich das Bezeichnungs-Eingabefeld gedacht, oder versteh ich das jetzt falsch, wie du das meinst?

Ich meinte damit verschiedene Einnahmen/Ausgaben-Arten in z.B. einem TreeView zu gruppieren, etwa beispielsweise so:

Code:

* Bank
  * Girokonto
  * Sparbuch
* Essen u. Trinken
  * Einkauf ALDI :stupid:
  * Getränkemarkt Süd
* sonst.
  * DVD-Player gekauft
     .
     .
     .

Hoffe ist jetzt etwas klarer geworden ;-)

Gruß

Calculon
--

[be-2801]

Zitat:

Zitat von mr.winkle

Ich weiß nicht ob das schon gesagt wurde, aber viele haben monatl. Einnahmen, wie z.B. Taschengeld / Geld vom Job etc
Es wäre also praktisch, wenn man immer wieder autretende einnahmen/ausgaben eintragen könnte

Könnte man machen, aber bei den wenigstens wird das Einkommen konstant bleiben.
Daher wäre wohl nur eine kleine Auswahl an vorgefertigten Bezeichnungen sinnvoll, aber bis man die rausgesucht hat, hat man es auch eingetipp, finde ich.

Zitat:

Zitat von calculon

Ich meinte damit verschiedene Einnahmen/Ausgaben-Arten in z.B. einem TreeView zu gruppieren

Ja, weiß was du meinst ... ich werde erstmal an der Version weiterbasteln, bin jetzt dabei die Budgetübersicht auf einen bestimmten Zeitraum begrenz ausgeben zu lassen und ein Budgetdiagramm einzubauen.
Das mit dem TreeView kommt evtl. danach, weil ich da nen ganzen Teil wieder umschreiben muss ;)

Gruß
Benni

[be-2801]

So, hab im Moment noch folgendes verbessert:

• Suche verbessert (kein CaseSensitive mehr)
• Vista-Style eingebunden
• Größenänderung des Programms möglich
• Einträge sortiert nach Buchungsdatum

Ich habe selber kein Vista oder den Vista-Style installiert, könnte mir deshalb jemand, der den Style hat sagen, ob er im Programm richtig funktioniert?
Dankö :-D
Bei der nach Datum begrenzen Budgetübersicht bin ich gerade, gibt ein paar kleine Probleme, deshalb hab ich erstmal die bis jetzt verbesserte Version online gestellt.

Gruß
Benni

[arne99]

Bitte limitiere das Editfield fuer Betrag auf "Zahlen".
Beim Hinzufügen-Dialog bitte "Löschen" auf "Zurücksetzen" aendern.
Gleichzeitig beim "Löschen -> Zurücksetzen" BUtton das Datum auf "heute" stellen.
Beim Hinzufügen und gleichzeitg aktivem Tab "Einnahmen" oder "Ausgaben" bitte auf dem Tab bleiben, nich auf "Gesamtübersicht" springen und automatisch die OptionBoxes auf Selektiert stellen. D.h.: Einnamen Tab > Neuer Eintrag > im Dialog : Verbuchen unter auf Einnahmen automat. markieren.
Löschen sollte auch in den 2 anderen Ansichten (Einnahmen/Ausgaben) machbar sein.

Wenn der Löschen Butten angeklickt wird und nichts selektiert ist, oder nix in der Liste steht würde ich empfehlen keine Message zu zeigen, mach da einfach nichts hin, also DO NOTHIN ;)

ansonsten: mach weiter so!

PS: Dein VISTA Style ist bei mir nicht sichtbar weil ich eigenen Style verwenden. D.h. dein Style im Programm überschreibt nix bzw. ist nicht ZWINGEND AKTIVIERT.

[Gremlin]

Hallo be-2801,

also ich hab dein Programm auch angeschaut. Die Oberfläche ist schön gelungen
und übersichtlich aufgebaut. :thumb:
Meiner Meinung nach währe eine Gruppierung der Ausgaben/Einnahmen nach Kategorien
wichtig mit anschliessender Auswahl in der Budgetübersicht zzgl. Angabe des Datumbereichs
(wie @calculon beschrieben)
Auch die Angabe eines Limits für einen sich wiederholenden Zeitraums mit Ausgabe von
Überschreitungen, könnten das Programm verbessern. Sollten die Listviews über die
Überschriften sortierbar sein, wäre das Programm klasse.

Contras:

Der Dialog "Eintrag ändern" sieht ein wenig anders aus, wie die normalen Windows
Standard-Dialoge, vor allem die Plazierung (linke Seite) und die Bezeichnung der Buttons
(wenn ich einen Eintrag ändere, dann sollte der Button im Dialog nicht mehr "ändern" heissen)
ist gewöhnungsbedürftig.
Die Angabe des Betrags ist nicht rechtsbündig und es wird nicht automatisch auf NK2
formatiert.
Die Tab-Reihenfolge ist durcheinander.
Der Button "löschen" ist schwer zu verstehen. Besser wäre "Zurücksetzen" o.ä.
Ein Schliessen-Button oben rechts würde die Anwendung des Dialogs vereinfachen.

Die Suche funktioniert nicht richtig.
1. Eintrag ausgewählt, Suche nach Wert aus 1. Eintrag, Meldung "Ende von ..., von vorne..."
Eintrag wird manchmal gefunden, manchmal nicht
Bei einer Suche wird immer der 1. Tab ausgewählt

Eintrag ändern und löschen ohne Funktion im Tab "Ausgaben" und "Einnahmen" (Verbesserung)
Eintrag ändern und löschen aktiviert in Gesamtübersicht, auch wenn nach Löschen kein
Eintrag ausgewählt ist (Verbesserung)

Einträge vorhanden, Datei neu, Abfrage speichern, Dialog -> Abbrechen -> Alle Daten weg.
Besser: Wenn der Anwender das Speichern abbricht, die Daten in der Liste stehen lassen.

Bei meinem Rechner geschieht die Auswahl in der Listview über eine Spalte. Der Rest der
Zeile wird in Zeitlupe "nachselektiert", das sehr seltsam aussieht. Ok. vielleicht liegt
es auch an der Onboard-Grafikkarte.

Vista-Styles konnte ich zum Glück wegen Mangels an Vista nicht prüfen.


PS: Mach weiter so. :)

[be-2801]

Also das mit der Zeitlupe ist mir nicht aufgefallen, bei mir geht eigentlich alles ganz schnell, außer ich hab 500.000 Einträge drin stehen *g*.

Löschen und ändern im Tab 2 und 3 hat den Grund, dass Einnahmen und Ausgaben aus der Gesamtliste gezogen werden.
Kommt ein Eintrag hinzu wird er erst zu Einnahmen bzw. Ausgaben sortiert, wenn darauf geklickt wird, daher zurückspringen auf "Gesamtübersicht".

Zitat:

Zitat von arne99

Bitte limitiere das Editfield fuer Betrag auf "Zahlen".

Bei Betrag sind deshalb Strings möglich, da ich es noch nicht geschafft habe bei der Eingabe nur Zahlen zu erlauben und im Forum hab ich keine Variante gefunden, die wirklich funktioniert.
Wenn du weißt wie es funktioniert, könntest du den Quellcode mal hier reinstellen?
Dankö.

weitere Verbesserungen in Arbeit

Gruß
Benni

[ringli]

Zitat:

Zitat von be-2801

Ich habe selber kein Vista oder den Vista-Style installiert, könnte mir deshalb jemand, der den Style hat sagen, ob er im Programm richtig funktioniert?

Ja, jetzt werden die Vista-Dialoge für "Öffnen" und "Speichern unter" verwendet. :)

Was du in jedem Fall noch anpassen musst ist dein Manifest welches zur Zeit ja noch so aussieht:

Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
     type="win32"
    name="DelphiApplication"
    version="1.0.0.0" 
     processorArchitecture="*"/>
  <dependency>
    <dependentAssembly>
      <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        publicKeyToken="6595b64144ccf1df"
        language="*"
        processorArchitecture="*"/>
    </dependentAssembly>
  </dependency>
</assembly>

Damit das Manifest Vista kompatibel ist muss das Ganze etwa so ausssehen (beachte vor allem den Abschnitt trustinfo):

Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?> 
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> 
<assemblyIdentity 
    name="DelphiApplication" 
    processorArchitecture="x86" 
    version="1.2.3.4" 
    type="win32"/> 
<description>Beschreibung deines Programmes</description> 

<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
   <security>
      <requestedPrivileges>
         <requestedExecutionLevel
            level="asInvoker"/>
        </requestedPrivileges>
   </security>
</trustInfo>
<dependency> 
    <dependentAssembly> 
        <assemblyIdentity 
            type="win32" 
            name="Microsoft.Windows.Common-Controls" 
            version="6.0.0.0" 
            processorArchitecture="x86" 
            publicKeyToken="6595b64144ccf1df" 
            language="*" 
        /> 
    </dependentAssembly> 
</dependency> 
</assembly>

Desweiteren ist mir noch aufgefallen das sich jetzt zwar das Fenster vergrößern lässt, aber die Buttons immer links bleiben. Normalerweise sollten diese aber eigentlich rechtsbündig ausgerichtet werden. Jedenfalls kenne ich das nur so.

[arne99]

Das mit dem Nachselektieren passiert bei mir auch.
Auch wenn ich nur 5 Einträge habe.
Nutze nen 2.0 Ghz Notebook mit Ati X300 Graka und 2 GB Ram, sollte also nicht Hardware-related sein. ;)

[Aike]

Zitat:

Zitat von be-2801

[...]

Zitat:

Zitat von arne99

Bitte limitiere das Editfield fuer Betrag auf "Zahlen".

Bei Betrag sind deshalb Strings möglich, da ich es noch nicht geschafft habe bei der Eingabe nur Zahlen zu erlauben und im Forum hab ich keine Variante gefunden, die wirklich funktioniert.
Wenn du weißt wie es funktioniert, könntest du den Quellcode mal hier reinstellen?
Dankö.[...]

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;

Einfach, hässlich, aber es geht ;-)

[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:

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 :stupid: 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 :stupid: 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:

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:

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 :wall:

Gruß
Benni

[leddl]

Zitat:

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 :zwinker: Problem ist die eine oder andere fehlende Klammer ;)

Zitat:

Zitat von be-2801

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

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

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 :zwinker: Eben getestet, also erzähl mir nix :mrgreen:

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

[Balu der Bär]

Zitat:

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! :thumb:

[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! :wall: [/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?)