Hallo,
was mache ich nur mit dem ValueListEditor falsch?
Ich habe einen ValueListEditor mit 2 Spalten (Nummer, Eintrag), die vom Benutzer gefüllt werden sollen.
In die 1. Spalte (Nummer) darf nur ein bestimmter Nummernkreis eingegeben werden können.
In der 2. Spalte (Eintrag) ist alles erlaubt.
Ist der Eingabewert der ersten Spalte falsch, möchte ich die gesamte Zeile löschen.
Dies prüfe ich im Ereignis OnValidate des ValueListEditors nun so ab.
Aber da krieg ich immer eine Zugriffsverletzung(ListenIndex überschreitet das Maximum).
Bin ich da auf dem Holzweg oder wiedermal viel zu umständlich oder was haut da nicht hin?
Delphi-Quellcode:
procedure TForm1.ValueListEditor1Validate(Sender: TObject; ACol,
ARow: Integer; const KeyName, KeyValue: string);
begin
if (StrToInt(ValueListEditor1.Keys[ValueListEditor1.Row]) > 191) and
(StrToInt(ValueListEditor1.Keys [ValueListEditor1.Row]) < 1048576) then
begin
if (StrToInt(ValueListEditor1.Keys[ValueListEditor1.Row]) < 0) or
(StrToInt(ValueListEditor1.Keys[ValueListEditor1.Row]) > 191) then
begin
MessageDlg(ValueListEditor1.Keys[ValueListEditor1.Row] +
' ist kein gültiger Wert !', mtError, [mbOK], 0);
ValueListEditor1.Cells[ACol, ARow] := '';
ValueListEditor1.DeleteRow(ValueListEditor1.Row);
ValueListEditor1.Refresh;
end;
end else
begin
if (StrToInt(ValueListEditor1.Keys[ValueListEditor1.Row]) > 16785375) then
begin
MessageDlg(ValueListEditor1.Keys[ValueListEditor1.Row] +
' ist kein gültiger Wert !', mtError, [mbOK], 0);
ValueListEditor1.Cells[ACol, ARow] := '';
ValueListEditor1.DeleteRow(ValueListEditor1.Row);
ValueListEditor1.Refresh;
end;
end;
end;
Besten Dank für jede Hilfe!
CU Bea