Eingabe in tEdit beschränken

[hummer]

Hallo

die procedure, die verhindert, dass man in ein edit Feld was anderes als Zahlen eingibt habe ich im Forum schon gefunden.

Delphi-Quellcode:

  if not (Key in ['0'..'9', #8]) then
  Key := #0;

Jetzt möchte ich aber noch die Eingabe eines Minuszeichen erlauben. Ein Minuszeichen darf nur einmal eingegeben werden. Auch wenn im Edit Feld schon Zahlen stehen und man drückt das Minuszeichen soll das Minuszeichen am Anfang des Terms geschrieben werden. Betätigt man öfter als ein mal das Minuszeichen soll es wieder entfert oder hinzugefügt werden.

Ich hab aber keine Ahnung wie ich das lösen soll.

Hoffe mein Problem ist nicht zu unverständlich beschrieben.

[Dagon]

So was habe ich auch schon verwendet (zumindest etwas ähnliches). Ich muss es aber zu erst auf meiner Platte suchen.

[Christian Seehase]

Moin Hummer,

Delphi-Quellcode:

if (Key in ['0'..'9', #8]) or ((Key = '-') and (pos('-',Edit1.Text) = 0)) then begin
  if Key = '-' then begin
    Edit1.Text := '-' + Edit1.Text;
    Key := #0;
  end;
end else begin
  Key := #0;
end;

ungetestet, und einfach hier mal reingehackt.
Im Prinip müsstest Du ja nur noch zusätzlich auf das '-' testen, dass aber nur zugelassen ist, wenn es noch nicht enthalten ist.
Als Verbesserung könnte man sich noch die aktuelle Caretposition merken wenn es ein, zugelassenes, '-' war und dann wieder Herstellen.

[SirThornberry]

Delphi-Quellcode:

if (key = '-') then
begin
  key := #0;
  if pos('-', Edit1.Text) < 1 then Edit1.Text := '-' + Edit1.Text else Edit1.Text := copy(Edit1.Text, 2, length(Edit1.Text)-1);
end;

Den Code noch mit in die Keypressmethode reinstopfen. Allerdings musst du dann noch den Cursor wieder an die richtige Stelle setzen

@chris: So weit ganz gut, du musst hast aber vergessen das minuszeichen wieder zu entfernen bei erneutem press

[Matze]

oder so:

if Key = '-' then begin Edit1.Text:=IntToStr(StrToInt(Edit1.Text)*-1) Ist aber nicht elegant.

[Christian Seehase]

Moin SirThornberry,

Zitat von SirThornberry:

So weit ganz gut, du musst hast aber vergessen das minuszeichen wieder zu entfernen bei erneutem press

Stimmt, das hatte ich übersehen