Überflüssiges Return löschen

[Ines]

Hallo,

wie kann ich "überflüssiges Return" löschen.
Die Daten werden über einen Barcode in's Programm eingelesen. Nach 10 Zeichen wird automatisch die Routine zum Weiterbearbeiten (Suchfunktion) ausgerufen.

Muß der Nutzer die Zahlen des Barcodes über Tastatur eingeben, dann passiert es immer wieder,
daß "Return" gedrückt wird. Da aber das Programm nach 10 Zeichen weiterarbeitet, bleibt das "Return" auf dem Stack. Und dieses Return wird dann natürlich zu einem späteren Zeitpunkt akzeptiert - auch wenn der Nutzer das nicht wollte.

Ich hoffe, ihr könnt mir helfen.
Vielen Dank
Ines

[berens]

Hallo!

Für den Fall, dass du die Eingabe bei "OnChange" überprüfst, versuche mal das:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.Text := trim(Edit1.Text);
  // ...
end;

Trim Routine: Entfernt alle am Anfang und Ende eines Strings vorhandenen Leer- und Steuerzeichen.

Ansonsten könntest du in OnKeyDown die Eingabetaste #13 sperren, oder bei der überprüfung der Eingabe nur die ersten x-Stellen untersuchen.

Wenn Du noch mehr Tips brauchst, ruhig schreiben

[Phoenix]

Zitat von berens:

Ansonsten könntest du in OnKeyDown die Eingabetaste #13 sperren

Das wär jetzt mein erster Ansatz gewesen. Einfach das Zeichen RETURN im OnKeyDown ausblenden und nicht weiterreichen. So wird das Return in dem Feld gar nicht mehr angenommen und landet auch nicht irgendwo wo Du es nicht mehr brauchen kannst.

[Ines]

Vielen Dank für Eure Hilfe,
den Tipp werde ich sofort ausprobieren.

Nochmals Danke
Ines