-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
20. Jun 2002
Ändere mal den Code in GeburtsdatumClick so um:
procedure TKundendaten.GeburtsdatumClick(Sender: TObject);
var
i, r: Integer;
s: string;
begin
ExtraForm.Show;
Exit;
r := DM.ADOSHaupt.RecNo;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
20. Jun 2002
In OnActivate würde ich das in dem Fall nicht stecken: Lies mal dieses dazu. Aber es gibt noch OnShow.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
19. Jun 2002
Nimm mal anstatt Now die Funktion Date. Und bessere auch gleich das Copy(..., 0, 6) in Copy(..., 1, 6) aus
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
18. Jun 2002
Der Fehler liegt im Vergleich von Now mit dem zusammengesetzten Datum. Wenn er sein Programm genau um 0:00 Uhr startet, dann funktioniert es. Anstatt Now muss Date verwendet werden. Es sollten auch alle Datensätze durchlaufen werden, und nicht nur der aktuell ausgewählte.
Lösung:
procedure TKundendaten.GeburtsdatumClick(Sender: TObject);
var
i, r: Integer;
s: string;
begin
r :=...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
18. Jun 2002
Aber nur, wenn du vorher die Variable auf nil setzt, wenn sie nicht global oder in einer Klasse deklariert ist. Und selbst Borland sagt, dass das nicht gerade der schönste und übersichtlichste Programmierstil ist.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
18. Jun 2002
So so. Und was macht dein finally-Block wenn Ini irgendwo hinzeigt? Der finally-Block soll ja nur die Resourcen freigeben, die auch reserviert wurde. Wenn TIniFile.Create fehlschlägt, dann wird auch keine Instanz erzeugt.
Selbst Borland macht es vor wie man es machen soll:
FlippedList := TList.Create;
try
...
for Loop := 0 to ControlCount - 1 do with Controls do
begin
...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
17. Jun 2002
Poste mal den Code in Ereignis OnClick von Button Geburtsdatum.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
17. Jun 2002
Das liegt vielleicht daran, dass du sie auch nicht anzeigst. Nur das Setzen der CheckBox ruft noch lange nicht ShowModal bzw. Show auf. Das musst du irgendwo einbauen (z.B. im Ereignis OnClick der CheckBox).
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
17. Jun 2002
Schreib einmal die Methode load_inifile so um:
procedure TKundendaten.load_inifile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini' );
try
ExtraForm.CheckBox1.Checked:=ini.ReadBool('Sektion1','check_box', true)
ShowModal('Juhu, ich bin bis hierher gekommen');
finally
Ini.Free;
end;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
17. Jun 2002
Da fällt mir noch ein, dass man auch bei Warnungen und Fehlermeldungen von der OnlineHilfe unterstützt wird. Meist sogar mit Beispielen, die einem den Fehler aufzeigen. Einfach die Fehlermeldung anlicken und F1 drücken.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
17. Jun 2002
Dazu: Schau dir einmal das Posting von Daniel B an, da steht, was du machen musst, um diesen Hinweis zu "beseitigen".
Zu deinem Problem:
Setze mal den Cursor in die Zeile mit
ExtraForm.CheckBox1.Checked:=ini.ReadBool('Sektion1','check_box', true)
und drücke dann . Dein Programm müsste nach dem Starten nun an dieser Stelle anhalten. Sollte die Fehlermeldung aber davor erscheinen, dann liegt...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
17. Jun 2002
Da haben wir das Problem. Da ExtraForm auf der Seite der "verfügbaren Formulare" ist, wird es beim Start nicht erzeugt. Dadurch zeigt die Variable (Zeiger) ExtraForm ins leere und ein Zugriff auf ExtraForm.CheckBox1 erzeugt eine Schutzverletzung. Du musst ExtraForm zu den Formularen hinzufügen, die Automatisch erzeugt werden.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
17. Jun 2002
Rufst du load_inifile noch wo anders auf?
Schau mal im Menü Projekt - Optionen... im Register "Formulare" nach, auf welcher Seite sich dein ExtraForm befindet. Wenn es rechts ist, dann schiebe es nach links.