SQL Datensatz wird nicht richtig ausgelesen

[Ulf346C]

solche Eingabefehler MUSS man abfangen. Ihr würdet euch wundern was manche Benutzer so eintippen

für das beschriebene Problem z.B. damit:

Delphi-Quellcode:

function ValMaske(t: string): real;
var x,n:integer; g:real;
{Konvertiert einen String -auch mit Komma- in einen Real-Typ}
{enthaltene Leerzeichen, Unterstriche usw. werden entfernt}
begin
  t := '0' + t; {sonst Laufzeitfehler, wenn Leerstring}
  while pos(' ',t) > 0 do begin
    delete(t,pos(' ',t),1);
  end;
  while pos('_',t) > 0 do begin
    delete(t,pos('_',t),1);
  end;
  n := pos(',',t);         {Komma suchen}
  if n>0 then t[n] := '.'; {Komma durch Punkt ersetzen}
  val(t,g,x);              {in Fließkomma konvertieren}
  if x=0 then Result := g
  else begin
    MessageDlg('Ungültiges Zahlenformat', mtError, [mbOk], 0);
    ValMaske := 0;
  end;
end;