Fehler bei Index

[hoika]

Hallo

Delphi-Quellcode:

var
  sFoundName: String

with Query do
begin
  SQL.Clear;
  SQL.Add('Select * From Table');
  SQL.Add('Where SName=:SName');
  ParamByName('SName').AsString:= Edit_Search.Text;  /// normaler TEdit
  Open;
  try
    if QueryIsNotEmpty then
    begin
      sFoundName:= FieldByName('SName').AsString;

     // bei mehreren Suchergebnissen folgendes
      while not EOF do
      begin
        sFoundName:= FieldByName('SName').AsString;
       // mache was mit sFoundName  

        Next;
      end;

    end;
  finally
    Close;
  end;
end;

Am besten mal im DB Tutorial nachsehen


Heiko