ups ... ok!
Sollte natürlich so aussehen
Delphi-Quellcode:
with grdMain do begin
for i := Rows -1 downto 0 do begin
if Cell[5, i] = IntToStr(0) then begin
if StrToDate(VarToStr(Cell[2, 1])) < Date then begin
slDaten.Add(Cell[3, i] + ' | ' + Cell[4, i]);
DeleteRows(i, i);
end
else if StrToDate(Cell[2, i]) = Date then begin
if Cell[3, i] <= Time then begin
slDaten.Add(Cell[3, i] + ' | ' + Cell[4, i]);
DeleteRows(i, i);
end;
end;
end;
end;
So ich wandel jetzt den Variant in nen String und den in nen Date Format! ok! Aber trotzdem kommt immer noch der Übersetzungsfehler!