Listbox Item überschreiben

[bitsetter]

Hallo,

meinst du etwa ListBox2.ItemIndex?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SList: TStringList;
  Datei: AnsiString;
begin
  Datei:= 'C:\meineDatei.txt';
  if FileExists(Datei) then
  begin
    SList:= TStringList.Create;
    try
      SList.LoadFromFile(Datei);
      if ListBox2.ItemIndex >= 0 then
      begin
        SList.Strings[ListBox2.ItemIndex]:= Edit1.Text;
        SList.SaveToFile(Datei);
      end;
    finally
      SList.Free;
    end;
  end;
end;