Hallo!
Ich verstehe nicht, wie TEvent funktioniert.
Mein Problem:
bei der unten stehenden Procedure wird eine ListView nach Strings durchsucht. Bei einer Übereinstimmung wird die Form3 angezeigt (die sich die passenden Informationen aus der ListView selber holt, also in der OnShow)
Aber es kann passieren, dass weitere Übereinstimmungen gefunden werden.
Das bedeutet, dass die Schleife solange warten muss, bis der User in der Form3 einen Button drückt und ein Event signalisiert. (SetEvent?)
Hier die Procedure
with ListView1 do
for I := 0 to Items.Count - 1 do
begin
if Items[i].checked = true then
begin
if Items[i].SubItems.Strings[3] = FormatDateTime('hh:mm', Now) then
begin
if (Items[i].SubItems.Strings[1] = 'Heute') or
(Items[i].SubItems.Strings[2] = GetDay) or
(Items[i].SubItems.Strings[2] = DateToStr(Now)) then
begin
//#########################
ItemAktuell := i;
if \"nächsterdurchlauf\" then
WaitFor(10000); ???
Form3.Show;
//#########################
end;
end;
end;
(wieso klappt das mit dem code immer nicht?
Autor