Probleme mit Listbox Einträgen

[DeddyH]

Delphi-Quellcode:

unit FileArray;

interface

type
   TFilenameInfos = record
     RealFileName: String;
     DisplayName: String;
  end;
 
var
  lIndex : Integer;
  MeinArray: Array of TFilenameInfos; 

implementation

end.

Die Typen und Variablen müssen schon im Interface-Teil stehen.

[Johnny Bravo]

Ok, hab ich so übernommen. jetzt gibts keine probleme mit nicht deklarierten bezeichnern.
Jetzt funktioniert das ganze auch ohne FileArray davor.

allerdings wird jetzt hier ein fehler ausgespuckt:

Delphi-Quellcode:

begin
         [lIndex] := Length(MeinArray); //Fehler: Der linken seite kann nichts zugewiesen werden.
         SetLength(MeinArray, lIndex + 1);
         MeinArray[lIndex].RealFileName := Form2.OpenDialog1.FileName;
         MeinArray[lIndex].DisplayName := Form4.Edit1.Text;
         Form2.ListBox1.Items.Add(MeinArray[lIndex].DisplayName);
         Form2.Listbox1.Update;
      end;

[mkinzler]

Delphi-Quellcode:

 lIndex := Length(MeinArray);

Aber du kannst auch gleich

Delphi-Quellcode:

SetLength(MeinArray, Length(MeinArray) + 1);

[Johnny Bravo]

ja, das mit den eckigen klammern hab ich auch gerade bemerkt, thx.
hab deinen code hinzugefügt und ersetzt, aber dann kommt wieder DeddyH´s Showmessage "Da haben wirs"
und direkt danach kommt wieder "Fehler bei der Bereichsprüfung" wieder an der selben stelle bei ShellExecute. :wall:

Delphi-Quellcode:

begin
  FileArray.lIndex := ListBox1.ItemIndex;
  if FileArray.lIndex < 0 then exit;
  if lIndex > High(MeinArray) then
    ShowMessage('Da haben wirs');

 Err := ShellExecute(Application.Handle, // hier tritt der fehler wieder auf.
      'open',
      Pchar(MeinArray[lIndex].RealFileName),
      NIL,
      NIL,
      SW_SHOWNORMAL);

  if Err < 33 then
    Showmessage(ShellExecuteErrMessage(Err));
    if CheckBox2.Checked then
     Application.Minimize;

end;

[Die Muhkuh]

Hast Du aus den jeweiligen Units (Name.pas und Main.pas) die Definitionen von MeinArray gelöscht?

[Johnny Bravo]

ja, ist alles entfernt. Die beiden greifen jetzt auf die Unit FileArray zu, wo MeinArray deklariert ist.

[MSSSSM]

Also ich finde, dass es mit Objects von TStrings einfacher geht.
Wenn ich die Erlaubnis dazu bekomme, hänge ich en Beispiel an.
mfg

[edit=Luckie]Beitrag sichtbar gemacht. Mfg, Luckie[/edit]

[Johnny Bravo]

Zitat:

Zitat von MSSSSM

Also ich finde, dass es mit Objects von TStrings einfacher geht.
Wenn ich die Erlaubnis dazu bekomme, hänge ich en Beispiel an. (*g*)

mfg

man kann deinen text nur lesen wenn man dich zitiert.
Von mir aus kannst du gerne ein beispiel machen, solange es funktioniert :D

[MSSSSM]

im Anhang

[Johnny Bravo]

super, genau die funktionen, die ich benötige. ich werde mir mal den code anschauen und dann feedback geben.