aus Ini datei ein Datum und eine Zeit auslesen

[thkerkmann]

Hi,

also es geht erst mal um das Konzept.

Lies alle 4 Werte aus der Ini in variablen ein, bevor Du auf den Timer wartest.
Nicht in der Timer Routine erst auf die Ini Datei zugreifen.

Also:

Einstellen:
schreibt Werte in die Ini

Programm startet:
lese Werte aus der Ini (in variablen)

Programm läuft:
überprüfe ob Datum,Zeit erreicht

Wenn erreicht:
Zeige Werte an (aus variablen)

Dann sollte es einfacher gehen.

[kingsusu]

Ich verstehe aufjeden Fall was ihr meint und dass es auch besser ist.

Delphi-Quellcode:

If (TimeToStr(now) = TImeToStr(pickerzeit.Time)) and (DateToStr(now) = DateToStr(pickerdatum.Date))
  then showmessage (Messagebox(Self.Handle, (readfromini(filename, 'Myvars', 'Beschreibung')), (readfromini (filename, 'Myvars', 'Überschrift')), MB_ICONWARNING or MB_OK)) ;

Der Delphi-Befehl oben zeigt mir folgenden Fehler: [DCC Fehler] URemember.pas(168): E2010 Inkompatible Typen: 'string' und 'PWideChar'.

Und das will ich auch verstehen - wieso es nicht klappt! :)

[kingsusu]

bzw. was muss ich änder, dass es klappt. Ich komme gerade echt nicht weiter und habe alles mögliche versucht :wall:

[thkerkmann]

Hi,

Nimm mal lieber MessageDlg statt MessageBox.
MessageDlg stammt aus der Unit Dialogs, also von Delphi. MessageBox stammt aus der Unit Windows, und verlangt andere Aufrufkonventionen.
Im Moment hast Du ein Problem mit der Kompatibilität der Aufrufe und deinen Variablen Typen.

[Edit]

Delphi-Quellcode:

showmessage (Messagebox(Self.Handle, (readfromini(filename, 'Myvars', 'Beschreibung')), (readfromini (filename, 'Myvars', 'Überschrift')), MB_ICONWARNING or MB_OK)) ;

Was'n das ?

showmessage mit Messagebox ?
also entweder

Delphi-Quellcode:

Showmessage(readfromini(filename, 'Myvars', 'Beschreibung')) + #13#10 + readfromini (filename, 'Myvars', 'Überschrift'));

oder

Delphi-Quellcode:

  MessageDlg( ... )

mit den entsprechenden Parametern.
[/Edit]

[Edit2]
und benutzt doch mal ein paar Variablen, das erhöht die Übersicht und dazu sind sie doch da:

Delphi-Quellcode:

  ...
var
  Ueberschrift: string;
  Meldung: string;
  ...
begin   
  if .... then
  begin
    Ueberschrift := ReadIni ....
    Meldung := ReadIni ....

    showmessage(Ueberschrift + #13#10 + Meldung);
  end;

[/Edit2]

Gruss

[kingsusu]

Also wenn ich es so mache:

Delphi-Quellcode:

Überschrift := readfromini(filename, 'Myvars', 'Überschrift');
Meldung :=   readfromini(filename, 'Myvars', 'Beschreibung');
showmessage(Überschrift + #13#10 + Meldung);

so kommt komischerweise (bei mehreren Terminen) nur der zeitlich letzte!

Dabei sollte doch für jedes einzelne ein einziges kommen... :wiejetzt:

Delphi-Quellcode:

If (TimeToStr(now) = TImeToStr(pickerzeit.Time)) and (DateToStr(now) = DateToStr(pickerdatum.Date))
then
begin
Überschrift := readfromini(filename, 'Myvars', 'Überschrift');
Meldung :=   readfromini(filename, 'Myvars', 'Beschreibung');
showmessage(Überschrift + #13#10 + Meldung);

Mein Code stimmt doch.

[thkerkmann]

Hi,

ich weiss ja nicht, wie du deine Daten speicherst, aber so wie es ausschaut, kannst du in der ini nur einen Datensatz ablegen.
Du hast ja keinen Identifier für den x-ten Eintrag bei readfromini bzw. writetoini.

Gruss

[kingsusu]

Ja das scheint wohl zu stimmen, was du gesagt hast.

Mein jetziger Code.

Delphi-Quellcode:

filename :=  Extractfilepath (application.ExeName) + 'test.ini';
   WriteToIni (Filename,'Myvars','Überschrift',eduber.Text);
   WriteToIni (Filename,'Myvars','Beschreibung',edmem.Text);
   WriteToIni (Filename,'Myvars','Zeit',TimeToStr(pickerzeit.Time));
   WriteToIni (Filename,'Myvars','Datum',DateToStr(pickerdatum.date));

Aber dieser scheint wohl nur für einen Bereich zu stimmen. Muss ich jetzt eine Schleife darüber machen, oder wie schaffe ich das für den x-ten Betrag?

[thkerkmann]

Hi,

du könntest ja statt 'MyVars' z.B. 'Weckzeit' + IntToStr(nr) verwenden.

und noch einen Count in die Ini schreiben, damit Du weist wieviele es sind.

z.B.

Delphi-Quellcode:

   WriteToIni (Filename, 'Weckzeiten', 'Anzahl', Count);
   
     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Überschrift', eduber.Text);
     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Beschreibung', edmem.Text);
     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Zeit', TimeToStr(pickerzeit.Time));
     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Datum', DateToStr(pickerdatum.date));

Aber ich würde erst mal über eine geeignete Datenstruktur nachdenken.

Vielleicht überlegst Du dir mal einen Record oder Klasse - in den/der du die Sachen speicherst, und diese dann in eine Liste packst.
Dann solltest Du die Liste der Daten in die Ini speichern und wieder daraus lesen.

Mit den einzelnen Edit Feldern wirst Du ja nicht mehrere Datensätze auf einmal bearbeiten wollen.

Gruss

[kingsusu]

Zitat:

Zitat von thkerkmann

Hi,

du könntest ja statt 'MyVars' z.B. 'Weckzeit' + IntToStr(nr) verwenden.

und noch einen Count in die Ini schreiben, damit Du weist wieviele es sind.

z.B.

Delphi-Quellcode:

   WriteToIni (Filename, 'Weckzeiten', 'Anzahl', Count);
   
     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Überschrift', eduber.Text);
     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Beschreibung', edmem.Text);
     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Zeit', TimeToStr(pickerzeit.Time));
     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Datum', DateToStr(pickerdatum.date));

Und dieses IntToStr(nr) gibt einem bestimmten Eintrag von mir eine Nummer oder?
Wie definierte ich dann nr und Count?

[Matze]

Zitat:

Zitat von kingsusu

Und dieses IntToStr(nr) gibt einem bestimmten Eintrag von mir eine Nummer oder?

Nein. Dir fehlen immer noch sämtliche Grundlagen. Evtl. wären EInsteigertutorials ganz sinnvoll.

Delphi bringt eine - mehr oder weniger - brauchbare Hilfe mit. Oder du suchst in der Delphi-Reference nach diesen Funktionen: IntToStr:

Zitat:

IntToStr converts an integer into a string containing the decimal representation of that number.

Auf Deutsch: Es wird ein Integer-Wert (= eine Ganzzahl) in einen String (= Zeichenkette) umgewandelt, den du dann ausgeben kannst.