1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

if combobox1.itemindex=0 then
Table2.IndexFieldNames := 'Datum;Zeit';
Table3.IndexFieldNames := 'Datum;Zeit';
Table4.IndexFieldNames := 'Erwartete Zeit';
if combobox1.itemindex=1 then
Table2.IndexFieldNames := 'Betrag;Datum';
Table3.IndexFieldNames := 'Betrag;Datum';
Table4.IndexFieldNames := 'Erwarteter Betrag';
if combobox1.itemindex=2 then
Table2.IndexFieldNames := 'Kommentar;Datum;Zeit';
Table3.IndexFieldNames := 'Kommentar;Datum;Zeit';
Table4.IndexFieldNames := 'Grund';					

1:
2:
3:
4:
5:
6:
7:
8:
9:

case combobox1.itemindex of
  0: begin
       Table2.IndexFieldNames := 'Datum;Zeit';
       Table3.IndexFieldNames := 'Datum;Zeit';
       Table4.IndexFieldNames := 'Erwartete Zeit'
     end;
  1: usw ...
  2: usw ...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.Button11Click(Sender: TObject);
var Betrag:string; position,Laenge:integer; Betrag1:real;
begin
     table3.edit;

     radiogroup4.itemindex:=1;
     edit9.text:=dbedit12.text;
     edit8.text:=dbedit11.text;
     edit10.text:=dbedit8.text;
     betrag:=dbedit7.text;
     Laenge:=length(Betrag);
     Delete(Betrag,(Laenge-1),Laenge);
     position:=pos('.',Betrag);
     while position > 0 do
           begin
                delete(Betrag,position,1);
                position:=pos('.',Betrag);
           end;
     betrag1:=strtofloat(betrag);
     if betrag1 < 0 then
        begin
             radiogroup6.itemindex:=0;
             betrag1:=betrag1*(-1);
             edit7.text:=floattostr(betrag1);
        end
     else
        begin
             radiogroup6.itemindex:=1;
             edit7.text:=betrag;
        end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

var gesamtko:string; laenge:integer; gesamtbar,Betrag,gesamtkonto:real;
begin

     if radiogroup6.itemindex=0 then
        begin
             Betrag:=strtofloat(edit7.text);
             Betrag:=Betrag*(-1);
             DBEdit7.text:=floattostr(Betrag);
        end;
     if radiogroup6.itemindex=1 then
        dbedit7.text:=edit7.text;

     dbedit8.text:=edit10.text;
     dbedit11.text:=edit8.text;
     dbedit12.text:=edit9.text;

     table3.append;                                 //Sende die Änderungen an die Datenbank.
     table3.refresh;                                //Aktualisiere die Datenbank.
     radiogroup4.ItemIndex:=-1;                     //Die Radiobuttons werden
     radiogroup6.ItemIndex:=-1;                     //auf Null gesetzt.
     edit7.text:='';                                //Die Edit-Felder werden geleert.
     edit8.text:='';
     edit9.text:='';
     edit10.text:='';

     gesamtbar:= 0;
     table3.First;
     while not table3.eof do
       begin
          gesamtbar:= gesamtbar + table3.FieldByName('Betrag').asFloat;
          table3.Next;
       end;
     edit15.text:=floattostr(gesamtbar)+' €';

     gesamtko:=edit14.text;
     laenge:=length(gesamtko);
     delete(gesamtko,laenge,laenge+1);
     gesamtkonto:=strtofloat(gesamtko);
     edit11.text:=floattostr(gesamtkonto+gesamtbar)+' €';

end;