ListBox-Einträge ändern

[LOMBI]

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]

[fkerber]

Hi!

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


Ciao Frederic