Tabellen springen zum letzten Datensatz, warum?

[grayfox]

hallo albi!

mit einem ungebundenen db-feld funktioniert es auch mit einem table, nur mit einem gebundenen
hab ich es auch noch nicht hinbekommen.

zb im OnExitEvent des edit-feldes, in welchem plautzer die wohnungsnummer einträgt

Delphi-Quellcode:

{$SCHNELL_MAL_ZUSAMMENGETIPPT_UND_KURZ_GETESTET}
procedure TForm1.Edit1Exit(Sender: TObject);
var
  aID: LongInt;
  Code: integer;
begin
  if Edit1.Text = '' then
    Exit;
    
  val(Edit1.Text,aID,Code);
  if Code > 0 then begin
    ShowMessage('die wohnungsnummer ist nicht numerisch');
    Edit1.Clear;
    Edit1.SetFocus;
    Exit
  end;

  if Table1.Locate('ID',aID,[]) then begin
    ShowMessage(Format('die wohnungsnummer %5d ' + #13#10 
      + 'ist bereits angelegt',[aID]));
    Edit1.SetFocus
  end else begin
    if not (Table1.State in [dsInsert, dsEdit]) then
      Table1.Append;
    Table1.FieldByName('ID').asInteger:= aID
  end  
end;

nur muss er dann beim scrollen in der tabelle bzw beim suchen das editfeld selbst
mit daten aus dem feld 'ID' versorgen, denn es ist ja nicht mehr gebunden

@plautzer: dbtext3.Caption := Format('%8.2f', [bru_su])+' €'; hier reicht aber ein normales textfeld vollkommen aus, bzw ich würde ein masked editfeld verwenden um mir die formatierung des strings zu ersparen

mfg, stefan