Probleme mit Listbox Einträgen

[Johnny Bravo]

LIndex ist eine Integer variable.

das ist im 2ten Formular, wo man den Alternativnamen der Listbox im ersten Formular hizufügt:(Auszug)

Delphi-Quellcode:

 [...]
         lIndex := Length(MeinArray);
         SetLength(MeinArray, lIndex + 1);
         MeinArray[lIndex].RealFileName := Form2.OpenDialog1.FileName;
         MeinArray[lIndex].DisplayName := Form4.Edit1.Text;
         Form2.ListBox1.Items.Add(MeinArray[lIndex].DisplayName);
[...]

Wie gesagt, Showmessage bekomme ich nicht angezeigt, lediglich den Fehler bei der Bereichsprüfung.
Ich weiß nicht mehr weiter.. :nerd:

[Die Muhkuh]

Sollte da nicht noch irgendwo davor ein

Delphi-Quellcode:

lIndex := ListBox1.ItemIndex;

[DeddyH]

Mir scheint, lIndex ist eine lokale Variable in der Einfüge-Prozedur. Allerdings würde sich das Programm dann gar nicht kompilieren lassen, da sollte eigentlich etwas kommen mit "unbekannter Bezeichner". Hast Du sie vielleicht noch einmal als globale Variable definiert? Vielleicht zippst Du den ganzen Schmu mal und hängst ihn hier an, sonst raten wir noch ewig weiter.

[Johnny Bravo]

Danke, das ihr euch den code mal anschaut. Hab ihn im Anhang.

bitte nicht über den aufbau oder sonstiges wundern, ich teste im augenblick nur ein bißchen herum :wink:

[mkinzler]

Du solltest dich entscheiden, oder 2 Variablen verwenden

Zitat:

Delphi-Quellcode:

lIndex := Form2.ListBox1.ItemIndex;
lIndex := Length(MeinArray);

[DeddyH]

Mach das mal so, wie Manuel vorgeschlagen hat: als erste Zeile lIndex auf den ItemIndex der Listbox setzen (und unbedingt auf < 0 prüfen, kleiner Zusatz meinerseits).

[Johnny Bravo]

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
    var
    IconIndex : Integer;
    h : hIcon;
    S : String;
    Icon : TIcon;
    Bitmap : TBitmap;
    OpenDialog : TOpenDialog;
    lIndex: Integer;

    begin

    if  (Edit1.Text = '') then
    begin
         ShowMessage('Bitte geben sie einen Namen ein.');
         exit;
        end
     else

     if Form2.ListBox1.ItemIndex < 0 then
         MeinArray[lIndex].RealFileName := Form2.OpenDialog1.FileName;
         SetLength(MeinArray, lIndex + 1);
         MeinArray[lIndex].DisplayName := Form4.Edit1.Text;
         lIndex := Form2.ListBox1.ItemIndex;
         lIndex := Length(MeinArray);
         Form2.ListBox1.Items.Add(MeinArray[lIndex].DisplayName); // hier gibts einen Fehler bei der Bereichsprüfung, wenn ich auf ok klicke. Wenn ich das entferne, wird logischerweise nichts der Listbox hinzugefügt....
       [...]
     end;

[Die Muhkuh]

Delphi-Quellcode:

lIndex := Form2.ListBox1.ItemIndex;
lIndex := Length(MeinArray);

Was steht nun wohl in lIndex drin.

[DeddyH]

Und achte mal auf die Reihenfolge, erst ermitteln und dann neu setzen. Außerdem sind nun schon wieder woanders, ursprünglich ging es doch um Form2, wieso nun um Form4?

[Die Muhkuh]

Und

Delphi-Quellcode:

 if Form2.ListBox1.ItemIndex < 0 then

bedeutet, dass nichts angewählt ist. Wie soll das ganze dann funktionieren?

Da müsste entweder >= 0 oder > -1 sein.