Guten Tag, ich brauche Rat, plz

← →
DeadMoroz (2001-12-03 15:21) [0]

Zum Durchsuchen der Tabelle verwende ich den Standardprozess:

Prozedur TForm1.Edit1Change (Sender: TObject);
beginnen
if Edit1.Text <> "" then
beginnen
Table1.Locate ( "NUM", Edit1.Text, loCaseInsensitive, loPartialKey]);
end;
end;

aber in diesem Fall das Feld „NUM“ Typ Int ... Kurz gesagt, kriecht der Cursor nur mit der vollen Übereinstimmung des Textfeldes mit einem Wert aufzuzuzeichnen, als ob keinen loPartialKey ist und Gegenwart, und sehr gerne. Ich habe alle anderen Methoden ausprobiert (und auch Pos) ... kam schließlich hierher.

Beraten wer was kann, danke schonmal :-).

← →
Deniz (2001-12-03 15:50) [1]

procedure TForm1.Edit1Change (Sender: TObject); var i: ganze Zahl; beginne Wenn Edit1.Text <> "", dann beginne TmpQuery.SQL.Clear; TmpQuery.SQL.Add ("wähle num aus table1 aus wo cast (num als varchar (20)) wie: aNum "); TmpQuery.Prepare; TmpQuery.Params [0] .asString: = Edit1.Text; TmpQuery. Open; Wenn TmpQuery.IsEmpty, dann beginne Tmpquery.close ShowMessage ("Nicht gefunden."); Ausfahrt; ende sonst fange an i: = TmpQuery. Fields [0] .asInteger; Tmpquery.close Table1.Locate ("NUM", i, []); Ende; Ende; Ende;
TmpQuery - Temporäre Abfrage
Viel Glück.

← →
DeadMoroz (2001-12-03 16:09) [2]

Die Tatsache, dass mein Table1 ist der Meister und die Cursor muss noch in dem Datensatz „e bewegen .... obwohl ich werde versuchen, TmpQuery totzhe DataSet1 zu binden ...

← →
DeadMoroz (2001-12-04 09:16) [3]

Ich habe versucht ..... es funktioniert, aber eine schreckliche Bremse ...

Noch mehr Tipps?

Guten Tag, ich brauche Rat, plz Finden Sie ähnliche Zweige