Schleifen Optimierung?

[youuu]

Stimmt habe nun nur noch:

Delphi-Quellcode:

Function StatusCustomer (Customer_Number: String): Boolean;
Var
  Status: TStringlist;
  i: Integer;
Begin
  Status:= TStringlist.Create;
  result:= false;

  Try
    FormMain.QueryUpdate.SQL.Text:='SELECT * FROM '+Tabelle.position+' Where Customer_Number = '''+Customer_Number+'''';
    FormMain.QueryUpdate.Open;
      while not FormMain.QueryUpdate.Eof do
      Begin
        if StrToDate(FormMain.QueryUpdate.FieldByName('announcement_date').AsString) >= Date() then
          result:= true;
        FormMain.QueryUpdate.Next;
      End;
  Finally
    FormMain.QueryUpdate.Close;
    Status.Free;
  End;

Aber was gena meintest du mit SQL Paremeter benutzen?