Søge i Paradox Database

if Tbl1.Findkey([varenummer]) then
  Varenummer fundet

Varenummer skal være det aktive index.

Ja, og i dette tilfælde vil jeg foreslå at du bruger en TQuery. Ikke fordi den er den nemmeste at bruge, men fordi det er den der giver dig de fleste fordele. Når du bruger en TQuery så er det SQL-\"Sproget\" du bruger til at foretage søgningen:
<SNIP>
IF TQuery1.Active then TQuery1.Close;
TQuery1.SQL.Clear;
TQuery1.SQL.Add(\'SELECT * FROM varer\');
TQuery1.SQL.Add(\'WHERE vnr = 127\');
TQuery1.SQL.Add(\'ORDER BY vnr\');
TQuery1.Open;
</SNIP>

Se tidlige indslag i denne kategori.  Søg på SQL.  Spørgsmål burde være med i en FAQ.

Delphi

Jeg ville hel klart bruge en TQuery som pellelil foreslår. SQL giver de bedste muligheder.

procedure GetFirst(var Navn:string; var FoundData:boolean);
begin
  FoundData := False;
  With DataModule1.Table1 do
  begin
    First;
    if not EOF then
    begin
      Navn := FieldByName(\'SName\').AsString;
      FoundData := True;
    end;
  end;
end;

procedure GetNext(var Navn:string; var FoundData:boolean);
begin
  FoundData := False;
  with DataModule1.Table1 do
  begin
    Next;
    if not EOF then
    begin
      Navn := FieldByName(\'SName\').AsString;
      FoundData := True;
    end;
  end;
end;

procedure Find(var Navn,Telephone,Street,StreetNr,City,PostCode,Birthday,Country,Email:String; var FoundData:boolean);
begin
  with DataModule1.Table1 do
  begin
    SetKey;
    FieldByName(\'SName\').AsString := Navn;
    if GotoKey then
    begin
      Navn := FieldByName(\'SName\').AsString;
      Telephone := FieldByName(\'STelephone\').AsString;
      Street := FieldByName(\'SStreet\').AsString;
      StreetNr := FieldByName(\'SStreetNr\').AsString;
      City := FieldByName(\'SCity\').AsString;
      PostCode := FieldByName(\'SPostCode\').AsString;
      Birthday := FieldByName(\'SBirthday\').AsString;
      Country := FieldByName(\'SCountry\').AsString;
      Email := FieldByName(\'SEmail\').AsString;
      FoundData := True;
    end
    else
      FoundData := False;
  end;
end;

Locate og lignende \"udmærker\" sig ved at samtlige poster overføres fra DB-server til klient hvorfor en SQL-Query er at foretrække. Hvorvidt der så er den store foreskel når vi taler \"flade filer\" som Paradox skal her være usagt (dog ville jeg altid bruge en Query da den er mere flexibel).