Merhaba;
TEdit ile ListViewde filter yöntemi ile istediğim verileri kolayca buluyorum. Seçtiğim kayıtta değişiklik yapıp tekrar ListView kaydediyorum.
Fakat Filter yaptığım TEdit temizlediğimde bu sefer aşıdaki hatayı alıyorum, bu hatayı almamak için ne yapabilirim?
First chance exception at $75D118A2. Exception class EArgumentOutOfRangeException with message 'Argument out of range'. Process ArsivList.exe (20288)
Filter için kullandığım kod:
TEdit ile ListViewde filter yöntemi ile istediğim verileri kolayca buluyorum. Seçtiğim kayıtta değişiklik yapıp tekrar ListView kaydediyorum.
Fakat Filter yaptığım TEdit temizlediğimde bu sefer aşıdaki hatayı alıyorum, bu hatayı almamak için ne yapabilirim?
First chance exception at $75D118A2. Exception class EArgumentOutOfRangeException with message 'Argument out of range'. Process ArsivList.exe (20288)
Filter için kullandığım kod:
procedure TForm1.SearchChangeTracking(Sender: TObject); var Lower: String; begin Lower := Search.Text.Trim.ToLower; if Lower = '' then begin if Assigned(ListView1.Items.Filter) then begin ListView1.Items.Filter := Nil; // Clear filter end; end else begin ListView1.ItemIndex := -1; // Start or update filter ListView1.Items.Filter := function(X: String): Boolean begin Result := Lower.IsEmpty or X.ToLower.Contains(Lower); end; end; end;