OnTime Exepction ?

[nitschchedu]

Das war ne vergleich !

Soweit wie ich das gezählt habe sind das 15 .

Delphi-Quellcode:

  var
   tpcolumn: TListColumn;
  begin

  ....

  ListView1.RowSelect:= TRUE;
  ListView1.MultiSelect:= TRUE;
  ListView1.showcolumnheaders := TRUE;
  ListView1.ReadOnly := TRUE;
  ListView1.ViewStyle := vsReport;

  ListView1.IconOptions.Arrangement := iaTop;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := 'Haupt ';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '1';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '2';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '3';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '4';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '5';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '6';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '7';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '8';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '9';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '10';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '11';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '12';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '13';
  tpcolumn.width := 40;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '14';
  tpcolumn.width := 60;

  tpcolumn := ListView1.Columns.Add;
  tpcolumn.Caption := '15';
  tpcolumn.width := 60;

  ....

So und damit kein Fusch passiert kommt noch vor der abfrage

Delphi-Quellcode:

  if ListView1.Items.Count = 0 then
  begin
     ShowMessage('Bitte erstmal was in die Liste eintragen!');
     Exit;
  end;

Und da ich den Eintrag sehe und er da vorbeikommt wundert mich das, das er da Abschmiert .