Komma eingabe

[cell]

Delphi-Quellcode:

Query.close;
       Query.SQL.Clear;
       if ((txtscheibe.Text = '') Or (txtbelagvo.Text='') Or (txtbelagvu.Text='') Or (txtbelagho.Text='') Or (txtbelaghu.Text='') Or (txtbelagvo_end.Text='') Or (txtbelagvu_end.Text='') Or (txtbelagho_end.Text='') Or (txtbelaghu_end.Text='')) then
       begin
       Showmessage('Bitte geben Sie einen Wert ein');
       frmgewichtaendern.Show;
       end
       else
       
           if isFloat(txtscheibe.Text) and isFloat(txtbelagvo.Text) and isFloat (txtbelagvu.Text) and isFloat (txtbelagho.Text) and isFloat(txtbelaghu.Text) and isFloat(txtscheibe_end.Text) and isFloat(txtbelagvo_end.Text) and isFloat(txtbelagvu_end.Text) and isFloat(txtbelagho_end.Text) and isFloat(txtbelaghu_end.Text) then
           
           begin
                Query.SQL.Text:=updatesqlz('Friktionstest', 'Anfangsgewicht_Scheibe',txtscheibe.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text);
                Query.ExecSQL;
                Query.SQL.Text:=updatesqlz('Friktionstest', 'Anfangsgewicht_Belag_vorne_oben',txtbelagvo.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text);
                Query.ExecSQL;
                Query.SQL.Text:=updatesqlz('Friktionstest', 'Anfangsgewicht_Belag_vorne_unten',txtbelagvu.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text);
                Query.ExecSQL;
                Query.SQL.Text:=updatesqlz('Friktionstest', 'Anfangsgewicht_Belag_hinten_oben',txtbelagho.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text);
                Query.ExecSQL;
                Query.SQL.Text:=updatesqlz('Friktionstest', 'Anfangsgewicht_Belag_hinten_unten',txtbelaghu.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text);
                Query.ExecSQL;
                Query.SQL.Text:=updatesqlz('Friktionstest', 'Endgewicht_Scheibe',txtscheibe_end.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text);
                Query.ExecSQL;
                Query.SQL.Text:=updatesqlz('Friktionstest', 'Endgewicht_Belag_vorne_oben',txtbelagvo_end.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text);
                Query.ExecSQL;
                Query.SQL.Text:=updatesqlz('Friktionstest', 'Endgewicht_Belag_vorne_unten',txtbelagvu_end.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text);
                Query.ExecSQL;
                Query.SQL.Text:=updatesqlz('Friktionstest', 'Endgewicht_Belag_hinten_oben',txtbelagho_end.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text);
                Query.ExecSQL;
                Query.SQL.Text:=updatesqlz('Friktionstest', 'Endgewicht_Belag_hinten_unten',txtbelaghu_end.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text);
                Query.ExecSQL;
                while not Query.Eof do
                Query.Close;
           end
           else
               ShowMessage('Bitte eine Zahl eingeben!');
       end;

das ist der code wo der fehler kommt

Delphi-Quellcode:

function updatesqlz (tabellennamez, feldnamez, aenderungz, whereanweisungz :string) :string;
//------------------------------------------------------------------------------
// UPDATE Funktion
//------------------------------------------------------------------------------
var
   ant: string;
begin
     ant :='UPDATE ' + #39+ tabellennamez +#39;
     ant :=ant + ' SET ' + feldnamez;
     ant :=ant + ' = ' +  aenderungz ;
     if whereanweisungz <> '' then
        ant :=ant + ' WHERE ' + whereanweisungz;
     result:= ant;
end;

das ist der code für den sql befehl
mein problem ist dass er eine fehlermeldung ausgibt wenn ich eine kommazahl eingeben will
zb.: 3,75 da regt er sich über das komma auf und über solche zeilen
Query.SQL.Text:=updatesqlz('Friktionstest', 'Anfangsgewicht_Scheibe',txtscheibe.Text,'Testnummer = ' +frmtestauswahl.cbotestnummer.Text); und bei einen punkt zb.: 3.75 kennt er das als text an
???