Bitte Entschuldigt
jetzt sehe ich den Wald vor lauter Bäume nicht mehr...
@Jumpy
Du hast völlig recht, es geht noch weiter... Wenn das bisGast leer lasse und ich den Filter anwende, dann stürzt es ab...
Was setze ich nun wo ein?
Mit diesem Code bekomme ich es gar nicht gebacken...:
Code:
if FilterText='' then
begin
showmessage('Bitte Gast von/bis Nr. eingegeben!');
end
else
begin
dbf1.Filter := FilterText
dbf1.Filtered := true;
end;
function FilterText:String;
begin
Result:='';
if (Trim(vonGast.Text)<>'') and (Trim(bisGast.Text)<>'') then
if IstEineZahl(vonGast.Text) and IstEineZahl(bisGast.Text) then
Result:='KUNR > ' + vonGast.Text + ' and KUNR < ' + bisGast.Text;
end;
//IstEineZahl ist eine weiter Funktion, in der du evtl. TryStrToInt oder sowas verwenden könntest.