Delphi-PRAXiS - Delphi ListBox-Einträge ändern

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi ListBox-Einträge ändern (https://www.delphipraxis.net/36315-listbox-eintraege-aendern.html)

ListBox-Einträge ändern

Hallo,

ich möchte gerne die Einträge aus einer ListBox mit Hilfe der InputQuery
ändern:

Delphi-Quellcode:

			var

ausgew,alt : string;

begin

ausgew := ListBox1.Items.Strings[ListBox1.Itemindex];

alt := ausgew;

if InputQuery('Verwaltung', 'Bezeichnung ändern:', ausgew)

then if

ausgew<>alt then

ListBox1.Items.Strings[ListBox1.Items.IndexOf(alt)]: =ausgew;

end;

Das klappt, wenn nur ein Eintrag in der ListBox1 steht. Bei mehreren
Einträgen erhalte ich die Meldung 'Der Index der Liste überschreitet
das Maximum(0)'. Prozeß wurde angehalten.

Kann mir bitte jemand helfen?

Gruß
Lombi

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

Re: ListBox-Einträge ändern

Hi!

Bei mir geht es auch mit mehreren Einträgen. Einzige Bedingung: Es muss ein Eintrag selektiert sein.

Ciao Frederic