Hallo Forumsmitglieder,
wer kann weiterhelfen ?
Möchte aus Datenbank Inhalte auslesen,verknüpfen und in eine Zelle abspeichern.
Den von mir erstellten Code habe ich angehängt.
Kompilation läuft fehlerfrei. Aber nach Betätigung des Buttons stoppt Programm mit Fehlermeldug.
Wo liegt der Fehler ?
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
Td1,Td2,Td3,Er1:
string;
ZW: real;
begin
//Table1.DatabaseName:= '.\DB\';
Table1.TableName:= '
KDDaten';
Table1.Active:= true;
Table1.First;
while not (Table1.Eof)
do
begin
Td1:= Table1.FieldValues['
Stunden'];
Td2:= Table1.FieldValues['
Minuten'];
Td3:= Table1.FieldValues['
Sekunden'];
ZW:= StrToFloat(Td1)*60+StrToFloat(Td2)+StrToFloat(Td3)/60;
Er1:= FloatToStr(ZW);
Table1.Insert;
Table1.FieldByName('
Ges. Minuten').AsString:= Er1;
Table1.Post;
Table1.Next;
end;
end;
MfG
allarich
[edit=Sharky]Delphi-Tags gesetzt und Code formatiert. Mfg, Sharky[/edit]