real Zahl prüfen im Stringgrid

[eassy]

hallo zusammen,

ich ärgere mich schon seit einem tag damit rum.
folgendes problem:
wie kann man während der eingabe in ein stringgrid überprüfen ob die
eingebenen zahl korrekt ist. mit onkeypress habe ich schon einmal nur die zahlen 0-9 und den . zugelassen.
nun haben ich aber das problem, dass ich im stringgrid mehrere punkte eingeben kann obwohl aber
nur folgendes gültig sein darf.

1234.4 und falsch ist 12.3.3..

kann mir da jemand helfen...

im voraus schon mal danke


gruß
eassy

[Tpercon]

Als Stichwort: AnsiPos/ Pos

Da gibts hier im Forum aber schonmal nen Beitrag zu.

[himitsu]

kannst abfragen ob nur 1 Punkt vorhanden ist.

Zeig mal wie du bis jetzt (auf 0-9) abfragst. (onKeyPress)

Und wenn mehrere Punkte vorhanden sind. Ob z.B. der 1. oder der Letzte Punkt bleiben soll)

[eassy]

Delphi-Quellcode:

if (stringgrid1.Cells[0,lARow] = MENGE) then
begin
  //nur 0-9 und . zulassen alle anderen nicht
  case key of
    #33..#45: key := #0;
    #47: key := #0;
    #58..#255: key := #0;
  end;
end;

[Sharky]

Zitat von eassy:

.... mit onkeypress habe ich schon einmal nur die zahlen 0-9 und den . ...

Hai eassy,

für diesen Fall sind die Ereignisse OnGetEditText und OnGetEditMask sicher besser. Bei OnGetEditMask kannst du eine normale EditMask hinterlegen.
Beispiel ist in der OH dabei.

P.S.: Ich verschiebe die Frage mal nach VCL.

[eassy]

hi Sharky,

ja mit dem ongeteditmask habe ich das auch schon probiert. nur sieht dann das ein bisschen
komisch aus.

meine value habe ich wie folgt definiert: value := '!000000000.0';

wenn ich dann im stringgrid aber nur eine 1.3 haben möchte sieht es voll
komisch aus.
--> 1 .3

gibt es nicht wie im tedit eine methode onchange oder so ähnliches.

mit onsetedittext funktioniert es irgendwie nicht.

gruß
eassy

[himitsu]

Delphi-Quellcode:

If StringGrid1.Cells[0, lARow] = MENGE) Then Begin 
  //nur 0-9 und . zulassen alle anderen nicht 
  {Case Key of 
    #33..#45: Key := #0; 
    #47: Key := #0; 
    #58..#255: key := #0; 
  End;}
  //nur 0-9 und . zulassen
  If  not (Key in ['.', '0'..'9']) Then Key := #0;

  //wenn '.' eingegeben und schon vorhanden ist, nicht zulassen
  If (Key := '.') and (Pos(StringGrid1.Cells[lACol, lARow]) > 0) Then Key := #0;
  { StringGrid1.Cells[lACol, lARow] = aktiveZelle (die in der gerade eingebgeben wird) }
End;

Ich weis jetzt leider nicht wie man die aktive Zelle abfragt.
(onKeyPress liefert diese ja nicht)

[himitsu]

Wenn nur ein Feld ausgewählt werden kann, geht auch das:
z.B.: StringGrid1.Options := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing]; {kein goRangeSelect}
StringGrid1.Cells[StringGrid1.Selection.Left, StringGrid1.Selection.Top]

Delphi-Quellcode:

If StringGrid1.Cells[0, lARow] = MENGE) Then Begin
  //nur '.' und '0'-'9' zulassen
  If  not (Key in ['.', '0'..'9']) Then Key := #0;
  //wenn '.' eingegeben und schon vorhanden - '.' nicht zulassen
  If (Key := '.') and (Pos(StringGrid1.Cells[StringGrid1.Selection.Left, StringGrid1.Selection.Top]) > 0) Then Key := #0;
End;

[eassy]

hallo,

irgendwie sitze ich woll auf dem schlau.
onkeypress wird nur einmal ausgeführt. oder nicht?
sobald ich dann in die zelle was schreibe kann ich trotzdem mehrere punkte
eingeben.



bitte helft mir. ich komme einfach nicht weiter.


gruß
eassy

[himitsu]

onKeyPress wird jedesmal wenn eine Taste gedrückt wurde abgearbeitet.

Und wenn man den Text der Zelle (die in diesem Moment bearbeitet wird) auf vorhandene Punkte prüft, kann man beim vorhandensein eines Punktes verhindern das ein neuer eingegeben wird.

Delphi-Quellcode:

If (Key := '.') and (Pos(StringGrid1.Cells[StringGrid1.Selection.Left, StringGrid1.Selection.Top]) > 0) Then Key := #0;

If {Punkt wurde eingegeben} and {ist schon ein Punkt vorhanden} Then Key := #0;

Ich würde den Code allerdings noch um ein paar Steuerzeichen erweitern.

Delphi-Quellcode:

StringGrid1.Options := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing]; {kein goRangeSelect}


If StringGrid1.Cells[0, lARow] = MENGE) Then Begin
  //nur '.' und '0'-'9' zulassen
  If  not (Key in [#08{Del}, #13{Enter}, #27{ESC}, '.', '0'..'9']) Then Key := #0;
  //wenn '.' eingegeben und schon vorhanden - '.' nicht zulassen
  If (Key := '.') and (Pos(StringGrid1.Cells[StringGrid1.Selection.Left, StringGrid1.Selection.Top]) > 0) Then Key := #0;
End;