wie schreibe ich daten in eine paradox7 tabelle?

[libFelix.so]

Ich habe ein Problem.
ich möchte folgende variabelen in eine paradox7 tabelle schreiben:

Code:

wupb1, wupb2, wupb3, wupb4, wupb1d, wupb2d, wupb3d, wupb4d, wupgesd, wupges, name

die nme variable kommt aus einer combobox. desweiteren sollen die makierten radiobuttons aus der dbradiogroup in die tabelle eingetragen werden. wie kann ich dieses realisieren. desweiteren kann ich im moment keinen der radiobuttons auswählen... ich habe den kompletten src mal ebn angehängt für euch. thx schonmal

felix

Delphi-Quellcode:

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label10: TLabel;
    Edit11: TEdit;
    ComboBox1: TComboBox;
    Button3: TButton;
    DBRadioGroup1: TDBRadioGroup;
    DBRadioGroup2: TDBRadioGroup;
    DBRadioGroup3: TDBRadioGroup;
    DBRadioGroup4: TDBRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);


  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  wupb1, wupb2, wupb3, wupb4, wupb1d, wupb2d, wupb3d, wupb4d, wupgesd, wupges: integer;

begin

  //Einlesen der Variablen
  wupb1 := StrToInt(Edit2.Text);
  wupb2 := StrToInt(Edit3.Text);
  wupb3 := StrToInt(Edit4.Text);
  wupb4 := StrToInt(Edit5.Text);
  wupb1d := StrToInt (Edit7.Text);
  wupb2d := StrToInt (Edit8.Text);
  wupb3d := StrToInt (Edit9.Text);
  wupb4d := StrToInt (Edit10.Text);

  //Abzüge pro Bahn
  //Bahn1
  case DBRadioGroup1.ItemIndex of
    0 : wupb1 := wupb1 - 1;
    1 : wupb1 := wupb1 - 2;
    2 : wupb1 := wupb1 - 5;
  end;
  //Bahn2
  case DBRadioGroup2.ItemIndex of
    0 : wupb2 := wupb2 - 1;
    1 : wupb2 := wupb2 - 2;
    2 : wupb2 := wupb2 - 5;
  end;
  //Bahn3
  case DBRadioGroup3.ItemIndex of
    0 : wupb3 := wupb3 - 1;
    1 : wupb3 := wupb3 - 2;
    2 : wupb3 := wupb3 - 5;
  end;
  //Bahn4
  case DBRadioGroup4.ItemIndex of
    0 : wupb4 := wupb4 - 1;
    1 : wupb4 := wupb4 - 2;
    2 : wupb4 := wupb4 - 5;
  end;

  //Drops pro Bahn incl. Zuzüge
  wupb1 := (wupb1d * 2) + wupb1;
  wupb2 := (wupb2d * 2) + wupb2;
  wupb3 := (wupb3d * 2) + wupb3;
  wupb4 := (wupb4d * 2) + wupb4;

  //GesamtDrops
  wupgesd := wupb1d + wupb2d + wupb3d + wupb4d;

  //GesamtSchläge incl. Abzüge
  wupges := wupb1 + wupb2 + wupb3 + wupb4;

  //Ausgabe - Gesamt Drops
  Edit11.Text := IntToStr(wupgesd);

  //Ausgabe - Gesamt Schläge incl. Zu-/Abzüge
  Edit6.Text := IntToStr(wupges);

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  name: string[15];
  f :textfile;

begin
  //Name aus ComboBox einlesen
  case combobox1.itemIndex of
    0 : name := 'Felixxx';
    1 : name := 'Katja';
    2 : name := 'Lenni';
    3 : name := 'Markus';
    4 : name := 'Oli';
    5 : name := 'Peter';
    6 : name := 'Rase';
    7 : name := 'Togi';
    8 : name := 'Wasi';
  end;

  //In Datei schreiben
  AssignFile(f,'erg_wup.txt');
    {$i-}
      Append(f);
    {$i+}
    if IOResult <> 0 then halt;
      Writeln(f,name + ',' + Edit2.Text + ',' + Edit7.Text + ',' + Edit3.Text + ',' + Edit8.Text + ',' + Edit4.Text + ',' + Edit9.Text + ',' + Edit5.Text + ',' + Edit10.Text + ',' + Edit6.Text + ',' + Edit11.Text);
    CloseFile(f)
end;

end.