Meine Drag'n'Drop-Funktion ergänzen

[Helmi]

Du solltest aber trotzdem mal deine Freigabe der List2 überdenken.

Delphi-Quellcode:

        List2:=Explode('=', List[i]); 
        ListBox1.Items.Insert(i, List2[1]); 
        ListBox2.Items.Insert(i, List2[2]); 
        ListBox3.Items.Insert(i, List2[3]); 
        ListBox4.Items.Insert(i, List2[4]); 
        List2.Free;

//<--

[DeddyH]

Trotzdem finde ich solchen Code etwas optimistisch:

Zitat:

Delphi-Quellcode:

List2:=Explode('<>', List[i]);
    ListBox1.Items.Insert(i, List2[1]);
    ListBox2.Items.Insert(i, List2[2]);
    ListBox3.Items.Insert(i, List2[3]);
    ListBox4.Items.Insert(i, List2[4]);
    List2.Free;

Du solltest nach dem Explode zumindest überprüfen, ob überhaupt mehr als 4 Elemente in der Liste stehen, das war vermutlich auch der Grund für den Fehler.

[edit] [/edit]

[AlexII]

Hm... was genau? Verzeih, bin Hobbyprogrammierer.

[AlexII]

Ne der Fehler war deswegen, eine .crp Datei wird mit

Zitat:

List2:=Explode('<>', List[i]);

geladen und andere

Zitat:

List2:=Explode('=', List[i]);

und weil die Abfrage falsch war wurde die .crp mit "=" geladen, und das verursachte den Fehler.

[DeddyH]

Delphi-Quellcode:

List2:=Explode('<>', List[i]);
try
  if List2.Count > 1 then
    ListBox1.Items.Insert(i, List2[1]);
  if List2.Count > 2 then
    ListBox2.Items.Insert(i, List2[2]);
  if List2.Count > 3 then
    ListBox3.Items.Insert(i, List2[3]);
  if List2.Count > 4 then
    ListBox4.Items.Insert(i, List2[4]);
finally
  List2.Free;
end;

Oder wenn alles erfüllt sein muss:

Delphi-Quellcode:

List2:=Explode('<>', List[i]);
try
  if List2.Count > 4 then
    begin
      ListBox1.Items.Insert(i, List2[1]);
      ListBox2.Items.Insert(i, List2[2]);
      ListBox3.Items.Insert(i, List2[3]);
      ListBox4.Items.Insert(i, List2[4]);
    end;
finally
  List2.Free;
end;

[AlexII]

Und wieso soll ich überprüfen, ob mehr als 4 Elemente vorhanden sind?

[DeddyH]

Weil Du anschließend auf das 5. Element zugreifst. Und wenn das nicht da ist, gibt es den von Dir beschriebenen Fehler.

[AlexII]

Zitat von DeddyH:

Weil Du anschließend auf das 5. Element zugreifst. Und wenn das nicht da ist, gibt es den von Dir beschriebenen Fehler.

Ne es läuft alles. Irgendwie kopiere ich trotzdem das nicht...

[DeddyH]

*Gnarf* Probier das Folgende mal aus, dann weißt Du, was ich meine:

Delphi-Quellcode:

Liste := TStringlist.Create;
try
  Liste.Add('Hallo');
  ShowMessage(Liste[1]); //es ist nur ein Element mit Index 0 (!!) vorhanden
finally
  Liste.Free;
end;

[AlexII]