Variable hat immer den Wert 1 (das soll nicht so)

[freak4fun]

Das nur nebenbei (ungetestet).

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  DeleteItem, I, S, L: Integer;
  Filename: String;
begin
  if ListView1.Selected = Nil then
    MessageDlg('Bitte wählen sie erst einen Listeneintag aus!', mtInformation, [mbOK], 0)
  else
    begin
      DeleteItem := ListView1.Selected.Index;
      L := ListView1.Items.Count;
      if MessageDlg('Soll dieser Kontakt wirklich entfernt werden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        begin
          ListView1.Selected.Delete;
          Filename := Format('%sSpeicher\Daten\%d', [ExtractFilePath(Application.ExeName), DeleteItem]);
          DeleteFile(Filename + '.OKM');
          DeleteFile(Filename + 'SMB.OKM');
          DeleteFile(Filename + 'Bemerk.OKM');
          DeleteFile(Filename + 'FreuFam.OKM');
          if ListView1.Items.Count > 0 then    //We
            begin
              S := ListView1.Items.Count;
              for I := DeleteItem to S do
                begin
                  ClearPuffer;
                  LoadFromStream(I);
                  SaveToStream(I-1)
                end;
              Filename := Format('%sSpeicher\Daten\%d', [ExtractFilePath(Application.ExeName), L]);
              DeleteFile(Filename + '.OKM');
              DeleteFile(Filename + 'SMB.OKM');
              DeleteFile(Filename + 'Bemerk.OKM');
              DeleteFile(Filename + 'FreuFam.OKM');
              ListView1.Selected := ListView1.Items[0];
              LoadfromStream(0);
            end
          else
            if ListView1.Items.Count <= 0 then
              ListView1.Selected := Nil;
        end;
    end;
end;

MfG
freak