ShowMessage OnTimer

[Akut-Programming]

Da bringt er mir, das es inkompatible Typen sind, is ja auch klar, XMLDomNode und WideString passen ja nich zusammen, daher versuchte ich ma noch es in ne String Variable zupacken, aber auch dat bleibt ohne Erfolg.

[Tpercon]

Zitat von Chakotay1308:

das ist richtig, aber wird nicht funktionieren, weil...

Das es nicht copy & paste fähig ist, habe ich mir schon gedacht, schließlich habe ich noch nie etwas mit XML gemacht. Aber gut, dass die Richtung also stimmt. Denn die ursrünglich Methode ging ja rein logisch nicht.

[Akut-Programming]

Hey Chris, genau so meint ichs, nur das ich jetzt ne Zugriffsverletzung bekomme, wenn er das Datum überprüft.

Delphi-Quellcode:

begin
    for i:=0 to lv_eintraege.Items.Count -1 do begin
    if (StrtoDate(lv_eintraege.Items[i].SubItems[1])=date) //Hier kommt er in die Zugriffsverletzung
      and (StrtoTime(lv_eintraege.Items[i].SubItems[2])=time)
      and (xmlDoc.selectSingleNode('/PlanView/termin[id="'+IntToStr(i)+'"]/AlertShowed').Text='_')
      then begin
        ShowMessage('Ihr Termin ('+lv_eintraege.Items[i].SubItems[1]+') beginnt!');
        newTermin := xmldoc.createElement('termin');
        newSub := xmlDoc.createElement('AlertShowed');
        newSub.text :='x';
        newTermin.appendChild(newSub);
      end;
    end;

Man, es ist zum . Es kann doch nich so schwer sein, ne Meldung nach n paar Kriterien anzuzeigen.

[Tpercon]

Und wie lautet der Text der Exception?

[Akut-Programming]

...ist eine Exception der Klasse EAccessViolation aufgetreten..
Oder wat meinste?

[Tpercon]

Hm, eigentlich kann da nur irgendwas wie ... ist kein gültiges Datum kommen.

[Akut-Programming]

Ne, kommt net! Der geht in die Zeile

Delphi-Quellcode:

... 
if (StrtoDate(lv_eintraege.Items[i].SubItems[1])=date)
...

in dieser kommt er nich weiter, un geht wieder in die Zeile

Delphi-Quellcode:

...
for i:=0 to lv_eintraege.Items.Count do begin
...

Muss ich noch irgendwelche Operatoren beachten?

[Tpercon]

Ich hoffe die Zeile
for i:=1 to lv_eintraege.Items.Count do begin heißt bei dir
for i := 0 to lv_eintraege.Items.Count - 1 do begin Das er wieder zur Schleife springt ist klar, da das Datum nicht identisch sein wird. Was ja auch so sein soll.

[Akut-Programming]

Ja hab die Zeile so!
for i := 0 to lv_eintraege.Items.Count - 1 do begin War nur n Schreibfehler...

[Akut-Programming]

Mit meinem Problem hat´se aber ehr nichts zu tun!