Hallöle!
Ich hab mir nen kleines Programm geschrieben
um ein wenig in die Datenbankanwendungen reinzukommen!
Ich hab in der
ODBC - Umgebung ne SystemDNS auf die MS
Access DB angelegt und in der Delphi
BDE auch verknüpft usw.
Das funtzt alles!
Auf mein Formular hab ich dann noch ne TTable - und einen DataSource - Komponente geklatscht! Wenn ich jetzt zur Entwurfszeit den TableName und dann Active bei der TTable - Komponenten mache zeigt das TopGrid
DB Grid die Daten an! Prima! Passt alles!
Jetzt wärend der Laufzeit geh ich das Grid durch und frage ab ob das Feld erst mal 0 ist!
Delphi-Quellcode:
with grdMain do begin
for i := Rows -1 downto 0 do begin
if Cell[5, i] = IntToStr(0) then begin
if Cell[2, 1] < DateToStr(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;
In der Zeile "if Cell[2, 1] < DateToStr(Date) then begin" bringt der mir jetzt nen Fehler und zwar nen Übersetzungsfehler!
Kann mir einer da helfen? Bin für andere Komponenten eher abgeneingt
