Lesen und schreiben aus/in Datenbank

[SubData]

Versuchs mal so:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject); 
var
  Td1, Td2, Td3  : Double;
  Zw             : Real;
begin 
  //Table1.DatabaseName:= '.\DB\'; 
  Table1.TableName:= 'KDDaten'; 
  Table1.Active:= true; 
  Table1.First; 
  while not (Table1.Eof) do 
  begin 
    Td1:= Table1.FieldByName('Stunden').asFloat; 
    Td2:= Table1.FieldByName('Minuten').asFloat; 
    Td3:= Table1.FieldByName('Sekunden').asFloat; 
    ZW:= Td1 * 60 + Td2 + Td3 / 60; 
    Table1.Edit; 
    Table1.FieldValues['Ges. Minuten'] := ZW; 
    Table1.Post; 
    Table1.Next; 
  end; 
end;