Variable für markierten RadioButton in DB schreiben???

[Sharky]

Hai jschade,

Du schreibst das Du eine Radiogroup hast. Dann wäre die Auswertung welcher "Radiobutton" gewählt wurde so einfacher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 rb : String;
begin
 Case RadioGroup1.ItemIndex of
  0 : rb:= 'Arbeitstag';
  1 : rb:= 'Feiertag';
  2 : rb:= 'Arbeitsfrei';
 end;
 Query1.Insert;
 Query1.FieldByName ('rb').AsString := rb;
 Query1.Post;
end;

oder mit deien DB-Funktionen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 rb : String;
begin
 Case RadioGroup1.ItemIndex of
  0 : rb:= 'Eins';
  1 : rb:= 'Zwei';
  2 : rb:= 'Drei';
 end;
 ADOCommandKalender.CommandType := cmdText; 
 ADOCommandKalender.CommandText := 'INSERT INTO MA_Kalender(Art) VALUES ('
    + QuotedStr (rb)
    + ')';
 ADOCommandKalender.Execute;
end;